【原】通達(dá)信最強(qiáng)K線主圖指標(biāo)公式（附源碼）

追夢文庫 2023-09-09 發(fā)布于遼寧

展開全文

編程思路破譯

M賦值:5

N賦值:42

N1賦值:21

P賦值:8

SHORT賦值:12

LONG賦值:12

MID賦值:12

P1賦值:12

輸出工作線:收盤價的50日指數(shù)移動平均,畫紅色,線寬為2

輸出工作線2:收盤價的17日指數(shù)移動平均,線寬為2

九號線賦值:收盤價的99日指數(shù)移動平均

暴漲線賦值:收盤價的181日簡單移動平均

牛賦值:收盤價的144日指數(shù)移動平均>=1日前的收盤價的144日指數(shù)移動平均

當(dāng)滿足條件(工作線2>=1日前的工作線2ANDL<工作線2ANDC>工作線2)時,在最低價位置書寫文字,畫黃色

當(dāng)滿足條件(九號線>=1日前的九號線AND牛ANDL<九號線ANDH>九號線)AND((收盤價<1日前的收盤價ORO>收盤價))時,在最低價*0.98位置書寫文字,COLOR00FF00

當(dāng)滿足條件(工作線>=1日前的工作線AND牛ANDL<工作線ANDH>工作線)時,在最低價*0.96位置書寫文字,畫白色

當(dāng)滿足條件(暴漲線>=1日前的暴漲線AND牛ANDL<暴漲線ANDH>暴漲線)AND((收盤價<1日前的收盤價ORO>收盤價))時,在最低價*0.94位置書寫文字,畫洋紅色

黃昏之星賦值:((((((2日前的收盤價 / 2日前的開盤價) > 1.03) AND (1日前的開盤價 > 2日前的收盤價)) AND (((1日前的開盤價-1日前的收盤價)的絕對值 / 1日前的收盤價) < 0.02)) AND ((收盤價 / 開盤價) < 0.97)) AND (收盤價 < 2日前的收盤價))

射擊之星賦值:(((開盤價和收盤價的較小值 = 最低價) AND ((最高價 - 最低價) > (3 * (開盤價和收盤價的較大值 - 最低價)))) AND (收盤價 > 收盤價的5日簡單移動平均))

錘頭賦值:(((最高價 = 開盤價和收盤價的較大值) AND ((最高價 - 最低價) > (3 * (最高價 - 開盤價和收盤價的較小值)))) AND (收盤價 < 收盤價的5日簡單移動平均))

吊頸賦值:(( (最高價 = 開盤價和收盤價的較大值) AND ((最高價 - 最低價) > (3 * (最高價 - 開盤價和收盤價的較小值)))))

穿頭破腳賦值:((((((1日前的收盤價 / 1日前的開盤價) > 1.03) AND ((收盤價 / 開盤價) < 0.96)) AND (收盤價 < 1日前的開盤價)) AND (開盤價 > 1日前的收盤價)) OR (((((1日前的收盤價 / 1日前的開盤價) < 0.97) AND ((收盤價 / 開盤價) > 1.04)) AND (收盤價 > 1日前的開盤價)) AND (開盤價 < 1日前的收盤價)))

身懷六甲賦值:((((((1日前的收盤價-1日前的開盤價)的絕對值 / 1日前的收盤價) > 0.04) AND (((收盤價-開盤價)的絕對值 / 收盤價) < 0.005)) AND (收盤價和開盤價的較大值 < 1日前的收盤價和1日前的開盤價的較大值)) AND (收盤價和開盤價的較小值 > 1日前的收盤價和1日前的開盤價的較小值))

烏云蓋頂賦值:(((((1日前的收盤價 / 1日前的開盤價) > 1.03) AND ((收盤價 / 開盤價) < 0.97)) AND (開盤價 > 1日前的收盤價)) AND (收盤價 < 1日前的收盤價))

曙光初現(xiàn)賦值:(((((1日前的收盤價 / 1日前的開盤價) < 0.97) AND ((收盤價 / 開盤價) > 1.03)) AND (開盤價 < 1日前的收盤價)) AND (收盤價 > 1日前的收盤價))

傾盆雨賦值:(((((1日前的收盤價 / 1日前的開盤價) >= 1.03) AND (開盤價 < 1日前的收盤價)) AND (開盤價 > 1日前的開盤價)) AND (收盤價 < 1日前的開盤價))

當(dāng)滿足條件傾盆雨時,在最高價*1.03位置書寫文字,畫青色

當(dāng)滿足條件黃昏之星時,在最高價*1.02位置書寫文字,畫青色

當(dāng)滿足條件射擊之星時,在最高價*1.03位置書寫文字,畫青色

當(dāng)滿足條件錘頭時,在最低價-最低價*0.02位置書寫文字,畫綠色

當(dāng)滿足條件吊頸時,在最高價*1.03位置書寫文字,畫青色

當(dāng)滿足條件穿頭破腳時,在最高價*1.05位置書寫文字,畫青色

當(dāng)滿足條件烏云蓋頂時,在最高價*1.03位置書寫文字,畫青色

當(dāng)滿足條件曙光初現(xiàn)時,在最低價-最低價*0.02位置書寫文字,畫綠色

當(dāng)滿足條件身懷六甲時,在最低價-最低價*0.02位置書寫文字,畫綠色

程序源碼

M:=5;

N:=42;

N1:=21;

P:=8;

SHORT:=12;

LONG:=12;

MID:=12;

P1:=12;

工作線:EMA(CLOSE,50),COLORRED,LINETHICK2;

工作線2:EMA(CLOSE,17),LINETHICK2;

九號線:=EMA(CLOSE,99);

暴漲線:=MA(CLOSE,181);

牛:=EMA(CLOSE,144)>=REF(EMA(CLOSE,144),1);

DRAWTEXT((工作線2>=REF(工作線2,1) AND L< 工作線2 AND C>工作線2) ,L, '買'),COLORYELLOW;

DRAWTEXT((九號線>=REF(九號線,1) AND 牛 AND L< 九號線 AND H>九號線) AND ((CLOSE< REF(CLOSE,1) OR O>C)),L*0.98 , '●九號'),COLOR00FF00;

DRAWTEXT((工作線>=REF(工作線,1) AND 牛 AND L< 工作線 AND H>工作線) ,L*0.96 , '◆工作'),COLORWHITE;

DRAWTEXT( (暴漲線>=REF(暴漲線,1) AND 牛 AND L< 暴漲線 AND H>暴漲線) AND ((CLOSE< REF(CLOSE,1) OR O>C)),L*0.94 , '★暴漲'),COLORMAGENTA;

黃昏之星:=((((((REF(CLOSE,2) / REF(OPEN,2)) > 1.03) AND (REF(OPEN,1) > REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) / REF(CLOSE,1)) < 0.02)) AND ((CLOSE / OPEN) < 0.97)) AND (CLOSE < REF(CLOSE,2)));

射擊之星:=(((MIN(OPEN,CLOSE) = LOW) AND ((HIGH - LOW) > (3 * (MAX(OPEN,CLOSE) - LOW)))) AND (CLOSE > MA(CLOSE,5)));

錘頭:=(((HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH - MIN(OPEN,CLOSE))))) AND (CLOSE < MA(CLOSE,5)));

吊頸:=(( (HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH - MIN(OPEN,CLOSE))))));

穿頭破腳:=((((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN) < 0.96)) AND (CLOSE < REF(OPEN,1))) AND (OPEN > REF(CLOSE,1))) OR (((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) > 1.04)) AND (CLOSE > REF(OPEN,1))) AND (OPEN < REF(CLOSE,1))));

身懷六甲:=(((((ABS((REF(CLOSE,1) - REF(OPEN,1))) / REF(CLOSE,1)) > 0.04) AND ((ABS((CLOSE - OPEN)) / CLOSE) < 0.005)) AND (MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)))) AND (MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1))));

烏云蓋頂:=(((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN) < 0.97)) AND (OPEN > REF(CLOSE,1))) AND (CLOSE < REF(CLOSE,1)));

曙光初現(xiàn):=(((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) > 1.03)) AND (OPEN < REF(CLOSE,1))) AND (CLOSE > REF(CLOSE,1)));

傾盆雨:=(((((REF(CLOSE,1) / REF(OPEN,1)) >= 1.03) AND (OPEN < REF(CLOSE,1))) AND (OPEN > REF(OPEN,1))) AND (CLOSE < REF(OPEN,1)));

DRAWTEXT(傾盆雨,H*1.03,'傾盆大雨'),COLORCYAN;

DRAWTEXT(黃昏之星,H*1.02,'黃昏之星'),COLORCYAN;

DRAWTEXT(射擊之星,H*1.03,'射擊之星可能見頂'),COLORCYAN;

DRAWTEXT(錘頭,L-L*0.02,'錘頭可能見底'),COLORGREEN;

DRAWTEXT(吊頸,H*1.03,'吊頸'),COLORCYAN;

DRAWTEXT(穿頭破腳,H*1.05,'穿頭破腳'),COLORCYAN;

DRAWTEXT(烏云蓋頂,H*1.03,'烏云蓋頂'),COLORCYAN;

DRAWTEXT(曙光初現(xiàn),L-L*0.02,'曙光初現(xiàn)(放量)'),COLORGREEN;

DRAWTEXT(身懷六甲,L-L*0.02,'身懷六甲,底升頂落'),COLORGREEN;