相關標簽:

?

網上淘來，覺得不錯，與大家分享源碼，無來來函數，也不知以前發過沒有，若有不適之處就請版主刪除即可。談幾點基本功能，見圖中。更多使用技巧大家自己體會。
如果覺得好，方便的話頂下貼，讓更多朋友都能看到，謝謝。
源碼如下:
{NN 20130
N6 110
M3 2.83.1}{參數}
AAA:=CHECKUSER(0);
周K:=STKINDI(STKLABEL,'kdj.k',0,7);
周D:=STKINDI(STKLABEL,'kdj.d',0,7);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撐:IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24)))),colorFFFF;
壓力:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),colorFF;
U2L:=IF(CLOSE>=MA(CLOSE,NN),80,50);
L2L:=IF(CLOSE>=MA(CLOSE,NN),50,20);
RH1:=IF(J<U2L AND REF(J,1)>=U2L,HHV(REF(HIGH,1),BARSLAST(J>=U2L AND REF(J,1)<U2L)-1),REF(HHV(REF(HIGH,1),BARSLAST(J>=U2L AND REF(J,1)<U2L)-1),BARSLAST(J<U2L AND REF(J,1))));
RH4:=IF(HIGH>RH1,LOW,REF(LOW,BARSLAST(HIGH>RH1)));
RH42:=IF(HIGH>RH1,J,REF(J,BARSLAST(HIGH>RH1)));
強壓:IF(HIGH>RH4 AND J<RH42 AND J<J24,HIGH,REF(HIGH,BARSLAST(HIGH>RH4 AND J<RH42 AND J<J24))),colorFF00;
RL1:=IF(J>L2L AND REF(J,1)<=L2L,LLV(REF(LOW,1),BARSLAST(J<=L2L AND REF(J,1)>L2L)-1),REF(LLV(REF(LOW,1),BARSLAST(J<=L2L AND REF(J,1)>L2L)-1),BARSLAST(J>L2L AND REF(J,1))));
RL4:=IF(LOW<RL1,HIGH,REF(HIGH,BARSLAST(LOW<RL1)));
RL42:=IF(LOW<RL1,J,REF(J,BARSLAST(LOW<RL1)));
強撐:IF(LOW<RL4 AND J>RL42 AND J>J24,LOW,REF(LOW,BARSLAST(LOW<RL4 AND J>RL42 AND J>J24))),colorFF00FF;
Z，:(CLOSE-壓力)*100/壓力,LINETHICK0;
X1:=IF(BARSCOUNT(CLOSE)=1,(OPEN+HIGH+LOW+CLOSE)/4,CLOSE);
X2:=IF(BARSCOUNT(CLOSE)=1,(OPEN+CLOSE)/2,SMA(REF(X1,1),2,1));
X3:=HIGH;
X4:=LOW;
{STICKLINE(X2<X1,X3,X4,0.1,0),colorFF;
STICKLINE(X2<X1,X1,X2,7,1),colorFF;
STICKLINE(X2>X1,X3,X4,0.1,0),colorFFFF00;
STICKLINE(X2>X1,X1,X2,7,0),colorFFFF00;
STICKLINE(X2=X1 AND X1>=REF(X1,1),X3,X4,0.1,0),colorFF;
STICKLINE(X2=X1 AND X1>=REF(X1,1),X1,X2,7,0),colorFF;
STICKLINE(X2=X1 AND X1<REF(X1,1),X3,X4,0.1,0),colorFF0000;
STICKLINE(X2=X1 AND X1<REF(X1,1),X1,X2,7,0),colorFF0000;
STICKLINE(X2=X1 AND BARSCOUNT(CLOSE),X3,X4,0.1,0),colorFF00FF;
STICKLINE(X2=X1 AND BARSCOUNT(CLOSE),X2,X1,7,0),colorFF00FF;}

CB:=AMOUNT/VOL/100;
CD:=CB>HIGH OR CB<LOW;
AA:=IF(CLOSE>200,182.60001,1.826);
BB:=IF(CLOSE>200,91.3,0.913);
大下箱:INTPART(CLOSE/AA)*AA,POINTDOT,LINETHICK3,colorFFFF00;
大上箱:大下箱+AA,POINTDOT,LINETHICK3,colorFF;
小下箱:INTPART(CLOSE/BB)*BB,POINTDOT,LINETHICK1,colorFF00FF;
小上箱:小下箱+BB,POINTDOT,LINETHICK1,colorFFFF;
EXPLAIN(1,STKLABEL+STKNAME+'\n所屬板塊:'+BLKNAME);
AAA:=CHECKUSER(0);
CXH1:=(CLOSE+HIGH+LOW)/3;
CXH2:=HIGH-LOW;
CXH4:=CXH1+CXH2;
CXH5:=CXH1-CXH2;
CXH6:=2*CXH1-LOW;
CXH7:=2*CXH1-HIGH;
【明天最高】:=CXH6;
【明天最低】:=CXH7;
CXH9:=ISLASTBAR;
STICKLINE(CXH9>0,CXH4,CXH5,0,0),SHIFT1,colorFFFF;
STICKLINE(CXH9>0,CXH6,CXH7,8,0),SHIFT1,colorFFFF;
CXH11:=(CLOSE+HIGH+LOW)/3;
CXH12:=HIGH-LOW;
CXH14:=CXH11+CXH12;
CXH15:=CXH11-CXH12;
CXH16:=2*CXH11-LOW;
CXH17:=2*CXH11-HIGH;
明日轉:=REF(CLOSE,2)*2-REF(CLOSE,5);
EXPLAINEX(VOL>0,'【明天生命】=',明日轉,1,0),colorFFFFFF;DRAWTEXT(單陽=1 AND CROSS(周K,周D) AND 周K<50,BB*1.08,'啟'),colorFFFF;
DRAWTEXT(單陽=1 AND 周K>50 AND 周K<80,BB*0.97,'強'),colorFFFF;
DRAWTEXT(單陽=1 AND 周K>=80,BB*0.97,'沖'),colorFFFF;
STICKLINE(單陽啟穩=1,BB,BB*1.03,0,0),colorD36F3E;
STICKLINE(單陽啟穩=1,BB*1.02,BB*1.02,8,0),colorD36F3E;
DRAWTEXT(單陽啟穩=1,BB,'穩'),colorD36F3E;
STICKLINE(單陽攻擊=1,BB,BB*1.05,0,1),colorA400FF;
STICKLINE(單陽攻擊=1,BB*1.01,BB*1.04,8,1),colorA400FF;
DRAWTEXT(單陽攻擊=1,BB*1.08,'攻'),colorFF;{程序化交易 www.kzuj.com.cn }

?

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

?