|
?DRAWGBK(O>C,RGB(80,50,80),RGB(80,20,100),0,'01',0); 短高H1:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6) +13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12) +7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+ REF(H,20))/210,COLORBLUE,LINETHICK1; 短低L1:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6) +13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12) +7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+ REF(L,20))/210,COLORBLUE,LINETHICK1; D90H1:=EMA(短高H1,90)-(EMA(短高H1,90)-EMA(短低L1,90))*0.2,COLORRED,LINETHICK1; D90L1:=EMA(短低L1,90)+(EMA(短高H1,90)-EMA(短低L1,90))*0.2,COLORRED,LINETHICK1; 高01:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK1,COLORWHITE; 低01:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORWHITE; 多頭定位1:=(高01+低01)/2>(D90H1+D90L1)/2; 空頭定位1:=(高01+低01)/2<(D90H1+D90L1)/2; 頂11:=(MA(CLOSE,55)+MA(CLOSE,110))/2*1.204,COLORYELLOW,LINETHICK0; 底11:=(MA(CLOSE,55)+MA(CLOSE,110))/2*1.102,COLORYELLOW,LINETHICK0; STICKLINE(多頭定位1=1,頂11,底11,5,0),COLOR203070; STICKLINE(空頭定位1=1,頂11,底11,5,0),COLOR208700; 頂12:=(MA(CLOSE,55)+MA(CLOSE,110))/2*0.898,COLORYELLOW,LINETHICK0; 底12:=(MA(CLOSE,55)+MA(CLOSE,110))/2*0.796,COLORYELLOW,LINETHICK0; STICKLINE(多頭定位1=1,頂12,底12,5,0),COLOR203070; STICKLINE(空頭定位1=1,頂12,底12,5,0),COLOR208700; 短高H:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6) +13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12) +7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+ REF(H,20))/210,COLORBLUE,LINETHICK1; 短低L:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6) +13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12) +7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+ REF(L,20))/210,COLORBLUE,LINETHICK1; D90H:=EMA(短高H,90),COLORRED,LINETHICK1; D90L:=EMA(短低L,90),COLORRED,LINETHICK1; D90差:=D90H-D90L; D90頂:=D90H+D90差*2,COLORRED,LINETHICK1; D90底:=D90L-D90差*2,COLORRED,LINETHICK1; 高0:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK1,COLORWHITE; 低0:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORWHITE; 多頭定位:=低0>=D90底 AND 高0>=D90頂; 空頭定位:=高0<=D90頂 AND 低0<=D90底; 震蕩定位:=低0>=D90底 AND 高0<=D90頂; 頂1:=(MA(CLOSE,55)+MA(CLOSE,110))/2*1.102,COLORYELLOW,LINETHICK0; 底1:=(MA(CLOSE,55)+MA(CLOSE,110))/2*0.898,COLORYELLOW,LINETHICK0; STICKLINE(多頭定位=1,頂1,底1,5,0),COLOR003585; STICKLINE(空頭定位=1,頂1,底1,5,0),COLOR608810; STICKLINE(震蕩定位=1,頂1,底1,5,0),COLOR555555; XCLOSE:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3); XOPEN:=EMA((REF(OPEN,1)+REF(XCLOSE,1))/2,3); TEMPG:=MAX(HIGH,XOPEN); XHIGH:=EMA(MAX(TEMPG,XCLOSE),3); TEMP:=MIN(LOW,XOPEN); XLOW:=EMA(MIN(TEMP,XCLOSE),3); O1:=IF(XOPEN<XCLOSE,XOPEN,XCLOSE); C1:=IF(XOPEN<XCLOSE,XCLOSE,XOPEN); DRAWKLINE(HIGH,OPEN,LOW,CLOSE); HH:=(6*H+5*REF(H,1)+4*REF(H,2)+3*REF(H,3)+2*REF(H,4)+REF(H,5))/21; LL:=(6*L+5*REF(L,1)+4*REF(L,2)+3*REF(L,3)+2*REF(L,4)+REF(L,5))/21; {TDX沒(méi)有WMA函數(shù)，上面的寫法代替} {A1:=IF(C>REF(EXPMEMA(H,6),1),1,0); A2:=IF(C<REF(EXPMEMA(L,6),1),-1,0);} A1A:=IF(C>REF(HH,1),1,0); A2A:=IF(C<REF(LL,1),-1,0); A3A:=A1A+A2A; A4A:=IF(A3A=0,REF(A3A,BARSLAST(NOT(A3A=0))),A3A); 轉(zhuǎn)折:=IF(A4A=-1,MA(HIGH,6),MA(LOW,6))LINETHICK1,COLORYELLOW; 帝:=(COST(99)+COST(93)+COST(85))/3,COLORLIGREEN,DOTLINE,LINETHICK3; 漢:=(COST(84)+COST(67)+COST(50))/3,COLORBLUE,DOTLINE,LINETHICK3; 楚:=(COST(16)+COST(34)+COST(49))/3,COLORRED,DOTLINE,LINETHICK3; 刎:=(COST(1)+COST(7)+COST(15))/3,COLORMAGENTA,DOTLINE,LINETHICK3; 漢飄移:(漢-REF(漢,3))/REF(漢,3)*100,COLORLIMAGENTA,NODRAW; 河飄移:(楚-REF(楚,3))/REF(楚,3)*100,COLORRED,NODRAW; 水:(MA(CLOSE,55)+MA(CLOSE,110))/2,COLORMAGENTA,LINETHICK1; 木:水*1.102,COLORGRAY,LINETHICK1; 火:水*0.898,COLORGRAY,LINETHICK1; 金:水*1.204,COLORGRAY,LINETHICK1; 土:水*0.796,COLORGRAY,LINETHICK1; DRAWTEXT(CURRBARSCOUNT=5,金,STRCAT('金:',CON2STR(金,2))),COLORWHITE; DRAWTEXT(CURRBARSCOUNT=5,木,STRCAT('木:',CON2STR(木,2))),COLORWHITE; DRAWTEXT(CURRBARSCOUNT=5,水,STRCAT('水:',CON2STR(水,2))),COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=5,火,STRCAT('火:',CON2STR(火,2))),COLORWHITE; DRAWTEXT(CURRBARSCOUNT=5,土,STRCAT('土:',CON2STR(土,2))),COLORWHITE; DRAWTEXT_FIX(1,0.15,0,0,'~☆~符美勝作品~☆~'),COLORYELLOW; |
|
|
