A1:=1;
MID:EMA(CLOSE,17)*A1,LINETHICK1,colorFFFFFF;
UPPER:MID+2*STD(CLOSE,17),LINETHICK1;
LOWER:MID-2*STD(CLOSE,17),LINETHICK1,colorFFFF80;
UPPERO:MID+3*STD(CLOSE,17),LINETHICK1;
LOWERO:MID-3*STD(CLOSE,17),LINETHICK1,colorFFFF80;
DRAWICON(CROSS(LOW,LOWERO),LOW,1),ALIGN0;
DRAWICON(CROSS(HIGH,UPPERO),HIGH,2),ALIGN2;
DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,”),ALIGN1;
DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,”),ALIGN1;
LOCK:=IF(CURRENTDATE<1160101,1,0);
{VAR1:MD(CLOSE,20);
PARTLINE(VAR1>REF(VAR1,2),VAR1),LINETHICK2,colorFF00FF;}
{PARTLINE(VAR1=REF(VAR1,2),VAR1),LINETHICK2,colorFF0000;}
{PARTLINE(VAR1 M1:=MA(CLOSE,5);
M2:=MA(CLOSE,10);
M3:=MA(CLOSE,20);
M4:=MA(CLOSE,60);
M5:=MA(CLOSE,120);
PM3:=MA(CLOSE,30);
DRAWICON(M1>M2
AND M2>M3 AND M2>M4 AND M2>M5 AND M2>PM3 AND REF(M1,1) REF(M2,1) REF(PM3,1) {BB:=BARPOS=SYSPARAM(1);
VARIABLE:WDAY[7]=’星期六’;
WDAY[1]:=’星期日’;
WDAY[2]:=’星期一’;
WDAY[3]:=’星期二’;
WDAY[4]:=’星期三’;
WDAY[5]:=’星期四’;
WDAY[6]:=’星期五’;
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:=’今天是：’+NUMTOSTR(FY[P],0)+’年’+NUMTOSTR(FM[P],0)+’月’+NUMTOSTR(FD[P],0)+’日,
‘+WDAY[WD[P]+1];
EXPLAIN(BARPOS=P,STR1),colorFF;
EXPLAIN(1,STKLABEL+STKNAME+’n所屬板塊:’+BLKNAME),colorFFFF80;
EXPLAIN(CLOSE>0,’〓
K 線形態(tài)分析 〓 ‘),colorFFFFFF;}
{大智慧K線自動(dòng)解盤
:}
早晨之星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1) ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND
CLOSE>REF(CLOSE,2);
黃昏之星:=REF(CLOSE,2)/REF(OPEN,2)>1.03 AND
REF(OPEN,1)>REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND
CLOSE 長十字:=CLOSE=OPEN AND HIGH/LOW
>1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND
CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND
REF(OPEN,1)1.05
AND CLOSE>REF(CLOSE,2);
黃昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND
REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95
AND CLOSE 射擊之星:=MIN(OPEN,CLOSE)=LOW AND
HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND
CLOSE>MA(CLOSE,5);
倒轉(zhuǎn)錘頭:=MIN(OPEN,CLOSE)=LOW AND
HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE 錘頭:=HIGH =
MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
CLOSE 吊頸:=HIGH = MAX(OPEN,CLOSE) AND
HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
CLOSE>MA(CLOSE,5);
穿頭破腳:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
CLOSE/OPEN<0.96 AND CLOSEREF(CLOSE,1)) OR
(REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND
CLOSE>REF(OPEN,1) AND
OPEN 烏云蓋頂:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND
CLOSE 曙光初現(xiàn):=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
CLOSE/OPEN>1.03 AND OPEN CLOSE>REF(CLOSE,1);
身懷六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN) MIN(CLOSE,OPEN)>MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
AND CLOSE=OPEN AND CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE >
MIN(REF(CLOSE,1),REF(OPEN,1));
平頂:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001
and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);
大陽燭:=CLOSE/OPEN>1.05
AND HIGH/LOW 三個(gè)白武士:=REF(CLOSE,2)>REF(OPEN,2) AND
REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2)
AND CLOSE>REF(CLOSE,1);
雙飛烏鴉:=REF(CLOSE,1) CLOSE 孕育線:=REF(CLOSE,2)>REF(OPEN,2) AND
(REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND
REF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND
REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1)
AND
(MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2)
AND REF(CLOSE,1)OPEN;
出水芙蓉:=(OPEN OR OPEN (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60)))) AND (V/MA(V,30)>1.2 AND
C/REF(C,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND
REF(CLOSE,3) REF(CLOSE,1) REF(LOW,4) REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND
CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND
REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND
REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4) REF(LOW,4) REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE 跳空缺口:=HIGH LOW>REF(HIGH,1);
三只烏鴉:=REF(CLOSE,2) REF(CLOSE,1) AND CLOSE 光腳陰線:=LOW=CLOSE AND
HIGH<>LOW;
光頭陽線:=HIGH=CLOSE AND
HIGH<>LOW;
分離:=OPEN=REF(OPEN,1) AND
(CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
長下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
長上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN
AND HIGH<>LOW;
大陰燭:=OPEN/CLOSE > 1.05 AND HIGH/LOW <
OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)OPEN AND
ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND
CLOSE ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
傾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND
OREF(O,1) AND C if DISPSTATUS=2 then
begin;
var1000:=’.’;
if 傾盆大雨 then var1000:=var1000+’★傾盆大雨,見頂信號;’;
if
大陰燭 then var1000:=var1000+’★大陰燭,后市向淡,發(fā)生逆轉(zhuǎn);’;
if 好友反攻 then
var1000:=var1000+’★好友反攻,底部反轉(zhuǎn);’;
if 跳空缺口 then
var1000:=var1000+’★跳空缺口,注意向上還是向下跳空;’;
if 光腳陰線 then
var1000:=var1000+’★光腳陰線,下跌信號;’;
IF 光頭陽線 then
var1000:=var1000+’★光頭陽線,后市看漲;’;
IF 三只烏鴉 then
var1000:=var1000+’★三只烏鴉,可能見頂回落;’;
IF 分離 then
var1000:=var1000+’★分離,注意看漲分離和看跌分離;’;
IF 長下影 then
var1000:=var1000+’★長下影,持續(xù)下跌后出現(xiàn),有可能止跌回升;在升勢末期出現(xiàn),須多加留意;’;
IF 長上影 then
var1000:=var1000+’★長上影,表明行情上檔壓力沉重,升勢受阻;’;
IF 下跌三部曲 then
var1000:=var1000+’★下跌三部曲,下跌信號;’;
IF 上升三部曲 then
var1000:=var1000+’★上升三部曲,上漲信號;’;
IF 早晨之星 then
var1000:=var1000+’★早晨之星,見底回升;’;
IF 黃昏之星 then
var1000:=var1000+’★黃昏之星,見頂回落;’;
IF 十字星 then
var1000:=var1000+’★十字星,有轉(zhuǎn)向意味,注意股價(jià)位置在頂部還是底部;’;
IF 長十字 then
var1000:=var1000+’★長十字,注意在頂部還是底部;’;
IF 垂死十字 then
var1000:=var1000+’★垂死十字,下跌信號;’;
IF 早晨十字星 then
var1000:=var1000+’★早晨十字星,上漲信號,見底回升;’;
IF 黃昏十字星 then
var1000:=var1000+’★黃昏十字星,下跌信號,見頂回落;’;
IF 射擊之星 then
var1000:=var1000+’★射擊之星,可能見頂回落,可靠性低;’;
IF 倒轉(zhuǎn)錘頭 then
var1000:=var1000+’★倒轉(zhuǎn)錘頭,可能見底回升;’;
IF 錘頭 then
var1000:=var1000+’★錘頭,可能見底回升,如有量配合,信號強(qiáng)烈;’;
IF 吊頸 then
var1000:=var1000+’★吊頸,上升行情中見頂回落,頂部出現(xiàn),見頂信號;’;
IF 平頂 then
var1000:=var1000+’★平頂,溫和的反轉(zhuǎn);’;
IF 穿頭破腳 then
var1000:=var1000+’★穿頭破腳,頂部出現(xiàn),見頂回落信號;’;
IF 烏云蓋頂 then
var1000:=var1000+’★烏云蓋頂,見頂回落信號;’;
IF 曙光初現(xiàn) then
var1000:=var1000+’★曙光初現(xiàn),后市見底回升;’;
IF 身懷六甲 then
var1000:=var1000+’★身懷六甲,出現(xiàn)在底部,是見底回升信號;出現(xiàn)在頂部,是見頂回落信號;’;
IF 十字胎 then
var1000:=var1000+’★十字胎;’;
IF 平底 then var1000:=var1000+’★平底,溫和的反轉(zhuǎn);’;
IF 大陽燭
then var1000:=var1000+’★大陽燭,看漲;’;
IF 三個(gè)白武士 then
var1000:=var1000+’★三個(gè)白武士,每日收盤價(jià)上移,表示可能見底回升;’;
IF 雙飛烏鴉 then
var1000:=var1000+’★雙飛烏鴉,行情將見頂回落;’;
IF 孕育線 then
var1000:=var1000+’★孕育線,注意股價(jià)位置;’;
IF 多方炮 then
var1000:=var1000+’★多方炮,在底部出現(xiàn)有上漲意味,在中間出現(xiàn)有可能是上漲中繼,頂部出現(xiàn)是復(fù)合見頂信號;’;
IF 出水芙蓉 then
var1000:=var1000+’★出水芙蓉,見底回升;’;
end;
TIPTEXT(DISPSTATUS=2,0,var1000);
A001:=CLOSE-REF(CLOSE,6);
A002:=MA(A001,6);
A003:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
A004:=SMA(A003,3,1);
A005:=SMA(A004,3,1);
A006:=EMA(3*A004-2*A005,2);
A007:=(HIGH+LOW+CLOSE)/3;
A008:=(A007-MA(A007,14))/(0.015*AVEDEV(A007,14))/2;
A009:=(A008+EMA((-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100)/100,3)*200-100)/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA((A014-A015)/(A013-A015)*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1
AND A016<30 AND A017<30;
KKML:=A016-A017<0 AND A016>80 AND
A017>80 AND
REF(A016-A017,1)>0;
KKMQ:=COUNT(A016-A017>0,2)=2;
KKAL:=A016-A017<0;
{生命線:=MA(CLOSE,20);
取舍線:=MA(CLOSE,10);
EXPLAINICON(KKMD,4);
EXPLAINICON(KKAL,1);
EXPLAIN(KKMD,’最佳買入時(shí)機(jī)’);
EXPLAIN(KKML,’最佳賣出時(shí)機(jī)’);
EXPLAIN(KKMQ,’持倉區(qū)’);
EXPLAIN(KKAL,’空倉區(qū)’);
EXPLAIN(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),’該股強(qiáng)于大盤’);
EXPLAIN(CLOSE/REF(CLOSE,1),’該股強(qiáng)于大盤’);
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),’可出手’);
EXPLAIN(CROSS(MA(CLOSE,10),MA(CLOSE,5)),’收手了’);
EXPLAIN(KKM>EMA(KKM,4)
AND KKM>REF(KKM,1),’快速介入’);
EXPLAIN(KKM>EMA(KKM,4) AND
KKM EXPLAIN(KKM KKM>REF(KKM,1),’有防御能力’);
EXPLAIN(KKM KKM R:=REF(CLOSE,1)/CLOSE;
QY:=VOL;
QTT:=QY*R;
TL:=FILTER(VOL=HHV(VOL,20),20);
DL:=FILTER(VOL=LLV(VOL,20),20);
XD:=FILTER(LOW=LLV(LOW,20),20);
XG:=FILTER(HIGH=HHV(HIGH,20),20);
AQ標(biāo)準(zhǔn)攻擊量:=QTT*1.15;
HQ危險(xiǎn)成交量:=QTT*1.5;
LQ防守量:=QTT*0.75;
AHQ平均高量:=(AQ標(biāo)準(zhǔn)攻擊量+HQ危險(xiǎn)成交量)/2;
ALQ平均低量:=(AQ標(biāo)準(zhǔn)攻擊量+LQ防守量)/2;
市場實(shí)際量能:=QY;
EXPLAINEX(HQ危險(xiǎn)成交量,’解盤：次日攻擊危險(xiǎn)量=’,HQ危險(xiǎn)成交量,0,0),colorFF;
EXPLAINEX(AQ標(biāo)準(zhǔn)攻擊量,’解盤：次日攻擊標(biāo)準(zhǔn)量=’,AQ標(biāo)準(zhǔn)攻擊量,0,0),coloryellow;
EXPLAINEX(LQ防守量,’解盤：次日攻擊防守量=’,LQ防守量,0,0),colorFF00;
EXPLAINEX(TL,’解盤：今日為20日最大量=’,VOL,0,0),colorFF;
EXPLAINEX(DL,’解盤：今日為20日最小量=’,VOL,0,0),colorFF00;
EXPLAINEX(XD,’解盤：今日為20日最低價(jià)格=’,LOW,2,0),colorFF00;
EXPLAINEX(XG,’解盤：今日為20日最高價(jià)格=’,LOW,2,0),colorFF;
PT:=REF(HIGH,1)-REF(LOW,1);
CDP:=(HIGH+LOW+2*CLOSE)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH敏感阻力:=2*CDP-LOW;
NL:=2*CDP-HIGH;
EXPLAINEX(AH,’解盤：次日重大阻力價(jià)位=’,AH,2,0),colorFF00;
EXPLAINEX(NH敏感阻力,’解盤：次日敏感阻力區(qū)域=’,NH敏感阻力,2,0),colorFFFF;
EXPLAINEX(CDP,’解盤：次日關(guān)鍵均衡價(jià)位=’,CDP,2,0),colorFFFFFF;
EXPLAINEX(NL,’解盤：次日重要支撐區(qū)域=’,NL,2,0),colorFFFF80;
EXPLAINEX(AL,’解盤：次日關(guān)鍵支撐價(jià)位=’,AL,2,0),colorFF;
EXPLAINICON(CLOSE>0,’szczxh’),ALIGN1;
VAR0:=REF(CLOSE,1)-REF(OPEN,1);
VAR1:=REF(OPEN,1);
VAR2:=CLOSE>=VAR1*1.05;
VAR3:=CLOSE>=2*VAR0/3*VAR1
AND
CLOSE<=VAR1*1.05;
VAR4:=CLOSE EXPLAINEX(VAR2,’解盤：個(gè)股目前態(tài)勢：超級強(qiáng)勢。漲幅
%f
%’,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00FF;
EXPLAINEX(VAR3,’解盤：個(gè)股目前態(tài)勢：強(qiáng)勢。漲幅
%f
%’,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF;
EXPLAINEX(VAR4,’解盤：個(gè)股目前態(tài)勢：弱勢。漲幅
%f
%’,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00;
B1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100<-12;
B3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100>15;
B:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
EXPLAINEX(B<-18
AND
CLOSE/OPEN>1.06,’解盤：搶反彈!負(fù)乖離偏大,小單進(jìn)場。此刻30日乖離率=’,B,2,1),colorFF;
EXPLAINEX(B>40
AND
CLOSE/REF(CLOSE,1)<1.08,'解盤：高拋!正乖離偏大,按照短線技術(shù)系統(tǒng)高拋:',B,2,0),colorFF00;
EXPLAINEX(NOT(B<-18
AND CLOSE/OPEN>1.06) OR NOT(B>40 AND
CLOSE/REF(CLOSE,1)<1.08),'解盤：此刻30日乖離率=',B,2,0),colorFFFF;}
{陽線上下影}
STICKLINE(CLOSE>=OPEN,C,H,0,0),
colorRED;
STICKLINE(CLOSE>=OPEN,O,L,0,0),
colorRED;
{陰線上下影}
STICKLINE(CLOSE Color00EC00;
STICKLINE(CLOSE Color00EC00;
{陽K線}
STICKLINE(CLOSE>=OPEN,C,O,8,0),Color0000A1;
STICKLINE(CLOSE>=OPEN,C,O,6,0),Color0000B5;
STICKLINE(CLOSE>=OPEN,C,O,5,0),Color0000C5;
STICKLINE(CLOSE>=OPEN,C,O,4,0),Color0000D4;
STICKLINE(CLOSE>=OPEN,C,O,2.5,0),Color0000EC;
STICKLINE(CLOSE>=OPEN,C,O,1,0),Color0000FF;
{陰K線}
STICKLINE(CLOSE STICKLINE(CLOSE STICKLINE(CLOSE STICKLINE(CLOSE STICKLINE(CLOSE LC:=REF(CLOSE,1);
RSI:=((SMA(MAX(CLOSE
– LC,0),6,1))/(SMA(ABS(CLOSE –
LC),6,1)))*(100);
DRAWTEXT(CROSS(82,RSI),HIGH,’ 頂’),COlorffcc66;
DRAWTEXT(CROSS(63,RSI),HIGH,’ 賣’),COlorffcc66;
Y1:=REF(EMA(DMA((((HIGH + LOW) + (CLOSE * 2)) /
4.15),0.9),3),1);
DRAWtext(CROSS(CLOSE,Y1),LOW,’買’),Coloryellow;