程序源碼

短線:=20*(CLOSE-MA(CLOSE,3))/MA(CLOSE,3)*20,LINETHICK0,COLORYELLOW;

中線:=20*(CLOSE-MA(CLOSE,3))/MA(CLOSE,3)*20,LINETHICK0,COLORWHITE;

紅柱持股:SMA(短線,3,1),COLORRED,NODRAW;

藍柱持幣:SMA(中線,3,1),COLORFFFF00,NODRAW;

VAR1:=紅柱持股;

VAR2:=藍柱持幣;

STICKLINE(VAR1< REF(VAR1,0.5)AND VAR1>0,0,VAR1,3,0),COLOR0000AA;

STICKLINE(VAR1< REF(VAR1,0.5)AND VAR1>0,0,VAR1,2.3,0),COLOR0000BB;

STICKLINE(VAR1< REF(VAR1,0.5)AND VAR1>0,0,VAR1,2,0),COLOR0000CC;

STICKLINE(VAR1< REF(VAR1,0.5)AND VAR1>0,0,VAR1,1.6,0),COLOR0000DD;

STICKLINE(VAR1< REF(VAR1,0.5)AND VAR1>0,0,VAR1,1.3,0),COLOR0000EE;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1>0,0,VAR1,1,0),COLOR0000FF;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1>0,0,VAR1,0.65,1),COLORRED;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1>0,0,VAR1,1,0),COLOR00FF00;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,3,0),COLOR0000AA;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,2.3,0),COLOR0000BB;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,2,0),COLOR0000CC;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,1.6,0),COLOR0000DD;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,1.3,0),COLOR0000EE;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,1,0),COLOR0000FF;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1>0,0,VAR1,0.65,0),COLORRED;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,9,0),COLOR0000FF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,2.3,0),COLOR0033FF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,2,0),COLOR0055FF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,1.6,0),COLOR0077FF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,1.3,0),COLOR0099FF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,1,0),COLOR00BBFF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,0.65,0),COLOR00DDFF;

STICKLINE(VAR2< REF(VAR2,1) AND VAR2>0,0,VAR2,1,0),COLOR00FFFF;

STICKLINE(VAR1>REF(VAR1,0)AND VAR1< 0,0,VAR1,3,0),COLORFF0000;

STICKLINE(VAR1>REF(VAR1,0)AND VAR1< 0,0,VAR1,2.3,0),COLORFF3300;

STICKLINE(VAR1>REF(VAR1,0)AND VAR1< 0,0,VAR1,2,0),COLORFF5500;

STICKLINE(VAR1>REF(VAR1,0)AND VAR1< 0,0,VAR1,1.6,0),COLORFF7700;

STICKLINE(VAR1>REF(VAR1,0)AND VAR1< 0,0,VAR1,1.3,0),COLORFF9900;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1< 0,0,VAR1,1,0),COLORFFBB00;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1< 0,0,VAR1,0.65,0),COLORFFDD00;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1< 0,0,VAR1,1,1),COLORFF00FF;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,3,0),COLORFF0000;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,2.3,0),COLORFF3300;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,2,0),COLORFF5500;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,1.6,0),COLORFF7700;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,1.3,0),COLORFF9900;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,1,0),COLORFFBB00;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,0.65,0),COLORFFDD00;

STICKLINE(VAR1< REF(VAR1,1)AND VAR1< 0,0,VAR1,0,0),COLORFFFF00;

STICKLINE(VAR2>REF(VAR2,1)AND VAR2< 0,0,VAR2,3.5,0),COLOR990099;

STICKLINE(VAR2>REF(VAR2,1)AND VAR2< 0,0,VAR2,2,0),COLORBB00BB;

STICKLINE(VAR2>REF(VAR2,1)AND VAR2< 0,0,VAR2,1,0),COLORDD00DD;

STICKLINE(VAR2>REF(VAR2,1)AND VAR2< 0,0,VAR2,0,0),COLORFF00FF;

DRAWTEXT(CROSS(VAR1,0),0-0,'追'),COLORFF00FF;

DRAWTEXT(CROSS(VAR2,0),0-0,'買'),COLORGREEN;

注：

       館內(nèi)各種公式為學(xué)習(xí)編程而保存，實戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔。

       發(fā)文不易，如獲益，歡迎贊賞，贊賞必復(fù)！