软件名称:[B]非常权益个人版资金MACD测试版[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:13.0 KB
官方主页:Home Page
更新时间:2017-04-14 01:54:16
软件简介:
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(CLOSE,A1+1)>CLOSE AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(FILTER(B1>0,5),LOW*0.94,'M底'),colorFF00;
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(CLOSE,A2+1)>CLOSE AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
DRAWTEXT(FILTER(B2>0,5),LOW*0.96,'K底'),colorFFFF;
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(CLOSE,A3+1)>CLOSE AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
DRAWTEXT(FILTER(B3>0,5),LOW*0.98,'R底'),colorFFFF00;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(CLOSE,C1+1)<CLOSE AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(D1>0,5),HIGH*1.07,'M顶'),color66FF;
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(CLOSE,C2+1)<CLOSE AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
DRAWTEXT(FILTER(D2>0,5),HIGH*1.05,'K顶'),colorFF;
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,9,14),"RSI.RSI1"(6,9,14)),1));
D3:=REF(CLOSE,C3+1)<CLOSE AND REF("RSI.RSI1"(6,9,14),C3+1)>"RSI.RSI1"(6,9,14) AND CROSS("RSI.RSI2"(6,9,14),"RSI.RSI1"(6,9,14));
DRAWTEXT(FILTER(D3>0,5),HIGH*1.03,'R顶'),colorFF00FF;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:(EMA(AMOUNT-SMA(AMOUNT,10,1),5))/1000000,COLORSTICK,LINETHICK5;
POLYLINE(CLOSE,MACD);
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,8,0),colorAA;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,5,0),colorCC;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,2.5,0),colorDD;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,8,0),colorAA;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,5,0),color77FF;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,3,0),colorFFFF;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,8,0),colorFF9900;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5,0),colorFFBB00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,3,0),colorFFFF00;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,8,0),colorFF0000;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,5,0),colorFF4400;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,3,0),colorFF8800;
K:=DATE<1341231;
F:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
P1:=IF(CLOSE<REF(OPEN,1) AND F<0,1,0);
P2:=IF(CLOSE<REF(OPEN,2) AND F<0,1,0);
CLOSE3:=REF(CLOSE,3);
CLOSE5:=REF(CLOSE,5);
CLOSE7:=REF(CLOSE,7);
CLOSE8:=REF(CLOSE,8);
CLOSE13:=REF(CLOSE,13);
CLOSE21:=REF(CLOSE,21);
JC:=(REF(CLOSE,3)+REF(CLOSE,5)+REF(CLOSE,7)+REF(CLOSE,8)+REF(CLOSE,13)+REF(CLOSE,21))/6;
AA:=IF(CLOSE>=REF(CLOSE,3),1,0);
BB:=IF(CLOSE>=REF(CLOSE,5),1,0);
CC:=IF(CLOSE>=REF(CLOSE,7),1,0);
DD:=IF(CLOSE>=REF(CLOSE,8),1,0);
EE:=IF(CLOSE>=REF(CLOSE,13),1,0);
FF:=IF(CLOSE>=REF(CLOSE,21),1,0);
GZ2:=AA+BB+CC+DD+EE+FF;
KK:=0;
FOR I=1 TO 4 DO BEGIN
KK:=KK+REF(GZ2,I);
END;
KKK:=KK/4;
DP:=IF(CLOSE=INDEXC,0,1);
GJ:=AMOUNT/VOL/100;
明日阻力:=LOW+GJ-LOW+CLOSE-LOW;
明日支撑:=LOW+CLOSE-GJ;
今日阻力:=REF(明日阻力,1);
今日支撑:=REF(明日支撑,1);
IF SYSPARAM(3)=2 THEN
A:=BARPOS;
IF SYSPARAM(3)=1 THEN
B:=BARPOS;
D:=A-B;
E:=HHV(HIGH,D);
DRAWTEXTEX(CLOSE,1,450,150,'---------------'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,190,'---------------'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,230,'---------------'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,270,'---------------'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,440,310,' ---------------'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,170,'今日支撑=:'+NUMTOSTR(今日支撑,2)+''),colorFFFF;
DRAWTEXTEX(CLOSE,1,450,210,'今日阻力=:'+NUMTOSTR(今日阻力,2)+''),colorFF00;
DRAWTEXTEX(CLOSE,1,450,250,'明日支撑=:'+NUMTOSTR(明日支撑,2)),colorFF00FF;
DRAWTEXTEX(CLOSE,1,450,290,'明日阻力=:'+NUMTOSTR(明日阻力,2)),colorFFFF00;
V1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
V2:EMA(V1,8)*10,STICK;
V3:EMA(V1,8)*10,LINESTICK,LINETHICK3,colorFF00FF;
资金:V3,LINETHICK3,colorFFFF;
VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100;
VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR3:=SMA(SMA(VAR2,3,1),3,1)/28.57;
财:EMA(VAR3,5),POINTDOT,colorFFCCCC;
小子哪跑:3*VAR3-2*财,POINTDOT,colorFF;
STICKLINE(小子哪跑>财,小子哪跑,财,6,0),colorFF;
STICKLINE(小子哪跑<财,财,小子哪跑,6,0),colorDD00;
A1:=CROSS(小子哪跑,VAR3) AND VAR3<2.1 AND CLOSE>OPEN;
STICKLINE(A1,0,0.9,6,0),colorFFFF;
A2:=CROSS(小子哪跑,VAR3) AND VAR3>2.2;
DRAWICON(A2,VAR3,1);
DRAWTEXT(A1,60,'60分'),colorFFFFFF;
DRAWTEXT(A1,50,'祝'),colorFFFFFF;
DRAWTEXT(A1,40.6,'朋'),colorFFFFFF;
DRAWTEXT(A1,30.2,'友'),colorFFFFFF;
DRAWTEXT(A1,20.8,'发'),colorFFFFFF;
DRAWTEXT(A1,10.4,'财'),colorFFFFFF;
KS:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND CLOSE/REF(CLOSE,1)>=1.02;
超跌:STICKLINE(KS>=8,HIGH,LOW,0,1),LINETHICK2,colorFFFFFF;
STICKLINE(KS>=8,OPEN,CLOSE,7,1),LINETHICK2,colorFFFFFF;
反弹:STICKLINE(MLS=1,HIGH,LOW,0,1),LINETHICK2,colorFF00;
STICKLINE(MLS=1,OPEN,CLOSE,7,1),LINETHICK2,colorFF00;
中线止损价:=EMA(CLOSE,26);
中线止赢价:=中线止损价*1.8;
FC:=IF(CLOSE>=1 AND CLOSE<10,INTPART(CLOSE*10)/10,IF(CLOSE>=10 AND CLOSE<100,INTPART(CLOSE),IF(CLOSE>=100,INTPART(CLOSE/10)*10,CLOSE)));
M5:=MA(FC,5);
IF(M5>=1 AND M5<10,INTPART(M5*10)/10,IF(M5>=10 AND M5<100,INTPART(M5),IF(M5>=100,INTPART(M5/10)*10,CLOSE))),LINETHICK0;
M10:=MA(FC,10);
IF(M10>=1 AND M10<10,INTPART(M10*10)/10,IF(M10>=10 AND M10<100,INTPART(M10),IF(M10>=100,INTPART(M10/10)*10,CLOSE))),LINETHICK0;
M20:=MA(FC,20);
IF(M20>=1 AND M20<10,INTPART(M20*10)/10,IF(M20>=10 AND M20<100,INTPART(M20),IF(M20>=100,INTPART(M20/10)*10,CLOSE))),LINETHICK0;
AA:=VOL/((HIGH-LOW)*2-(ABS(CLOSE-OPEN)));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*(HIGH-OPEN+CLOSE-LOW),VOL/2));
主动卖盘:=IF(CLOSE>OPEN,AA*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2));
B:=主动买盘-主动卖盘;
五日:=SUM(B,5);
十日:=SUM(B,10);
十五日:=SUM(B,15);
DRAWTEXTEX(CLOSE,2,10,50,'中线止赢:'),colorFFFF00;
DRAWTEXTEX(CLOSE,2,110,50,NUMTOSTR(中线止赢价,2)+'元'),colorFFFF00;
DRAWTEXTEX(CLOSE,2,230,50,'中线止损:'),colorFF00;
DRAWTEXTEX(CLOSE,2,330,50,NUMTOSTR(中线止损价,2)+'元'),colorFF00;
DRAWTEXTEX(CLOSE,2,450,50,'主动买盘:'),colorFF;
DRAWTEXTEX(CLOSE,2,540,50,NUMTOSTR(主动买盘,2)+''),colorFF;
DRAWTEXTEX(CLOSE,2,650,50,'主动卖盘:'),colorFF00;
DRAWTEXTEX(CLOSE,2,750,50,NUMTOSTR(主动卖盘,2)+''),colorFF00;
DRAWTEXTEX(CLOSE,3,10,100,'五日增减:'),colorFFFF;
D
[url=http://www.70822.com/soft/sort013/sort02/down-110812.html]非常权益个人版资金MACD测试版[/url]