自動百分箱體指標公式源碼[同花順公式]

相關標簽: 一周百分之十 指標 、 百發百中副圖指標公式 、 百發百中指標 、 百發百中選股指標公式 、 百路發指標使用說明書 、 百聞 指標 、 潤百分卵素膠囊好嗎 、 潤百分效果好不好 、 電腦cpu百分多少好 、

 自動百分箱體指標公式源碼

input:k(1,1,3,1);
hh:= SYSPARAM(4);
ll:= SYSPARAM(5);
HL:=hh-ll;
wH := BARSlast(H=hh);
wL :=BARSlast(L=ll);
KK := wH-wL;
a1 :=if(kk<0,hh- HL*0.25,ll+HL*0.25);
a2 :=if(kk<0,hh- HL*0.75,ll+HL*0.75);
a3 :=if(kk<0,hh- HL*0.3125,ll+HL*0.3125);
mHL:= hh-HL*0.5;b1:=if(kk<0,hh- HL*0.125,ll+HL*0.125);b2:=if(kk<0,hh- HL*0.0625,ll+HL*0.0625);b3:=if(kk<0,hh- HL*0.375,ll+HL*0.375);b4:=if(kk<0,hh- HL*0.625,ll+HL*0.625);
b5:=if(kk<0,hh- HL*0.1875,ll+HL*0.1875);b6:=if(kk<0,hh- HL*0.875,ll+HL*0.875);b7:=if(kk<0,hh- HL*0.4375,ll+HL*0.4375);b8:=if(kk<0,hh- HL*0.5625,ll+HL*0.5625);
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');
b9:=if(kk<0,hh- HL*0.6875,ll+HL*0.6875);b10:=if(kk<0,hh- HL*0.9375,ll+HL*0.9375);b11:=if(kk<0,hh- HL*0.8125,ll+HL*0.8125);A := islastbar;
DRAWTEXT(A and K<>3,HH, '最高價：'+NUMTOSTR(HH,2)),ALIGN2,colorred;DRAWTEXT(A and K<>3,LL, '最低價：'+NUMTOSTR(ll,2)),ALIGN2,,COLORCYAN;
DRAWTEXT(A and K<>3,mHL,'50%：'+NUMTOSTR(mHL,2)),ALIGN2,coloryellow;DRAWTEXT(A and K=1, a1, '25%：'+NUMTOSTR(a1,2)),ALIGN2,coloryellow; //本文來至CXH99.COM//
DRAWTEXT(A and K=1, a2, '75%：'+NUMTOSTR(a2,2)),ALIGN2,colorgreen;DRAWTEXT(A and K=1, a3, '31.25%：'+NUMTOSTR(a3,3)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b1, '12.5%：'+NUMTOSTR(b1,2)),ALIGN2,COLORGRAY;DRAWTEXT(A and K=1, b2, '6.25%：'+NUMTOSTR(b2,2)),ALIGN0,COLORGRAY;
DRAWTEXT(A and K=1, b3, '37.5%：'+NUMTOSTR(b3,2)),ALIGN2,COLORGRAY;DRAWTEXT(A and K=1, b4, '62.5%：'+NUMTOSTR(b4,2)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b5, '18.75%：'+NUMTOSTR(b5,3)),ALIGN2,COLORGRAY;DRAWTEXT(A and K=1, b6, '87.5%：'+NUMTOSTR(b6,2)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b7, '43.75%：'+NUMTOSTR(b7,2)),ALIGN2,COLORGRAY;DRAWTEXT(A and K=1, b8, '56.25%：'+NUMTOSTR(b8,2)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b9, '68.75%：'+NUMTOSTR(b9,2)),ALIGN2,COLORGRAY;DRAWTEXT(A and K=1, b10, ' 93.75%：'+NUMTOSTR(b10,2)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b11, ' 81.25：'+NUMTOSTR(b11,2)),ALIGN2,COLORGRAY;
DRAWTEXT(A and K=1, b7, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b8, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b9, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b10, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b11, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(A and K<>3,LL, '--------------------------------------------------------------------------------------------------------------------------------------------------'),ALIGN2,COLORCYAN,linethick7;
DRAWTEXT(A and K<>3,mHL,'-------------------------------------------------------------------------------------------------------------'),ALIGN2,coloryellow,linethick7; //內容來至程序化交易網 CXH99.COM//
DRAWTEXT(A and K=1, a1, '--------------------------------------------------------------------------------------------------------------'),ALIGN2,COLORMAGENTA,linethick7;
DRAWTEXT(A and K=1, a2, '--------------------------------------------------------------------------------------------------------------'),ALIGN2,colorgreen,linethick7;
DRAWTEXT(A and K=1, a3, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b1, '-------------------------------------------------------------------'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b2, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b3, '-----------------------------------------------------------------------------------'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b4, '-----------------------------------------------------------------------------------'),ALIGN2,COLORGRAY,linethick7;
DRAWTEXT(A and K=1, b5, '- - - - - - - - - - - - - - - - - -'),ALIGN2,COLORGRAY,linethick7; //內容來至程序化交易網 CXH99.COM//
DRAWTEXT(A and K=1, b6, '----------------------------------------------------------------------------------'),ALIGN2,COLORGRAY,linethick7;