五星連珠B副圖指標公式源碼

相關標簽:

?

?

原理解析：
K2賦值:收盤價的5日指數移動平均,COLORFFFF00 K3賦值:收盤價的10日指數移動平均,COLORFFFF00 K5賦值:收盤價的30日指數移動平均,COLORFFFF00 KK5賦值:大盤的收盤價的30日指數移動平均,COLORFFFF00 K6賦值:2*(K2-K5) K7賦值:2*(K2-K3) K8賦值:2*(K7+K6),畫紅色 當滿足條件K8上穿0時,在0和50位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. ,畫紅色 K1賦值:如果K8>5日前的K8ANDK3<5日前的K3,返回1,否則返回0,畫黃色 K21賦值:如果K8>7日前的K8ANDK3<7日前的K3,返回1,否則返回0,畫黃色 K31賦值:如果K8>9日前的K8ANDK3<9日前的K3,返回1,否則返回0,畫黃色 K4賦值:如果K8>11日前的K8ANDK3<11日前的K3,返回1,否則返回0,畫黃色 賦值: 3 賦值: 收盤價/60日內最低價的最低值<=1.2 賦值: 收盤價的2日簡單移動平均 賦值: 收盤價的5日簡單移動平均 賦值:收盤價的12日指數移動平均 - 收盤價的26日指數移動平均,畫白色 賦值:DIF的9日指數移動平均,畫綠色 VMA1賦值:成交量(手)的2日簡單移動平均/100000,畫紅色 VMA2賦值:成交量(手)的5日簡單移動平均/100000,畫黃色 賦值: 上次PMA1上穿PMA2距今天數 賦值: 上次VMA1上穿VMA2距今天數 賦值: 上次DIF上穿DEA距今天數 A1賦值:上次1日前的"平滑異同平均的DIF"(5,12,9)上穿"平滑異同平均的DEA"(5,12,9)距今天數 輸出背離、W底、金叉:A1+1日前的收盤價>收盤價 AND A1+1日前的"平滑異同平均的DIF"(5,12,9)<"平滑異同平均的DIF"(5,12,9) ANDCROSS("平滑異同平均的DIF"(5,12,9),"平滑異同平均的DEA"(5,12,9)),,畫紅色 SJCJD賦值: 如果(PPDAY<=NDAY1ANDVVDAY<=NDAY1ANDMACDDAY<=NDAY1)AND(DIF<0),返回1,否則返回0 當滿足條件SJCJD時,在50和60位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫白色,線寬為2 MACD賦值: 2*(DIF-DEA), COLORSTICK 輸出短趨勢:((3*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均-2*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均的3日[1日權重]移動平均-50)*1.032+50),畫紅色 VARA2賦值:(2*收盤價+最高價+最低價+開盤價)/5 VARA3賦值:34日內最低價的最低值 VARA4賦值:34日內最高價的最高值 輸出長趨勢:(VARA2-VARA3)/(VARA4-VARA3)*100的13日指數移動平均,COLOR00FF00 輸出判斷底:1/以收盤價計算的獲利盤比例*100的4日簡單移動平均/10000的開方的向下舍入的開方的開方*5 VARA5賦值:短趨勢上穿長趨勢AND 長趨勢<25 VARA6賦值:短趨勢上穿長趨勢AND 長趨勢<50 當滿足條件VARA5時,在60和70位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. ,畫綠色 XX賦值:((((收盤價 - 收盤價的34日簡單移動平均) / 收盤價的34日簡單移動平均) * 100)* 5) B001賦值:(((((收盤價 - 收盤價的42日簡單移動平均) / 收盤價的42日簡單移動平均) ) * 100) * 5) B002賦值:(((((收盤價 - 收盤價的67日簡單移動平均) / 收盤價的67日簡單移動平均) ) * 100) * 5) B003賦值:(((XX + B001) / 2) - (B002 )) B004賦值:(((0 - 100) * (34日內最高價的最高值 - 收盤價)) / (34日內最高價的最高值 - 34日內最低價的最低值)) B005賦值:(((0 - 100) * (42日內最高價的最高值 - 收盤價)) / (42日內最高價的最高值 - 42日內最低價的最低值)) B006賦值:(((0 - 100) * (72日內最高價的最高值 - 收盤價)) / (72日內最高價的最高值 - 72日內最低價的最低值)) B007賦值:(((B004+B005)/2)-B006)的6日指數移動平均 B008賦值:1日前的收盤價 B009賦值:(((((收盤價-B008)和0的較大值的19日[1日權重]移動平均 / (收盤價-B008)的絕對值的19日[1日權重]移動平均) * 100) - 50) * 1.25) B010賦值:(((((收盤價-B008)和0的較大值的34日[1日權重]移動平均 / (收盤價-B008)的絕對值的34日[1日權重]移動平均) * 100) - 50) * 1.25) B011賦值:(((((收盤價-B008)和0的較大值的72日[1日權重]移動平均 / (收盤價-B008)的絕對值的72日[1日權重]移動平均) * 100) - 50) * 1.25) B012賦值:((((B009+B010)/2)-B011)*5)的6日指數移動平均 B013賦值:((((0 - 1) * ((B007 + B003) + B012)) / 3) * 1.5) B014賦值:B012 B015賦值:B013 B016賦值:B012的4日指數移動平均 B017賦值:B012 KKM1賦值:B013 DPM1賦值:B013的4日指數移動平均 多頭賦值:B017,COLOR0000FF 空頭賦值:KKM1,COLOR00FF00 多均賦值:B016 空均賦值:DPM1 B018賦值:如果B017上穿KKM1,返回28,否則返回0 XD賦值:5 VARX賦值:B017 C023賦值:KKM1 C024賦值:B016 C025賦值:DPM1 C026賦值:以收盤價計算的獲利盤比例 W賦值:(以((成交量(手)/當前流通股本(手))*1)為權重C026的動態移動平均 * 100) HWXWINNER賦值:W XD1賦值:W的6日指數移動平均 XWXMH賦值:XD1 XD2賦值:W的14日簡單移動平均 輸出莊家控盤:((HWXWINNER - XWXMH) * 10),COLORSTICK,線寬為2 當滿足條件多頭上穿空均時,在80和70位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. ,畫黃色 VARB1賦值:(2*收盤價+最高價+最低價)/4 VARB2賦值:34日內最低價的最低值 VARB3賦值:34日內最高價的最高值 VARB4賦值:最高價的8日簡單移動平均 XX1賦值:(VARB1-VARB2)/(VARB3-VARB2)*100的13日指數移動平均 YY賦值:0.667*1日前的XX1+0.333*XX1的2日指數移動平均 , 當滿足條件XX1上穿20ANDYY<XX1ANDVARB4>1日前的VARB4時,在80和90位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF0000 輸出逃頂:如果YY上穿XXANDXX>80的3日過濾,返回60,否則返回90,COLORFF0000 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

K2:=EMA(C,5),COLORFFFF00;
K3:=EMA(C,10),COLORFFFF00;
K5:=EMA(C,30),COLORFFFF00;KK5:=EMA(INDEXC,30),COLORFFFF00;
K6:=2*(K2-K5);K7:=2*(K2-K3);K8:=2*(K7+K6),COLORRED;
STICKLINE(CROSS(K8,0),0,50,8,0) ,COLORRED;
K1:=IF(K8>REF(K8,5) AND K3<REF(K3,5) ,1,0 ),COLORYELLOW;
K21:=IF(K8>REF(K8,7) AND K3<REF(K3,7) ,1,0 ),COLORYELLOW;
K31:=IF(K8>REF(K8,9) AND K3<REF(K3,9) ,1,0 ),COLORYELLOW;
K4:=IF(K8>REF(K8,11) AND K3<REF(K3,11) ,1,0 ),COLORYELLOW;
NDAY1 := 3;
DOWN := CLOSE/LLV(LOW,60)<=1.2;
PMA1 := MA(CLOSE,2);
PMA2 := MA(CLOSE,5);
DIF :=EMA(CLOSE,12) - EMA(CLOSE,26),COLORWHITE;
DEA :=EMA(DIF,9),COLORGREEN;
VMA1:=MA (VOL,2)/100000,COLORRED;
VMA2:=MA(VOL,5)/100000,COLORYELLOW;
PPDAY := BARSLAST(CROSS(PMA1,PMA2));
VVDAY := BARSLAST(CROSS(VMA1,VMA2));
MACDDAY := BARSLAST(CROSS(DIF,DEA));
A1:=BARSLAST(REF(CROSS("MACD.DIF"(5,12,9),"MACD.DEA"(5,12,9)),1));
背離、W底、金叉:REF(C,A1+1)>C AND REF("MACD.DIF"(5,12,9),A1+1)<"MACD.DIF"(5,12,9) AND
CROSS("MACD.DIF"(5,12,9),"MACD.DEA"(5,12,9)),,COLORRED;
SJCJD:= IF((PPDAY<=NDAY1 AND VVDAY<=NDAY1 AND MACDDAY<=NDAY1 ) AND (DIF<0),1,0);
STICKLINE(SJCJD,50,60,6,0),COLORWHITE,LINETHICK2;
MACD:= 2*(DIF-DEA), COLORSTICK;
短趨勢:((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50),COLORRED;
VARA2:=(2*CLOSE+HIGH+LOW+OPEN)/5;
VARA3:=LLV(LOW,34);
VARA4:=HHV(HIGH,34);
長趨勢:EMA((VARA2-VARA3)/(VARA4-VARA3)*100,13),COLOR00FF00;
判斷底:SQRT(SQRT(FLOOR(SQRT(MA(1/WINNER(CLOSE)*100,4)/10000))))*5;
VARA5:=CROSS(短趨勢,長趨勢)AND 長趨勢<25;
VARA6:=CROSS(短趨勢,長趨勢)AND 長趨勢<50;
STICKLINE(VARA5,60,70,8,0) ,COLORGREEN;
XX:=((((CLOSE - MA(CLOSE,34)) / MA(CLOSE,34)) * 100)* 5);
B001:=(((((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) ) * 100) * 5);
B002:=(((((CLOSE - MA(CLOSE,67)) / MA(CLOSE,67)) ) * 100) * 5);
B003:=(((XX + B001) / 2) - (B002 ));
B004:=(((0 - 100) * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34)));
B005:=(((0 - 100) * (HHV(HIGH,42) - CLOSE)) / (HHV(HIGH,42) - LLV(LOW,42)));
B006:=(((0 - 100) * (HHV(HIGH,72) - CLOSE)) / (HHV(HIGH,72) - LLV(LOW,72)));
B007:=EMA((((B004 + B005) / 2) - B006),6);
B008:=REF(CLOSE,1);
B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(ABS((CLOSE - B008)),19,1)) * 100) - 50) * 1.25);
B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25);
B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25);
B012:=EMA(((((B009 + B010) / 2) - B011) * 5),6);
B013:=((((0 - 1) * ((B007 + B003) + B012)) / 3) * 1.5);
B014:=B012;
B015:=B013;
B016:=EMA(B012,4);
B017:=B012;
KKM1:=B013;
DPM1:=EMA(B013,4);
多頭:=B017,COLOR0000FF;
空頭:=KKM1,COLOR00FF00;
多均:=B016;
空均:=DPM1;
B018:=IF(CROSS(B017,KKM1),28,0);
XD:=5 ;
VARX:=B017;
C023:=KKM1;
C024:=B016;
C025:=DPM1;
C026:=WINNER(CLOSE);
W:=(DMA(C026,((VOL / CAPITAL) * 1)) * 100);
HWXWINNER:=W;
XD1:=EMA(W,6);
XWXMH:=XD1;
XD2:=MA(W,14);
莊家控盤:((HWXWINNER - XWXMH) * 10),COLORSTICK,LINETHICK2;
STICKLINE(CROSS(多頭,空均),80,70,8,0) ,COLORYELLOW;
VARB1:=(2*CLOSE+HIGH+LOW)/4;
VARB2:=LLV(LOW,34);
VARB3:=HHV(HIGH,34);
VARB4:=MA(HIGH,8);
XX1:=EMA((VARB1-VARB2)/(VARB3-VARB2)*100,13);
YY:=EMA(0.667*REF(XX1,1)+0.333*XX1,2) , ;
STICKLINE(CROSS(XX1,20) AND YY<XX1 AND VARB4>REF(VARB4,1),80,90,6,0),COLORFF0000;
逃頂:IF(FILTER(CROSS(YY,XX) AND XX>80 ,3),60,90),COLORFF0000;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?