相關標簽: 同花順天狼三劍 、 同花順指標公式源碼 、 天狼劍頂底公式源碼 、 同花順主圖指標源碼 、 天狼劍 主圖 源碼 、 天狼劍源碼 、 天狼劍4源碼 、 同花順公式源碼 、 同花順選股公式源碼 、

天狼劍公式指標公式源碼

if(date>20080915) xxx:=0 ;
else xxx:=1;
b1:=ma(c,1);
b2:=sma(sma(sma(b1,2,1),2,1),2,1)*xxx;
sma2:=ma(b2,3)*xxx;
停損下限:if(llv(ma(b2,8),3)<b2,llv(ma(b2,8),3),b2)*xxx;
fillrgn(b2,sma2,b2>sma2,rgb(255,200,0),b2<sma2,rgb(0,255,0));
snakea:hhv(ma(b2,1),13),corloyellow;
var1:=(2*close+high+low)/4;
var2:=ma(var1,7);
var3:=var2-ma(var1,7/2)<0;
var4:=var2-ma(var1,7/2)>0;
var5:=barslast(var3);
var6:=0-barslast(var4);
var7:=if(var3<=0,var5,var6);
stickline(snakea>b2 and b2>sma2,snakea,b2,1,1),colorblue;
stickline(snakea>sma2 and b2<sma2,snakea,sma2,1,1),colorblue;
var11:=(close*2+high+low)/4;
var21:=ema(var11,13)-ema(var11,34);
var31:=ema(var21,5);
stickline((c>=o),open,low,1,0),color0726ca;
stickline((c>=o),close,high,1,0),color0726ca;
stickline((c<o),close,low,1,0),colorde9100;
stickline((c<o),open,high,1,0),colorde9100;
stickline((c<o),close,open,8,0),colorff5b00;
stickline((c<o),close,open,10,0),color000000;
stickline((c<o),close,open,7,0),colorff6c00;
stickline((c<o),close,open,6,0),colorff7b00;
stickline((c<o),close,open,5,0),colorff9c00;
stickline((c<o),close,open,4,0),colorffbe00;
stickline((c<o),close,open,2.5,0),colorffcc00;
stickline((c<o),close,open,1.5,0),colorffff00;
stickline((c>o),close,open,8,0),color070084;
stickline((c>o),close,open,10,0),color000000;
stickline((c>o),close,open,7,0),color0000a3;
stickline((c>o),close,open,6,0),color0000b7;
stickline((c>o),close,open,5,0),color0000cd;
stickline((c>o),close,open,4,0),color0000e9;
stickline((c>o),close,open,2,0),color0754e9;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');
stickline((c>o),close,open,1.5,0),color076ef3;
stickline((c>o),close,open,1,0),color077bf3;
var2:=((close > ref(close,1)) and (close > ref(close,2)))*xxx;
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))); //本文來至CXH99.COM//
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:=((ref(varc,1) and (close <= ref(close,1))) and (close >= ref(close,2)));
vare:=((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(var18,1) and (close >= ref(close,1))) and (close <= ref(close,2)));
var1a:=(ref((((((((((((vare or varf) or var10) or var11) or var12) or var13) or var14) or var15) or var16) or var17) or var18) or var19),1) and var2);
stickline(var1a,o,o+(c-o)/3,8,0),color0000ff;
stickline(var1a,o,o+(c-o)/3,7,0),color1029ff;
stickline(var1a,o,o+(c-o)/3,6,0),color1040ff;
stickline(var1a,o,o+(c-o)/3,5,0),color1083ff; //文章來至程序化交易網 cxh99.com//
stickline(var1a,o,o+(c-o)/3,4,0),color10abff;
stickline(var1a,o,o+(c-o)/3,3,0),color10d0ff;
stickline(var1a,o,o+(c-o)/3,2,0),color10ffff;
stickline(var1a,o,o+(c-o)/3,1,0),color00ffff;
aa:=(ref((((((((((((var2 or var3) or var4) or var5) or var6) or var7) or var8) or var9) or vara) or varb) or varc) or vard),1) and vare);

stickline(aa,o,o+(c-o)/3,8,0),color008800;
stickline(aa,o,o+(c-o)/3,7,0),color009900;
stickline(aa,o,o+(c-o)/3,6,0),color00aa00;
stickline(aa,o,o+(c-o)/3,5,0),color00bb00;
stickline(aa,o,o+(c-o)/3,4,0),color00cc00;
stickline(aa,o,o+(c-o)/3,3,0),color00dd00;
stickline(aa,o,o+(c-o)/3,2,0),color00ee00;
stickline(aa,o,o+(c-o)/3,1,0),color00ff00;
a13:=ema(close,55);
a14:=ma(close,75);
a15:=ema(a14,3);
a16:=ema(a15,3);
a17:=(high + low) / 5;
a18:=(ma(a17,4)) - (ma(a17,34));
a19:=cross(a18,0);
a20:=cross(0,a18);
a21:=barslast(a19);
a22:=barslast(a20);
a23:=ref(a19,1);
a24:=ref(a20,1);
a25:=barslast(a23);
a26:=barslast(a24);
a27:=if((a25 < a26),(ref((hhv(high,2)),a25)),(ref((llv(low,2)),a26)));
a28:=(((ref(close,1)) <= (ref(a27,1))) and (close > a27)) and (a21 < a22);
a29:=(((ref(close,1)) >= (ref(a27,1))) and (close < a27)) and (a22 < a21);
a30:=a28 and ((count(a28,a21)) = 1);
a31:=a29 and ((count(a29,a22)) = 1);
a32:=a30 and ((ref(barslast(a31),1)) < (ref(barslast(a30),1)))*xxx;
a33:=a31 and ((ref(barslast(a31),1)) > (ref(barslast(a30),1)));
//drawtext(a32*xxx,sma2*0.99,'←═╬∝'),coloryellow;
drawbmp(a32*xxx,sma2*0.99,"sworf");
ac:=money/(vol);
yy:=ma(ac,13);
lll:=(c-yy)/yy*100;
midc := ma(close,22);
upperc:= midc + 2*std(c,22);
lowerc:= midc - 2*std(c,22); //本文來至CXH99.COM//
bba:=(c-lowerc)/(upperc-lowerc);
bbc:=forcast(bba,3);
lifengcyc:=(ref(lll,1)<-15 and ref(bba,1)<0 and lll>ref(lll,1))*xxx;
//stickline(lifengcyc,bbc,0.5,6,0);
//bbd:(upper+lower)/2*(c-upper);
stickline(lifengcyc>0,c,o,8,0),colorred;
stickline(lifengcyc>0,c,o,7,0),color1029ff;
stickline(lifengcyc>0,c,o,6,0),color1040ff;
stickline(lifengcyc>0,c,o,4,0),color1083ff;
stickline(lifengcyc>0,c,o,2,0),color10abff;
stickline(lifengcyc>0,c,o,1.5,0),color10d0ff;
stickline(lifengcyc>0,c,o,1,0),color10ffff;
drawtext(lifengcyc>0,low*0.99,'☆'),colordd00dd;

//文章來至程序化交易網 cxh99.com//

//文章來至程序化交易網 cxh99.com//