咨詢內容：
K:=1; N:=3; 巨浪H:DRAWLINE(H=HHV(H,270),H,L=LLV(L,270),L,0),POINTDOT,LINETHICK4,COLORMAGENTA; 巨浪L:DRAWLINE(L=LLV(L,270),L,H=HHV(H,270),H,0),POINTDOT,LINETHICK4,COLORMAGENTA; 大浪H:DRAWLINE(H=HHV(H,90),H,L=LLV(L,90),L,0),LINETHICK3,COLORRED; 大浪L:DRAWLINE(L=LLV(L,90),L,H=HHV(H,90),H,0),LINETHICK3,COLORRED; 中浪H:DRAWLINE(H=HHV(H,30),H,L=LLV(L,30),L,0),LINETHICK2,COLORLIBLUE; 中浪L:DRAWLINE(L=LLV(L,30),L,H=HHV(H,30),H,0),LINETHICK2,COLORLIBLUE; 小浪H:DRAWLINE(H=HHV(H,10),H,L=LLV(L,10),L,0),COLORWHITE; 小浪L:DRAWLINE(L=LLV(L,10),L,H=HHV(H,10),H,0),DOTLINE,COLORWHITE; ZLH:=STRCAT('頂天數:',CON2STR(CONST(BARSLAST(H=HHV(H,30))),0)); ZLL:=STRCAT(' 底天數:',CON2STR(CONST(BARSLAST(L=LLV(L,30))),0)); ZLTS:=STRCAT('中浪:',STRCAT(ZLH,ZLL)); DLH:=STRCAT(' 頂天數:',CON2STR(CONST(BARSLAST(H=HHV(H,90))),0)); DLL:=STRCAT(' 底天數:',CON2STR(CONST(BARSLAST(L=LLV(L,90))),0)); DLTS:=STRCAT(' 大浪:',STRCAT(DLH,DLL)); LXTS:=STRCAT('浪型天數: ',STRCAT(ZLTS,DLTS)); DRAWTEXT_FIX(ISLASTBAR=1,0,0,0,LXTS),COLORWHITE; T:=10*3*N; A:=H=HHV(H,T) AND HHV(H,T)>REF(HHV(H,T),1); B:=L=LLV(L,T) AND LLV(L,T)<REF(LLV(L,T),1); WAVE1:=DRAWLINE(A,H,B,L,0); WAVE2:=DRAWLINE(B,L,A,H,0); ZG:=IF(WAVE1<REF(WAVE1,1) OR WAVE1=WAVE2,WAVE1,WAVE2),COLORMAGENTA; 峰:=WAVE2=WAVE1 AND A; 谷:=WAVE2=WAVE1 AND B; 峰峰天:=BARSLAST(峰)+1; 谷谷天:=BARSLAST(谷)+1; D1:=HHV(H,T)>REF(HHV(H,T),1) AND ISLASTBAR AND WAVE2!=WAVE1; D2:=LLV(L,T)<REF(LLV(L,T),1) AND ISLASTBAR AND WAVE2!=WAVE1; D3:=IF(谷 OR D2,峰峰天,IF(峰 OR D1,谷谷天,DRAWNULL)); D4:=IF(谷 OR D2,L*0.99,IF(峰 OR D1,H*1.01,DRAWNULL)); DRAWNUMBER(D3>0 AND K=1,D4,SUM("HSL.HSL",D3)),COLORGREEN;
?
?來源:程序化99
文華技術人員：
參考： K:=1;N:=3;巨浪H:TRENDLINES(H=HHV(H,270),H,L=LLV(L,270),L),NODRAW;DRAWLINE1(H=HHV(H,270),H,L=LLV(L,270),L,0),POINTDOT,LINETHICK4,COLORMAGENTA;巨浪L:TRENDLINES(L=LLV(L,270),L,H=HHV(H,270),H),NODRAW;DRAWLINE1(L=LLV(L,270),L,H=HHV(H,270),H,0),POINTDOT,LINETHICK4,COLORMAGENTA;大浪H:TRENDLINES(H=HHV(H,90),H,L=LLV(L,90),L),NODRAW;DRAWLINE1(H=HHV(H,90),H,L=LLV(L,90),L,0),LINETHICK3,COLORRED;大浪L:TRENDLINES(L=LLV(L,90),L,H=HHV(H,90),H),NODRAW;DRAWLINE1(L=LLV(L,90),L,H=HHV(H,90),H,0),LINETHICK3,COLORRED;中浪H:TRENDLINES(H=HHV(H,30),H,L=LLV(L,30),L),NODRAW;DRAWLINE1(H=HHV(H,30),H,L=LLV(L,30),L,0),LINETHICK2,COLORBLUE;中浪L:TRENDLINES(L=LLV(L,30),L,H=HHV(H,30),H),NODRAW;DRAWLINE1(L=LLV(L,30),L,H=HHV(H,30),H,0),LINETHICK2,COLORBLUE;小浪H:TRENDLINES(H=HHV(H,10),H,L=LLV(L,10),L),NODRAW;DRAWLINE1(H=HHV(H,10),H,L=LLV(L,10),L,0),COLORWHITE;?小浪L:TRENDLINES(L=LLV(L,10),L,H=HHV(H,10),H),NODRAW;DRAWLINE1(L=LLV(L,10),L,H=HHV(H,10),H,0),DOT,COLORWHITE;頂天數:REFX1(BARSLAST(H=HHV(H,30)),9999),NODRAW;底天數:REFX1(BARSLAST(L=LLV(L,30)),9999),NODRAW;T:=10*3*N;A:=H=HHV(H,T) AND HHV(H,T)>REF(HHV(H,T),1);B:=L=LLV(L,T) AND LLV(L,T)<REF(LLV(L,T),1);WAVE1:=TRENDLINES(A,H,B,L);DRAWLINE1(A,H,B,L,0);WAVE2:=TRENDLINES(B,L,A,H);DRAWLINE1(B,L,A,H,0);ZG:=IF(WAVE1<REF(WAVE1,1) OR WAVE1=WAVE2,WAVE1,WAVE2),COLORMAGENTA;峰:=WAVE2=WAVE1 AND A;谷:=WAVE2=WAVE1 AND B;峰峰天:=BARSLAST(峰)+1;谷谷天:=BARSLAST(谷)+1;D1:=HHV(H,T)>REF(HHV(H,T),1) AND ISLASTBAR AND WAVE2<>WAVE1;D2:=LLV(L,T)<REF(LLV(L,T),1) AND ISLASTBAR AND WAVE2<>WAVE1;D3:=IF(谷 OR D2,峰峰天,IF(峰 OR D1,谷谷天,NULL));D4:=IF(谷 OR D2,L*0.99,IF(峰 OR D1,H*1.01,NULL));CAPITAL:=GETPRICE1('流通股本');HSL:=100*VOL/CAPITAL,NODRAW,COLORGREEN;DRAWNUMBER1(D3>0 AND K=1,D4,SUM(HSL,D3),2),COLORGREEN;
打印本文
關閉窗口