|
（源碼轉(zhuǎn)貼，稍作加工，僅供參考。） //------------------------------------------------ Var1:=DATE<1991231; Var2:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100; Var3:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100; Var4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100; Var5:=REF(CLOSE,1); Var6:=SMA(MAX(CLOSE-Var5,0),5,1)/SMA(ABS(CLOSE-Var5),5,1)*100; Var7:=(HIGH+LOW+CLOSE)/3; Var8:=(Var7-MA(Var7,14))/(0.015*AVEDEV(Var7,14)); Var9:=Var2>=-15.8 AND Var2<=-12.2 AND Var3<=-20.8 AND Var4<=-27.5 AND Var6<=11.7 AND Var8<=-140; VarA:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>-0.098; VarB:=VOL/CAPITAL*100<6; VarC:=ZIG(2,5); VarD:=LLVBARS(VarC,50); VarE:=REF(OPEN,VarD-1)*1.1; VarF:=VOL/CAPITAL*100; Var10:=REF(VOL,1)/CAPITAL*100; Var11:=VarF/Var10; Var12:=SUM(VarF,10); Var13:=VarF/Var12*10; Var14:=CLOSE/REF(CLOSE,1)>1.09 AND Var11>2.5; a:=(Var9 AND VarA AND VarB)*30*Var1; 果斷出擊:if(a>0,30,0) STICK,COLORWHITE; DRAWICON( 果斷出擊>0,30 ,1 ); DRAWTE55188(果斷出擊>0,18, '★果斷')COLORWHITE ; Var15:=BARSLAST(a); b:=(Var1*CLOSE>=REF(CLOSE,Var15)*1.05 AND Var15<20)*5,; 短線:if(b>0,8,0) STICK, ,COLORYELLOW ; DRAWICON(短線>0,8,10); //DRAWTE55188(短線>0,5, '★短線') ,COLORYELLOW ; 長線: (Var1*CLOSE>=REF(CLOSE,Var15)*1.3 AND Var15<250)*30,COLORGREEN,LINESTICK; 中線: (Var1*CLOSE>=REF(CLOSE,Var15)*1.1 AND Var15<100)*10,LINESTICK,COLORMAGENTA; DRAWICON(a=30,30,1); Var16:=Var14 AND Var13; 關(guān)注:if(果斷出擊>0 or 短線>0,1,0),STICK,COLORCYAN; PARTLINE(C>0,0),COLOR000000; PARTLINE(C>0,0),COLORFFAA00,LINEDOT; //---------- END ---------- [ Last edited by 南山霧 on 2005-9-17 at 12:08 ]股票論壇 www.55188.com |
|
|
