追風_: IF(追風>=REF(追風,1),追風,DRAWNULL),COLORRED,LINETHICK3;

J:=IF(BARSCOUNT(C)>=10,10,BARSCOUNT(C));

STICKLINE(C>=MA(C,J),MA(C,J),REF(MA(C,J),1),5,0),COLORYELLOW;

STICKLINE(C<MA(C,J),MA(C,J),REF(MA(C,J),1),5,0),COLORBLUE;

M:=IF(BARSCOUNT(C)>=45,45,BARSCOUNT(C));

STICKLINE(C>=MA(C,M),MA(C,M),REF(MA(C,M),1),5,0),COLORYELLOW;

STICKLINE(C<MA(C,M),MA(C,M),REF(MA(C,M),1),5,0),COLORBLUE;

高:=REF(HHV(H,80),3);

低:=REF(LLV(L,80),3);

頂點:REFDATE(高,DATE),COLORGREEN,LINETHICK2;

低點:REFDATE(低,DATE),COLORRED,LINETHICK2;??

DRAWTEXT(ISLASTBAR,頂點,'力',COLORYELLOW;

DRAWTEXT(ISLASTBAR,低點,'撐',COLOREA91B5;?

收盤:C,COLORMAGENTA,NODRAW;?

{追雄風主圖}

日均價:=(C*3+H+L+O)/6;

SA:=EMA(日均價,5)*2-MA(日均價,5);

修正:=SMA(SMA(EMA(日均價,5)*2-MA(日均價,5),3,1),3,1);

補償:=FLOOR(((修正-MA(修正,5))/MA(修正,5)*100));

雄風1:=SMA(SMA((EMA(SA,(5+ABS(補償)))),2,1),2,1);

ZF:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

STICKLINE((C>雄風1) ,HIGH,LOW,0,1 ),COLORRED;

STICKLINE((C>雄風1) ,OPEN,CLOSE,3,0 ),COLOR000055;

STICKLINE((C>雄風1) ,OPEN,CLOSE,2.7,0 ),COLOR000077;

STICKLINE((C>雄風1) ,OPEN,CLOSE,2.1,0 ),COLOR000099;

STICKLINE((C>雄風1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB;

STICKLINE((C>雄風1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD;

STICKLINE((C>雄風1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF;

STICKLINE((C<雄風1) ,HIGH,LOW,0,1 ),COLORCYAN;

STICKLINE((C<雄風1) ,OPEN,CLOSE,3,0 ),COLOR990000;

STICKLINE((C<雄風1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;

STICKLINE((C<雄風1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400;

STICKLINE((C<雄風1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800;

STICKLINE((C<雄風1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;

STICKLINE((C<雄風1) ,OPEN,CLOSE,0.3,0 ),COLORCYAN;

STICKLINE((OPEN>CLOSE),CLOSE,OPEN,0,0),COLORCYAN;

STICKLINE((OPEN<CLOSE),CLOSE,OPEN,0,0),COLORRED;?

STICKLINE((ZF>9) ,HIGH,LOW,0,1 ),COLORMAGENTA;

STICKLINE((ZF>9) ,OPEN,CLOSE,3,0 ),COLOR550055;

STICKLINE((ZF>9) ,OPEN,CLOSE,2.7,0 ),COLOR550055;

STICKLINE((ZF>9) ,OPEN,CLOSE,2.1,0 ),COLOR880088;

STICKLINE((ZF>9) ,OPEN,CLOSE,1.5,0 ),COLORAA00AA;

STICKLINE((ZF>9) ,OPEN,CLOSE,0.9,0 ),COLORCC00CC;

STICKLINE((ZF>9) ,OPEN,CLOSE,0.3,0 ),COLOREE00EE;

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);

K:=EMA(R,3);

D:=EMA(K,3);

陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);

N:=IF((陡峭度 > 0.35),6,65);

VARB1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));

VARA1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));

獲利盤:=(WINNER(CLOSE))*(100);

獲利線:=FORCAST(獲利盤,7);

線:=(FORCAST(VARA1,7))*((DATE < 20070110));

滿倉:=((線 > REF(線,1)) AND (線 < 25) AND (COUNT((線 > REF(線,1)),5) = 1) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0));

DRAWTEXT(滿倉,LOW*0.99,'倉',COLORRED;

輕倉:=IF((獲利盤 >= 60) AND (線 > REF(線,1)) AND (REF(線,1) < 20) AND (線 < 40) AND (COUNT((線 > REF(線,1)),5) = 1) AND (REF(N,1) = 6),1,0);

DRAWTEXT(輕倉,LOW*0.99,'倉',COLORYELLOW;?

進一:=CROSS(線,D) AND (D > 30) AND (D > REF(D,1)) AND (D < 80);

進二:=CROSS(線,獲利線) AND (D > 30) AND (獲利線 > 25) AND (D > REF(D,1));

低進:=IF(進一 AND (D > 獲利線),進二,進一);

DRAWTEXT(低進,LOW*0.98,'進',COLORRED;

DRAWTEXT(進二,LOW*0.99,'進',COLORGRAY;

狂喜:=(CROSS(VARB1,(-2)));

DRAWTEXT(狂喜,(LOW*0.99),'漲停',COLORYELLOW;

恐慌:=(VARB1 < -99);?

DRAWTEXT(恐慌,(LOW*0.98),'慌',COLORWHITE;

半倉:=(CROSS(VARB1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0));

DRAWTEXT(半倉,LOW*0.99,'倉',COLORWHITE;

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);

VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);

VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR

VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;

VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR

VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;?

DRAWICON(FILTER(VAR19=1,5),(LOW * 0.98),7);?

DRAWICON(FILTER(VAR1A=1,5),(HIGH * 1.02),8);? ?

XL1:=((LLV(LOW,3) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) >= 1.04));

DRAWTEXT(FILTER(((XL1 > 0) AND LOW),5),(LOW * 1.01),'買點';

XL2:=(((CLOSE - EMA(CLOSE,21)) / EMA(CLOSE,21)) * 100);

XL3:=CROSS(XL2,(0 - 20));

DRAWTEXT((XL3 > 0),(LOW * 1.01),'絕對底部';

JK:=BARSCOUNT(CLOSE);

AH:=HHV(HIGH,200);

AL:=LLV(LOW,200);

B0:=(AH-AL)/40;

B1:=HIGH+B0;

B2:=LOW-B0;

DRAWTEXT((JK+0)/34=FLOOR((JK+0)/34),B2-2.2*B0*-0.60,'窗,變盤',COLORRED;

DRAWTEXT(C>=MA(C,J) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,J),'黃色持股 (短線)',COLORYELLOW;

DRAWTEXT(C<MA(C,J) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,J),'藍色持幣 (短線)',COLORFF9933;??

DRAWTEXT(C>=MA(C,M) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,M),'黃色持股 (中線)',COLORYELLOW;

DRAWTEXT(C<MA(C,M) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,M),'藍色持幣 (中線)',COLORFF9933;

?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?