求助老师这个指标能改成通达信吗?

[通达信] 2537 2
设置
2311091 Lv.2

专栏

发表于 2019-3-8 08:45 复制 显示全部楼层 倒序浏览 |
跳转到指定楼层
在线等各位大师,谢谢

记住:以后发求助帖不要发TXT格式上来,老师还得花理想币给您解压。
WWW:=C/REF(C,1)>1.099;
STICKLINE(WWW,O,C,6,0),COLORMAGENTA;
VAR2A:=(VOL/CAPITAL)<3;
VAR2B:=100*WINNER(CLOSE)>89;
VAR2C:=VAR2A AND VAR2B;
DRAWTEXT(VAR2C,h*1.02,'◆'),COLORMAGENTA;
VAR6B:=100*(WINNER(CLOSE)-WINNER(OPEN));
VAR6C:=VAR6B;
DRAWTEXT(VAR6C>30 AND VAR2A,o,'无量长阳');
DRAWTEXT(VAR6C>30 ,LOW*0.96,'长阳');
VAR3E:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR3F:=SMA(VAR3E,5,1);
VAR40:=SMA(VAR3F,10,1);
VAR47:=CROSS(VAR40,VAR3F);
VAR48:=VAR40>80 OR VAR3F>80;
VAR49:=VAR47 AND VAR48;
DRAWTEXT(VAR49,HIGH*1.04,'逃命!'), COLORYELLOW;

MID :=MA(CLOSE,20);
UPPER:= MID + 2*STD(CLOSE,20);
LOWER:= MID - 2*STD(CLOSE,20);
M10:=(UPPER-LOWER)/MID*100<10;
M15:=(UPPER-LOWER)/MID*100<15;
M20:=(UPPER-LOWER)/MID*100<20;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
MA1:=MA(C,30);
MA2:MA(C,60),LINEDOT,ColorLightGreen;
MA3:=MA(C,90);
MA4:=MA(C,120);
MA250:MA(C,250),LINEDASH,COLORGRAY;
HH:=MAX(MA1,MAX(MA2,MAX(MA3,MAX(MA4,MA250))));
LL:=MIN(MA1,MIN(MA2,MIN(MA3,MIN(MA4,MA250))));
HH1:=MAX(MA1,MAX(MA2,MAX(MA3,MA4)));
LL1:=MIN(MA1,MIN(MA2,MIN(MA3,MA4)));
五线开:=(HH-LL)/LL*100<9 AND C>MA1 AND MA1>REF(MA1,2) AND  DIFF>0 AND DEA>0 AND  DIFF>REF(DIFF,2),COLORRED;
MAA5:MA(C,5),LINEDOT,ColorGreen;
MAA10:=MA(C,10);
MAA20:=MA(C,20);
MAA30:=MA(C,30);
HHH:=MAX(MAA5,MAX(MAA10,MAX(MAA20,MAX(MAA30,MA2))));
LLL:=MIN(MAA5,MIN(MAA10,MIN(MAA20,MIN(MAA30,MA2))));
周小五线开:=(HHH-LLL)/LLL*100<9 AND C>MAA5 AND MAA5>REF(MAA5,2) AND DIFF>0 AND DEA>0 AND  DIFF>REF(DIFF,2);
布林:=M10 OR M15 OR M20;
飞:=五线开 AND 周小五线开 AND 布林;
DRAWTEXT(飞 ,H*1.03,'△'),COLORYELLOW;
换手:=(VOL/CAPITAL);
获利盘:=100*WINNER(CLOSE);
cdy:=获利盘/换手;
TJ:=获利盘>80 AND cdy>100;
DRAWTEXT(TJ ,L*0.993,'牛'),COLORYELLOW;
监控1:=cdy>200;

监控2:=cdy>100 AND cdy<200;
DRAWTEXT(监控1 ,H*1.015,'神1'),COLORwhite;
DRAWTEXT(监控2 ,H*1.015,'神2');

VAR7:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100;
VAR8:=MA(VAR7,10);
VAR9:=SMA(VAR8,3,1)/10;
DRAWTEXT(CROSS(9,VAR9),HIGH*1.05,'逃'), COLORYELLOW;
VAR16:=AMOUNT/VOL/100;
VAR17:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR19:=SUM(AMOUNT,13)/VAR16/100;
CYC13:=IF(DATE<9991228,DMA(VAR17,VOL/VAR19),0);
VAR2F:=100*(CLOSE-CYC13)/CYC13;
VAR45:=VAR2F<-16 AND WINNER(CLOSE)*100>45;
DRAWTEXT(VAR45,LOW*0.97,'豺狼出击'), COLORYELLOW;
VAR57:=1.1*CLOSE;
VAR58:=0.9*CLOSE;
VAR59:=100*(WINNER(VAR57)-WINNER(VAR58));
DRAWTEXT(VAR59>88,LOW*0.99,'M');
k1:=(C-CYC13)/CYC13*100;
DRAWTEXT(k1<-30,l*0.96,'亏底'),COLORwhite;
VARAA:=0.85*C;
VARAB:=100*WINNER(VARAA);
DRAWTEXT(VARAB>20 AND VARAB<30,L*0.98,'23'),ColorGray;
DRAWTEXT(VARAB>30 AND VARAB<40,L*0.98,'34'),ColorGray;
DRAWTEXT(VARAB>40 AND VARAB<50,L*0.98,'45'),ColorGray;
DRAWTEXT(VARAB>50 AND VARAB<60,L*0.98,'56'),ColorGray;
DRAWTEXT(VARAB>60 AND VARAB<70,L*0.98,'67'),ColorGray;
DRAWTEXT(VARAB>70 AND VARAB<80,L*0.98,'78'),ColorGray;
DRAWTEXT(VARAB>80 AND VARAB<90,L*0.98,'89'),ColorGray;
DRAWTEXT(VARAB>90 AND VARAB<100,L*0.98,'90'),ColorGray;



LASTK:=(REFX(ISLASTBAR,2)=0);
上涨:=CLOSE>REF(CLOSE,1);
未跌破:=REFX(CLOSE,1)>LOW AND REFX(CLOSE,2)>LOW AND REFX(CLOSE,3)>LOW;
缩量:=VOL>0.35*(REFX(VOL,1)+REFX(VOL,2)+REFX(VOL,3)) AND VOL>REFX(VOL,1);{1.05/3,5%}
逐级缩量:=VOL>REFX(VOL,1) AND REFX(VOL,1)>REFX(VOL,2) AND REFX(VOL,2)>REFX(VOL,3);
逐级价升:=CLOSE<REFX(CLOSE,1) AND REFX(CLOSE,1)<REFX(CLOSE,2) AND REFX(CLOSE,2)<REFX(CLOSE,3);
{倍量柱}
倍量柱:=VOL>=(REF(VOL,1)+REF(VOL,1))*0.9,LINETHICK0,COLORWHITE;
{高量柱}
高量柱:=VOL>0.3*(REF(SUM(VOL,3),1)+REFX(SUM(VOL,3),3)) AND VOL>REF(VOL,1) AND VOL>REFX(VOL,1),LINETHICK0,COLORWHITE;{1.8/6,1.8倍}
{平量柱}
平量柱:=VOL>REFX(VOL,1)*0.97 AND VOL<REFX(VOL,1)*1.03 AND VOL>=2*REF(VOL,1),LINETHICK0,COLORWHITE;
{梯量柱}
梯量柱:=VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2) AND CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2),LINETHICK0,COLORWHITE;{虽然是梯量柱,但也不能太小}
{将军柱}
将军柱:=LASTK AND 上涨 AND 未跌破 AND (倍量柱 OR 高量柱 OR 平量柱 OR 梯量柱),LINETHICK0,COLORYELLOW;
{黄金柱}
黄金柱:=将军柱 AND 缩量,LINETHICK0,COLORYELLOW;
{标准黄金柱}
标准黄金柱:=黄金柱 AND 逐级缩量 AND 逐级价升,LINETHICK0,COLORRED;
{输出}
STICKLINE(黄金柱,O,C,4,0),COLORYELLOW;

MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA30:=MA(C,30);
MA60:=MA(C,60);
MA120:=MA(C,120);
MA6:=(SUM(C,4)+C)/5;
MA11:=(SUM(C,9)+C)/10;
MA21:=(SUM(C,19)+C)/20;
MA31:=(SUM(C,29)+C)/30;
MA61:=(SUM(C,59)+C)/60;
MA121:=(SUM(C,119)+C)/120;

A1:=C>MA6 AND CROSS(MA6,MA11) AND C>SAR(4,2,20) AND MA5>REF(MA5,1) AND

REF(MA10,1)>REF(MA10,2) AND MA10>REF(MA10,1) AND MA20>REF(MA20,1) AND MA10>MA20 AND

MA20>MA30 AND MA30>MA60 AND MA120>REF(MA120,1);;

A2:=C>MA6 AND CROSS(MA11,MA21) AND C>SAR(4,2,20) AND MA5>REF(MA5,1) AND

REF(MA10,1)>REF(MA10,2) AND MA10>REF(MA10,1) AND MA20>REF(MA20,1) AND REF(MA20,1)>REF

(MA20,2) AND MA5>MA10 AND MA20>MA30 AND MA30>MA60 AND MA120>REF(MA120,1);;

A3:=C>MA6 AND CROSS(MA21,MA31) AND C>SAR(4,2,20) AND MA5>REF(MA5,1) AND

REF(MA10,1)>REF(MA10,2) AND MA10>REF(MA10,1) AND MA30>REF(MA30,1) AND REF(MA30,1)>REF

(MA30,2) AND MA5>MA10 AND MA10>MA20 AND MA30>MA60 AND MA120>REF(MA120,1);;

A4:=C>MA6 AND CROSS(MA31,MA61) AND C>SAR(4,2,20) AND REF(MA10,1)>REF

(MA10,2) AND MA10>REF(MA10,1) AND MA30>REF(MA30,1) AND REF(MA30,1)>REF(MA30,2) AND

MA5>MA10 AND MA10>MA20 AND MA20>MA30 AND MA60>MA120 AND MA120>REF(MA120,1);;

A5:=C>MA6 AND CROSS(MA61,MA121) AND C>SAR(4,2,20) AND REF(MA10,1)>REF

(MA10,2) AND MA10>REF(MA10,1) AND MA30>REF(MA30,1) AND REF(MA30,1)>REF(MA30,2) AND

MA5>MA10 AND MA10>MA20 AND MA20>MA30 AND MA30>MA60 AND MA120>REF(MA120,1);;

涨停多头:=A1 OR A2 OR A3 OR A4 OR A5;
DRAWTEXT(涨停多头,H*1.01,'攻'),COLORRED;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
dd:=Cross(100,J) AND MACD<REF(MACD,1);
didi:=Cross(J,0) AND MACD>REF(MACD,1);
DRAWTEXT(dd,H*1.02,'顶'),COLORGREEN;
DRAWTEXT(didi,L*1.01,'底'),COLORYELLOW;
红峰:=MACD>REF(MACD,1) AND MACD>0;
DRAWTEXT(红峰,L*0.999,'▲'),COLORMAGENTA;

周DIFF:="MACD.DIFF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
周MID:="BOLL.MID#WEEK"(20);
周UPPER:="BOLL.UPPER#WEEK"(20,2);
周LOWER:="BOLL.LOWER#WEEK"(20,2);
MA1:=MA(C,30);
AAA:=(周UPPER-周LOWER)/周MID*100;
M10:=AAA<10 AND C>MA1 AND MA1>REF(MA1,2) AND  周DIFF>0 AND 周DEA>0 AND  周DIFF>REF(周DIFF,2);
M15:=AAA<15 AND C>MA1 AND MA1>REF(MA1,2) AND  周DIFF>0 AND 周DEA>0 AND  周DIFF>REF(周DIFF,2);
M20:=AAA<20 AND C>MA1 AND MA1>REF(MA1,2) AND  周DIFF>0 AND 周DEA>0 AND  周DIFF>REF(周DIFF,2);
DRAWTEXT(M10,L*0.999,'变10'),COLORYELLOW;
DRAWTEXT(M15,L*0.993,'变15'),COLORGREEN;;
DRAWTEXT(M20,L*0.986,'变20');
月MID:="BOLL.MID#MONTH"(20);
月UPPER:="BOLL.UPPER#MONTH"(20,2);
月LOWER:="BOLL.LOWER#MONTH"(20,2);
月AAA:=(月UPPER-月LOWER)/月MID*100;
DRAWTEXT(月AAA<35,L*0.996,'月'),COLORYELLOW;

周J:="KDJ.J#WEEK"(9,3,3);
周KK:="KDJ.K#WEEK"(9,3,3);
周DD:="KDJ.D#WEEK"(9,3,3);
周金叉:=Cross(周J,0);
周死叉:=Cross(100,周J);
周KD:=Cross(周KK,周DD) AND 周KK<20 AND 周DD<20;
周KD顶:=Cross(周DD,周KK) AND 周KK>80 AND 周DD>80;
周K:="KDJ.K#WEEK"(9,3,3);
周上穿:=Cross(周DIFF,0);
日上穿:=Cross(DIFF,0);
周D:=周DIFF>REF(周DIFF,1) AND 周DIFF>=0;
月J:="KDJ.J#MONTH"(9,3,3);
月k:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月金叉:=Cross(月k,月D) and 月k<20 and 月D<20;
月死叉:=Cross(月d,月k) and 月k>80 and 月D>80;
DRAWTEXT(周KD,L*0.91,'周KD'),COLORwhite;
DRAWTEXT(月金叉,L*0.91,'月KD'),COLORwhite;


DRAWTEXT(周KD顶,L*0.97,'周顶'),COLORYELLOW;
DRAWTEXT(月死叉,L*0.97,'月顶'),COLORYELLOW;
周MA1:="MA.MA5#WEEK"(C,5);
周MA2:="MA.MA10#WEEK"(10);
周MA3:="MA.MA20#WEEK"(20);
周MA4:="MA.MA30#WEEK"(30);



HH:=MAX(周MA1,MAX(周MA2,MAX(周MA3,周MA4)));
LL:=MIN(周MA1,MIN(周MA2,MIN(周MA3,周MA4)));
周瀑布开花:=(HH-LL)/LL*100<4 AND  周DIFF>REF(周DIFF,2) AND 周DIFF>周DEA AND 周MA1>周MA2 AND C>MA250  ;
DRAWTEXT(周瀑布开花,H*1.05,'周开'),COLORYELLOW;

HSL:=VOL/CAPITAL;
HS:=HSL>0.4*REF(HSL,1) AND HSL<0.6*REF(HSL,1) AND C>O;
SUO:=HSL>0.4*REF(HSL,1) AND HSL<0.6*REF(HSL,1);
DRAWTEXT(HS,C*1.01,'眼'),COLORYELLOW;
BEI:=HSL>1.8*REF(HSL,1) AND HSL<2.2*REF(HSL,1) AND C>O;

STICKLINE(SUO,O,C,6,0),COLORGREEN;
STICKLINE(BEI,O,C,6,0),COLORwhite;
STICKLINE(HS,O,C,4,0),COLORYELLOW;

VAR16:=AMOUNT/VOL/100;
VAR17:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR19:=SUM(AMOUNT,13)/VAR16/100;
CYC13:=IF(DATE<9991228,DMA(VAR17,VOL/VAR19),0);

VAR51:=100*(CLOSE-COST(1))/(COST(99)-COST(1));
VAR57:=1.1*CLOSE;
VAR58:=0.9*CLOSE;
VAR59:=100*(WINNER(VAR57)-WINNER(VAR58));
VAR5E:=VOL/CAPITAL;
VAR5F:=WINNER(CLOSE)*100-WINNER(REF(CLOSE,1))*100;
VAR61:=VAR5F/VAR5E;
VAR64:=LLV(LOW,240);
VAR69:=100*(CLOSE-VAR64)/VAR64;
VAR83:=WINNER(CLOSE)/(VOL/CAPITAL);
VAR2F:=100*(CLOSE-CYC13)/CYC13;
VAR8A:=(VAR2F-LLV(VAR2F,60))/(HHV(VAR2F,60)-LLV(VAR2F,60))*100;
VAR8D:=WINNER(CLOSE)/SMA(VOL/CAPITAL,13,1);
VAR8E:=(CLOSE-LLV(LOW,240))/(HHV(HIGH,240)-LLV(LOW,240))*100;
VAR8F:=(CLOSE-LLV(LOW,480))/(HHV(HIGH,480)-LLV(LOW,480))*100;
抢钱:=VAR69<1 AND VAR83<0.3 AND VAR8D<0.3 AND VAR61<0 AND VAR8E<0.5 AND VAR8F<0.5 AND VAR59<1.5 AND VAR51<1 AND VAR8A=0;
DRAWTEXT(抢钱,L*0.85,'快抢钱啦'),COLORYELLOW;

k1:=(C-CYC13)/CYC13*100;
DRAWTEXT(k1<-10 and k1>-20,C*0.95,'k12'),COLORGREEN;
DRAWTEXT(k1<-20 and k1>-30,C*0.95,'k23');
DRAWTEXT(k1<-30 and k1>-40,C*0.95,'k34');
DRAWTEXT(k1<-40 and k1>-50,C*0.95,'k45');
DRAWTEXT(k1>10 and k1<15,H*1.02,'Y1015');
DRAWTEXT(k1>15 and k1<20,H*1.02,'Y1520');
DRAWTEXT(k1>20 and k1<25,H*1.02,'Y2025');
DRAWTEXT(k1>25 and k1<30,H*1.02,'Y2530');
DRAWTEXT(k1>30 and k1<35,H*1.02,'Y3035');

附件

源代码.txt [预览]

9.41 KB, 下载次数: 4, 下载积分: 共享币 -10 个

来自 山西省晋中市

举报

使用道具 扔鸡蛋 回复

2956116
Lv.6

专栏

发表于 2019-3-8 19:27 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...

附件

88.txt [预览]

9.33 KB, 下载次数: 4, 下载积分: 共享币 -10 个

来自 广东省东莞市

举报

使用道具 点亮 支持 扔鸡蛋 回复

2311091
Lv.2

专栏

发表于 2019-3-9 21:18 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山西省晋中市

举报

使用道具 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

楼主
2楼
3楼
站长推荐 /5
回顶部 到页底
快速回复 返回顶部 返回列表