編程思路破譯 NH賦值:120 M賦值:上次到最后交易的周期=NH距今天數(shù) GD賦值:如果是否最后一個(gè)周期=1,返回M日內(nèi)最高價(jià)的最高值,否則返回0的最后一日取值設(shè)為常數(shù) DH賦值:如果是否最后一個(gè)周期=1,返回M日內(nèi)最低價(jià)的最低值,否則返回0的最后一日取值設(shè)為常數(shù) KJ賦值:GD-DH 高區(qū)賦值:如果到最后交易的周期<=NH,返回GD,否則返回?zé)o效數(shù),線寬為4,COLOR004080 TJ2賦值:統(tǒng)計(jì)1日中滿足最高價(jià)>=高區(qū)的天數(shù) 去除高位賦值:取反,線寬為2 COLORC0C0C0 梯量柱賦值:如果成交量(手)>1日前的成交量(手)ANDREF(成交量(手),1)>2日前的成交量(手)ANDREF(成交量(手),2)>3日前的成交量(手),返回11,否則返回10 N1賦值:120 M1賦值:上次到最后交易的周期=N1距今天數(shù) GD1賦值:如果是否最后一個(gè)周期=1,返回M1日內(nèi)最高價(jià)的最高值,否則返回0的最后一日取值設(shè)為常數(shù) DD1賦值:如果是否最后一個(gè)周期=1,返回M1日內(nèi)最低價(jià)的最低值,否則返回0的最后一日取值設(shè)為常數(shù) KJ1賦值:GD1-DD1 DP賦值:如果到最后交易的周期<=N1,返回DD1+KJ1/2,否則返回?zé)o效數(shù),線寬為2,COLOR004080 DF賦值:如果到最后交易的周期<=N1/2,返回DD1+KJ*0.618,否則返回?zé)o效數(shù),線寬為2,COLOR004080 巨量形態(tài)賦值:梯量柱>10 AND 收盤價(jià)>收盤價(jià)的60日簡(jiǎn)單移動(dòng)平均 AND 收盤價(jià)>收盤價(jià)的5日簡(jiǎn)單移動(dòng)平均 AND 收盤價(jià)的5日簡(jiǎn)單移動(dòng)平均>收盤價(jià)的10日簡(jiǎn)單移動(dòng)平均 AND 收盤價(jià)>DF,畫綠色,線寬為2 頂背離賦值:當(dāng)滿足條件88上穿RSI時(shí),在(最高價(jià)*1.02)位置書寫文字,線寬為3,畫白色 TJ3賦值:統(tǒng)計(jì)1日中滿足頂背離的天數(shù) 去除頂背離賦值:取反>0,線寬為2 COLORC0C0C0 輸出逃頂:如果TJ3=1OR巨量形態(tài)=1ORTJ2=1,返回40,否則返回100,COLOR00FFFF,DOTLINE 當(dāng)滿足條件逃頂=40時(shí),在40位置書寫文字,畫綠色 程序源碼 NH:=120; M:=BArslAST(CURRBARSCOUNT=NH); GD:=CONST(IF(ISLASTBAR=1,HHV(H,M),0)); DH:=CONST(IF(ISLASTBAR=1,LLV(L,M),0)); KJ:=GD-DH; 高區(qū):=IF(CURRBARSCOUNT<=NH,GD,DRAWNULL),LINETHICK4,COLOR004080; TJ2:=COUNT(H>=高區(qū),1); 去除高位:=NOT (TJ2),LINETHICK2 COLORC0C0C0; 梯量柱:=IF(V>REF(V,1) AND REF(V,1)>REF(V,2) AND REF(V,2)>REF(V,3),11,10); N1:=120; M1:=BARSLAST(CURRBARSCOUNT=N1); GD1:=CONST(IF(ISLASTBAR=1,HHV(H,M1),0)); DD1:=CONST(IF(ISLASTBAR=1,LLV(L,M1),0)); KJ1:=GD1-DD1; DP:=IF(CURRBARSCOUNT<=N1,DD1+KJ1/2,DRAWNULL),LINETHICK2,COLOR004080; DF:=IF(CURRBARSCOUNT<=N1/2,DD1+KJ*0.618,DRAWNULL),LINETHICK2,COLOR004080; 巨量形態(tài):=梯量柱>10 AND C>MA(CLOSE,60) AND C>MA(CLOSE,5) AND MA(CLOSE,5)>MA(CLOSE,10) AND C>DF,COLORGREEN,LINETHICK2; 頂背離:=DRAWTEXT(crOSS(88,rsi),(HIGH * 1.02),'←頂背'),LINETHICK3,COLORWHITE; TJ3:=COUNT(頂背離,1);{5日內(nèi)出現(xiàn)實(shí)體長(zhǎng)度大于5%的陽(yáng)線} 去除頂背離:=NOT (TJ3)>0,LINETHICK2 COLORC0C0C0; 逃頂:IF(TJ3=1 OR 巨量形態(tài)=1 OR TJ2=1,40,100),COLOR00FFFF,DOTLINE; DRAWTEXT(逃頂=40,40,'逃頂'),COLORGREEN; 注: 館內(nèi)各種公式為學(xué)習(xí)編程而保存,實(shí)戰(zhàn)使用前一定要看其中是否有未來(lái)函數(shù)并自己親自測(cè)試成功率,決不能依據(jù)公式名稱的描述和形容去投資,據(jù)此入市造成投資損失由投資者自己承擔(dān)。 發(fā)文不易,如獲益,歡迎贊賞,贊賞必復(fù)! |
|