打印本文
關閉窗口
追風_: 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.tumamayizhan.com
?