|
大陸指標原碼
大陸指標 原碼如下
鄭重說明：指標未用於實戰，有些有用到未來函數；請自行根據需要斟酌修改成自己適合的
有些指標看似很準；大部分有用到未來函數；敢用你可以把它當作預警，不敢用就請捨棄 特此說明
小護士--副圖
ys1:=(HIGH+LOW+CLOSE*2)/4;
rk3:=EMA(ys1,10);
rk4:=STD(ys1,10);
rk5:=(ys1-rk3)*100/rk4;
rk6:=EMA(rk5,5);
rk7:=EMA(rk6,10);
漲:EMA(rk6,10)+100/2-5,linethick1,colorred;
跌:EMA(漲,4),linethick1,colorwhite;
水面:IF(cross(漲,跌) and 跌<-10,30,0),linethick1,colorccccff;
看跌:IF(cross(跌,80),70,100),color0099ff,linethick1;
買1:ema(跌,4),colorf00ff0;
買2:ema(買1,4),colorgreen;
買3:=ema(買2,4),coloryellow;
買4:=ema(買3,4),colorcc9900;
-10,pointdot,color888888,linethick2;
80,pointdot,color888888,linethick2;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),0,0 ),COLOR00FF00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),8,0 ),COLOR008800;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),7,0 ),COLOR009900;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),6,0 ),COLOR00AA00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),5,0 ),COLOR00BB00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),4,0 ),COLOR00CC00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),3,0 ),COLOR00DD00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),2,0 ),COLOR00EE00;
STICKLINE(漲<REF(漲,1),漲,MA(漲,3),1,0 ),COLOR00FF00;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),0,0) ,COLOR00BBFF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),8,0) ,COLOR0011FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),7,0) ,COLOR0022FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),6,0) ,COLOR0044FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),5,0) ,COLOR0066FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),4,0) ,COLOR0088FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),3,0) ,COLOR0099FF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),2,0) ,COLOR00AAFF;
STICKLINE(漲> REF(漲,1),漲,EMA(漲,3),1,0) ,COLOR00BBFF;
DRAWICON(水面,30,1),color0000ff;
DRAWICON(cross(跌,80),70,2),colorgreen;
DRAWTEXT(cross(漲,跌) and 跌<20 and 跌>-10,40,'買入'),colorccff99;
DRAWTEXT(水面>0,-20,'看漲'),color0000ff;
Var11:=SUMBARS(VOL,FINANCE(7)*100);
Var22:=DMA(EMA(CLOSE,12),SUM(VOL,5)/3/CAPITAL);
Var3:=(CLOSE-Var22)/Var22*100;
Var4:=HHV(Var3,Var11);
Var5:=LLV(Var3,Var11);
Var6:=(Var3-Var5)/(Var4-Var5)*100;
K:=SMA(Var6,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
MA1:=MA(J,3),colorgreen;
STICKLINE(filter(J>MA1 AND J<=3,5)=1 and 跌<0,漲,漲+20,6,0),coloryellow;
DRAWTEXT(filter(J>MA1 AND J<=3,5)=1 and 跌<0,60,'考慮買進'),colorffffff;
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
N:=IF((陡峭度 > 0.35),6,65);
var1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));
var1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));
獲利盤:=(WINNER(CLOSE))*(100);
獲利線:=FORCAST(獲利盤,7);
線:=(FORCAST(var1A,7))*((DATE < 20070110));
滿倉:=((線 > REF(線,1)) AND (線 < 25) AND (COUNT((
線 > REF(線,1)),5) = 1) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0))*(40);
STICKLINE(滿倉,0,40,5,0),COLOR008000;
DRAWTEXT(滿倉,45,'滿倉'),COLOR008000;
輕倉:=IF((獲利盤 >= 60) AND (線 > REF(線,1)) AND (REF(線,1) < 20) AND (線 < 40) AND (COUNT((線 > REF(線,1)),5) = 1) AND (REF(N,1) = 6),1,0);
STICKLINE(輕倉,20,D,4,1),COLORFF00FF;
DRAWTEXT(輕倉,45,'輕倉'),COLORFF00FF;
出擊:=CROSS(線,20) AND IF((COUNT(CROSS(K,D),3) = 1) AND (D < 40),1,(線 > D) OR (K > D) AND (D < 60)) AND IF((N = 6),(獲利盤 < 70),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0);
STICKLINE(出擊,0,50,3,1),COLOR44BB00;
DRAWTEXT(出擊,55,'出擊'),COLORRED;
進一:=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(低進,30,'低進'),COLORFF0000;
STICKLINE(低進,20,30,3,1),COLOR000080;
{DRAWTEXT(進二,50,'高進'),COLOR800080;
STICKLINE(進二,30,50,3,1),COLORYELLOW;}
狂喜:=(30)*(CROSS(var1,(-2)));
STICKLINE(狂喜,0,20,3,1),COLORYELLOW;
DRAWTEXT(狂喜,(-5),'要漲停'),COLORYELLOW;
狂喜過望:=(50)*((var1 = 0));
恐慌:=(-20)*((var1 < (-94))),COLORC1C1C1;
STICKLINE(恐慌,0,(-20),5,0),COLORC1C1C1;
DRAWTEXT(恐慌,(-25),'恐慌'),COLORC1C1C1;
{極度恐慌 -40)*((var1 = (-100))),COLOR800000;
STICKLINE(極度恐慌,0,(-40),7,1),COLOR800000;
DRAWTEXT(極度恐慌,(-45),'極度恐慌'),COLOR800000;}
半倉:=(30)*(CROSS(var1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0));
STICKLINE(半倉,0,30,4,1),COLORFFFF00;
DRAWTEXT(半倉,35,'半倉'),COLORFFFF00;
{加倉:=(30)*(CROSS(K,20) AND (COUNT(半倉,5) > 0));
STICKLINE(加倉,0,20,6,1),COLOR808080;
DRAWTEXT(加倉,25,'加倉'),COLOR808080;
背離:=(COUNT(恐慌,2) > 0) AND (CLOSE < REF(CLOSE,1)) AND (var1 > REF(var1,1));
DRAWICON(背離,0,1),COLORFFFFFF;}
 附件: 小護士.ALG
此文件已被下載 270 次。
|
2008-06-14 11:53
