相關標簽:

?

《軟件炒股高手絕技》指標，歡迎大家試用看看。

?

?

原理解析：
N賦值:26 RSVP賦值:(收盤價-30日內最低價的最低值)/(30日內最高價的最高值-30日內最低價的最低值)*100-50 KV賦值:RSVP的3日[1日權重]移動平均 DV賦值:KV的3日[1日權重]移動平均 JV賦值:3*KV-2*DV ZDZK1賦值:JV的6日指數移動平均 ZDZK2賦值:1日前的ZDZK1 輸出做多:如果ZDZK1>=ZDZK2,返回ZDZK1+2,否則返回ZDZK2,PRECIS2,畫紅色 輸出做空:如果ZDZK2-ZDZK1,返回ZDZK2,否則返回ZDZK1,PRECIS2,畫綠色 XW1賦值:如果開盤價<=1日前的開盤價,返回0,否則返回(最高價-開盤價)和(開盤價-1日前的開盤價)的較大值 XW2賦值:如果開盤價>=1日前的開盤價,返回0,否則返回(開盤價-最低價)和(開盤價-1日前的開盤價)的較大值 XW3賦值:XW1的21日累和 XW4賦值:XW2的21日累和 XW5賦值:如果XW3>XW4,返回(XW3-XW4)/XW3,否則返回如果XW3=XW4,返回0,否則返回(XW3-XW4)/XW4 14天強弱RS賦值:收盤價-1日前的收盤價和0的較大值的14日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的14日[1日權重]移動平均*100 ZD賦值: RS的7日指數移動平均的3日指數移動平均的3日指數移動平均 ZD1賦值:(ZD-1日前的ZD)/1日前的ZD*15 當滿足條件ZD1>=0時,在0和ZD1*50位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000BE 當滿足條件ZD1<=0時,在0和ZD1*50位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫青色 Y1賦值:成交額(元)/成交量(手)/100 Y2賦值:(3*最高價+最低價+開盤價+2*收盤價)/7 Y3賦值:100*(以1.1*收盤價元價格計算的獲利盤比例-以0.9*收盤價計算的獲利盤比例) Y4賦值:成交額(元)的13日累和/Y1/100 Y5賦值: 以成交量(手)/Y4為權重Y2的動態移動平均 Y6賦值:(收盤價-Y5)/Y5*100 Y7賦值:(Y3<10) AND (Y6<=-10) Y8賦值:收盤價-1.5日前的收盤價和0的較大值的6日[1日權重]移動平均/收盤價-1.5日前的收盤價的絕對值的6日[1日權重]移動平均*100 輸出重虧:當滿足條件Y6<=-10ANDZD1<0時,在ZD1*55和ZD1*45位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF89B2 輸出全虧:當滿足條件Y6<=-16ANDZD1<0時,在ZD1*60和ZD1*55位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫藍色 輸出超跌:當滿足條件Y7ANDZD1<0時,在ZD1*65和ZD1*60位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR399C7F JCT賦值:100*(收盤價-獲利盤為10%的成本分布)/獲利盤為10%的成本分布 PARTLINE(收盤價,如果JCT<0,返回JCT,否則返回0*3,COLOR399C7F) ZDD1賦值:(21日內最高價的最高值-收盤價)/(21日內最高價的最高值-21日內最低價的最低值)*100-10 ZDD2賦值:(收盤價-21日內最低價的最低值)/(21日內最高價的最高值-21日內最低價的最低值)*100 ZDD3賦值:ZDD2的13日[8日權重]移動平均 ZDD4賦值:ZDD3的13日[8日權重]移動平均的向上舍入 ZDD5賦值:ZDD1的21日[8日權重]移動平均 XH1賦值:收盤價-2日前的收盤價和0的較大值的7日[1日權重]移動平均/收盤價-2日前的收盤價的絕對值的7日[1日權重]移動平均*100 XH2賦值:ZDD4-ZDD5<-65 AND XH1<12 輸出備戰區:當滿足條件XH2時,在0位置畫12號圖標,COLOR006EFF 當滿足條件XH2時,在0和ZD1*20位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR006EFF XX1賦值:最低價的2日簡單移動平均*0.96 XX2賦值:最低價的26日簡單移動平均*0.85 XX3賦值: 1日前的XX1<XX2 AND 1日前的XX1<XX1 AND 1日前的XX1<2日前的XX1 當滿足條件XX3時,在0和ZD1*16位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR006EFF 當滿足條件XX3時,在0位置畫12號圖標 C0賦值:2日前的收盤價*0.865 C1賦值:13日前的收盤價*0.772 DSY賦值:100*成交量(手)/當前流通股本(手) 當滿足條件(收盤價-C0和C1的較小值)/收盤價<0.1ANDSUM(DSY,5)/5<1.8時,在0和ZD1*25位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR006EFF 當滿足條件(收盤價-C0和C1的較小值)/收盤價<0.1ANDSUM(DSY,5)/5<1.8時,在0位置畫12號圖標 WW1賦值: 收盤價的10日簡單移動平均的9日累和/10.110 WW2賦值:收盤價上穿WW1 當滿足條件WW2時,在0和ZD1*26位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR006EFF 當滿足條件WW2時,在0位置畫12號圖標 VW1賦值:以成交量(手)的5日累和/3/當前流通股本(手)為權重收盤價的12日指數移動平均的動態移動平均 VW2賦值:10日前的最高價/收盤價>1.35 VW3賦值:(獲利盤為20%的成本分布-收盤價)/收盤價>0.15 VW4賦值:最高價>最低價*1.051 VW5賦值:VW4 AND 統計5日中滿足VW4的天數>1 VW6賦值:(((收盤價-VW1)/VW1*100<-30) OR VW2) AND VW3 AND VW5 當滿足條件VW6時,在0和ZD1*40位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000FF XL1賦值:最低價的2日簡單移動平均*0.96 XL2賦值:最低價的26日簡單移動平均*0.85 XL3賦值:1日前的XL1<XL2 AND 1日前的XL1<XL1 AND 1日前的XL1<2日前的XL1 當滿足條件XL3時,在0和15位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫紅色 當滿足條件XL3時,在15位置書寫文字,畫紅色 JJP1賦值:1日前的大盤的收盤價 JJP2賦值:(大盤的收盤價-JJP1)/JJP1>0.03ANDZDZK1>=ZDZK2的7日過濾 當滿足條件JJP2時,在0和-15位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫紅色 當滿足條件JJP2時,在-15位置書寫文字,畫紅色 X1賦值:500日內最高價的最高值的21日指數移動平均 X2賦值:250日內最高價的最高值的21日指數移動平均 X3賦值:90日內最高價的最高值的21日指數移動平均 X4賦值:500日內最低價的最低值的21日指數移動平均 X5賦值:250日內最低價的最低值的21日指數移動平均 X6賦值:90日內最低價的最低值的21日指數移動平均 X7賦值:(X1*0.558+X2*0.558+X3*0.558+X4*0.96+X5*0.96+X6*0.96)/6的21日指數移動平均 X8賦值:(X1*0.55+X2*0.55+X3*0.65+X4*1.25+X5*1.23+X6*1.2)/6的21日指數移動平均 X9賦值:(X1*0.68+X2*0.68+X3*0.68+X4*1.3+X5*1.3+X6*1.3)/6的21日指數移動平均 VARA賦值:(X7*3+X8*2+X9)/6*1.738的21日指數移動平均 VARB賦值:1日前的最低價 VARC賦值:最低價-VARB的絕對值的3日[1日權重]移動平均/最低價-VARB和0的較大值的3日[1日權重]移動平均*100 VARD賦值:如果收盤價*1.35<=VARA,返回VARC*10,否則返回VARC/10的3日指數移動平均 VARE賦值:30日內最低價的最低值 VARF賦值:30日內VARD的最高值 VAR10賦值:如果收盤價的58日簡單移動平均,返回1,否則返回0 VAR11賦值:如果最低價<=VARE,返回(VARD+VARF*2)/2,否則返回0的3日指數移動平均/618*VAR10 MID賦值:1日前的最高價+最低價/2 CR賦值:0和最高價-MID的較大值的N日累和/0和MID-最低價的較大值的N日累和*100 輸出出擊:如果CR<60ANDVAR11>10,返回35,否則返回0,畫綠色 輸出攻擊:如果VAR11>20,返回30,否則返回0,COLOR0033FF XC1賦值:(收盤價的80日簡單移動平均-收盤價的13日簡單移動平均/3) XC2賦值: (收盤價-XC1)/XC1的1日簡單移動平均 XC3賦值:XC2的12日指數移動平均*0.7 XC4賦值:XC2的3日指數移動平均 XC5賦值:如果12日內XC4-XC3的最低值>0,返回0,否則返回-10 XC6賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均 XC7賦值:XC6的9日指數移動平均 XC8賦值:2*(XC6-XC7) 輸出加倉:如果XC5<0ANDCROSS(XC8,0),返回50,否則返回0,線寬為1,畫藍色 當滿足條件加倉時,在35位置書寫文字,畫藍色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

N:=26;
//{DRAWGBK(CLOSE>0,STRIP(RGB(0,150,130),RGB(0,0,0),1));}
RSVp:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100-50;
Kv:=SMA(RSVp,3,1);
Dv:=SMA(Kv,3,1);
Jv:=3*Kv-2*Dv;
zdzk1:=EMA(Jv,6);
zdzk2:=REF(zdzk1,1);
做多:IF(zdzk1>=zdzk2,zdzk1+2,zdzk2),PRECIS2,colorred;
做空:IF(zdzk2-zdzk1,zdzk2,zdzk1),PRECIS2,colorgreen;
xw1:=IF(O<=REF(O,1),0,MAX((H-O),(O-REF(O,1))));
xw2:=IF(O>=REF(O,1),0,MAX((O-L),(O-REF(O,1))));
xw3:=SUM(xw1,21);
xw4:=SUM(xw2,21);
xw5:=IF(xw3>xw4,(xw3-xw4)/xw3,IF(xw3=xw4,0,(xw3-xw4)/xw4));
//14天強弱
RS:=SMA(MAX(C-REF(C,1),0),14,1)/SMA(ABS(C-REF(C,1)),14,1)*100;
ZD:= EMA(EMA(EMA(RS,7),3),3);
ZD1:=(ZD-REF(ZD,1))/REF(ZD,1)*15;
STICKLINE(ZD1>=0,0,ZD1*50,4,0),Color0000BE;
STICKLINE(ZD1<=0,0,ZD1*50,4,0),colorcyan;
y1:=AMOUNT/V/100;
y2:=(3*H+L+O+2*C)/7;
y3:=100*(WINNER(1.1*C)-WINNER(0.9*C));
y4:=SUM(AMOUNT,13)/y1/100;
y5:= DMA(y2,V/y4);
y6:=(C-y5)/y5*100;
y7:=(y3<10) AND (y6<=-10);
y8:=SMA(MAX(C-REF(C,1.5),0),6,1)/SMA(ABS(C-REF(C,1.5)),6,1)*100;
重虧:STICKLINE(y6<=-10 AND ZD1<0,ZD1*55,ZD1*45,6,0),ColorFF89B2;
全虧:STICKLINE(y6<=-16 AND ZD1<0,ZD1*60,ZD1*55,6,1),colorblue;
超跌:STICKLINE(y7 AND ZD1<0,ZD1*65,ZD1*60,6,0),color399c7f;
Jct:=100*(C-COST(10))/COST(10);
PARTLINE(C,IF(Jct<0,Jct,0)*3,color399c7f);
//{備戰區1}
ZDD1:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100-10;
ZDD2:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100;
ZDD3:=SMA(ZDD2,13,8);
ZDD4:=CEILING(SMA(ZDD3,13,8));
ZDD5:=SMA(ZDD1,21,8);
Xh1:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100;
Xh2:=ZDD4-ZDD5<-65 AND Xh1<12;
備戰區:DRAWICON(Xh2,0,12),Color006EFF;
STICKLINE(Xh2,0,ZD1*20,4,0),Color006EFF;
//{備戰區2}
Xx1:=MA(LOW,2)*0.96;
Xx2:=MA(LOW,26)*0.85;
Xx3:= REF(Xx1,1)<Xx2 AND REF(Xx1,1)<Xx1 AND REF(Xx1,1)<REF(Xx1,2);
STICKLINE(Xx3,0,ZD1*16,4,0),Color006EFF;
DRAWICON(Xx3,0,12);
//{備戰區3}
C0:=REF(C,2)*0.865;
C1:=REF(C,13)*0.772;
DSY:=100*VOL/CAPITAL;
STICKLINE((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,0,ZD1*25,4,0),Color006EFF;
DRAWICON((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,0,12);
//{備戰區4}
Ww1:= SUM( MA(C,10),9)/10.110;
Ww2:=CROSS(C,Ww1);
STICKLINE(Ww2,0,ZD1*26,4,0),Color006EFF;
DRAWICON(Ww2,0,12);
//{買1}
Vw1:=DMA(EMA(C,12),SUM(V,5)/3/CAPITAL);
Vw2:=REF(H,10)/C>1.35;
Vw3:=(COST(20)-C)/C>0.15;
Vw4:=H>L*1.051;
Vw5:=Vw4 AND COUNT(Vw4,5)>1;
Vw6:=(((C-Vw1)/Vw1*100<-30) OR Vw2) AND Vw3 AND Vw5;
STICKLINE(Vw6,0,ZD1*40,4,0),Color0000FF;
//{買2}
XL1:=MA(LOW,2)*0.96;
XL2:=MA(LOW,26)*0.85;
XL3:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1 AND REF(XL1,1)<REF(XL1,2);
STICKLINE(XL3,0,15,4,0),colorred;
DRAWTEXT(XL3,15,'←買'),colorred;
//{井噴}
jjp1:=REF(INDEXC,1);
jjp2:=FILTER((INDEXC-jjp1)/jjp1>0.03 AND zdzk1>=zdzk2,7);
STICKLINE(jjp2,0,-15,4,0),colorred;
DRAWTEXT(jjp2,-15,'←買'),colorred;
//{//數據源}
x1:=EMA(HHV(H,500),21);
x2:=EMA(HHV(H,250),21);
x3:=EMA(HHV(H,90),21);
x4:=EMA(LLV(L,500),21);
x5:=EMA(LLV(L,250),21);
x6:=EMA(LLV(L,90),21);
x7:=EMA((x1*0.558+x2*0.558+x3*0.558+x4*0.96+x5*0.96+x6*0.96)/6,21);
x8:=EMA((x1*0.55 +x2*0.55+ x3*0.65+ x4*1.25+x5*1.23+x6*1.2 )/6,21);
x9:=EMA((x1*0.68+ x2*0.68+ x3*0.68+ x4*1.3 +x5*1.3+ x6*1.3 )/6,21);
VARA:=EMA((x7*3+x8*2+x9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(C*1.35<=VARA,VARC*10,VARC/10),3);
//{//C*1.35小于等于數據源取低價強弱線*10的3日均線，否則取低價強弱線/10的3日均線}
VARE:=LLV(L,30);
VARF:=HHV(VARD,30);
VAR10:=IF(MA(C,58),1,0);
VAR11:=EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10;
MID:=REF(H+L,1)/2;
CR:=SUM(MAX(0,H-MID),N)/SUM(MAX(0,MID-L),N)*100;
出擊:IF(CR<60 AND VAR11>10,35,0),colorgreen;
攻擊:IF (VAR11>20,30,0),COLOR0033ff;
//{加倉}
xc1:=(MA(C,80)-MA(C,13)/3);
xc2:= MA((C-xc1)/xc1,1);
xc3:=EMA(xc2,12)*0.7;
xc4:=EMA(xc2,3);
xc5:=IF(LLV(xc4-xc3,12)>0,0,-10);
xc6:=EMA(C,12)-EMA(C,26);
xc7:=EMA(xc6,9);
xc8:=2*(xc6-xc7);
加倉:IF(xc5<0 AND CROSS(xc8,0),50,0),LINETHICK1,colorblue;
DRAWTEXT(加倉,35,'←加倉'),colorblue;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?