网上淘来，觉得不错，与大家分享源码，无来来函数，也不知以前发过没有，若有不适之处就请版主删除即可。谈几点基本功能，见图中。更多使用技巧大家自己体会。
如果觉得好，方便的话顶下贴，让更多朋友都能看到，谢谢。
源码如下:
{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);
VAR1:=(CLOSE+HIGH+LOW)/3;
VAR2:=HIGH-LOW;
VAR4:=VAR1+VAR2;
VAR5:=VAR1-VAR2;
VAR6:=2*VAR1-LOW;
VAR7:=2*VAR1-HIGH;
【明天最高】:=VAR6;
【明天最低】:=VAR7;
VAR9:=ISLASTBAR;
STICKLINE(VAR9>0,VAR4,VAR5,0,0),SHIFT1,colorFFFF;
STICKLINE(VAR9>0,VAR6,VAR7,8,0),SHIFT1,colorFFFF;
VAR11:=(CLOSE+HIGH+LOW)/3;
VAR12:=HIGH-LOW;
VAR14:=VAR11+VAR12;
VAR15:=VAR11-VAR12;
VAR16:=2*VAR11-LOW;
VAR17:=2*VAR11-HIGH;
明日转:=REF(CLOSE,2)*2-REF(CLOSE,5);
EXPLAINEX(VOL>0,'★★【明天生命】=',明日转,1,0),colorFFFFFF;
EXPLAINEX(VOL>0,'【明天最高】=',VAR14,1,0),colorFFFF;
EXPLAINEX(VOL>0,'【范围上限】=',VAR16,1,0),colorFF00FF;
EXPLAINEX(VOL>0,'【范围下限】=',VAR17,1,0),colorFFFF00;
EXPLAINEX(VOL>0,'【明天最低】=',VAR15,1,0),colorFF00;
VAR1:=SPLITDATA(1)+SPLITDATA(2);
CAP:=CLOSE;
CAP[DATACOUNT]:=1;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
CAP[I-1]:=CAP[I]/(1+VAR1[I]/10);
END;
CAPI:=CAP*CAPITAL/100;
HS:=VOL/CAPI;
历史流通盘{万股}:=CAPI;
Z，:=(HIGH-LOW)*100/LOW,LINETHICK0;
STZ，:=(CLOSE-OPEN)*100/OPEN;
SPZ，:=(CLOSE-LOW)*100/LOW;
STZ，B:=STZ，/Z，;
SPZ，B:=SPZ，/Z，;
最大震幅:=REF(HHV(Z，,5),1);
最小震幅:=REF(LLV(Z，,5),1);
XZ，B:=Z，/最大震幅;
DZ，B:=Z，/最小震幅;
XHSB:=HS/REF(HHV(HS,4),1);
DHSB:=HS/REF(LLV(HS,4),1);
DY1:=-5*(STZ，B>=0.48 AND SPZ，B>0.5 AND DZ，B>2 AND DHSB>2 AND CLOSE>OPEN);
DY2:=-5*(STZ，B>=0.8 AND DZ，B>1.5 AND DHSB>1.5 AND CLOSE>OPEN);
DY3:=-5*(STZ，B>=0.82 AND XZ，B>0.9 AND DZ，B>1.5 AND XHSB>0.9 AND DHSB>1.5 AND CLOSE>OPEN);
单阳:=FILTER((DY1 OR DY2 OR DY3) AND 周K>周D,N);
VV:=单阳*LOW;
TS:=BARSLAST(单阳>0)+1>=1 AND BARSLAST(单阳>0)<=13;
单阳高:=REF(HHV(HIGH,BARSLAST(单阳>0)),1);
单阳攻击:=CROSS(CLOSE,单阳高) AND TS;
强势攻击:=IF(单阳=1 AND 单阳攻击=1,1,0);
单阳低点:=REF(LOW,BARSLAST(VV));
单阳不破:=TS AND LOW>=单阳低点;
时间:=IF(LOW>=单阳低点,BARSLAST(单阳<0),0);
单阳启稳:=CROSS(HS,Z，) AND CLOSE>OPEN AND TS;
AA:MA(1.05*HIGH,21),colorFF0000;
BB:MA(0.85*LOW,21),colorFFFF00;
PARTLINE(单阳不破=1,BB),LINETHICK1,colorFF;
STICKLINE(单阳=1,BB,1.04*BB,0,0),colorFFFF;
STICKLINE(单阳=1,BB*1.01,1.03*BB,8,0),colorFFFF;
DRAWTEXT(单阳=1 AND 周K<50,BB*0.97,'弱'),colorFFFF;
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; {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
