通达信神龙战法升级版主图指标公式(附源码破译、测评和源码)
2024-06-01 【 字体:大 中 小 】
编程思路破译
输出CY:当满足条件收盘价/1日前的收盘价>=1.1时,在收盘价-(收盘价-开盘价)/3和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色
输出ZT:当满足条件收盘价/1日前的收盘价>=1.0989ANDCLOSE=最高价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色
输出DY:当满足条件收盘价/1日前的收盘价>=1.05ANDCLOSE/1日前的收盘价<1.0989时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
输出ZY:当满足条件收盘价/1日前的收盘价>=1.03ANDCLOSE/1日前的收盘价<1.05时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画红色
ZB赋值:最高价=计算涨停价 AND 收盘价<最高价
ZQ赋值:100*(收盘价-12日前的收盘价)/12日前的收盘价
CQ赋值:((最高价+最低价+收盘价)/3-(最高价+最低价+收盘价)/3的88日简单移动平均)/(0.015*(最高价+最低价+收盘价)/3的88日平均绝对偏差)
TD赋值:1.07*以(2*收盘价+最高价+最低价)/4-收盘价的26日简单移动平均的绝对值/收盘价的26日简单移动平均为权重收盘价的动态移动平均
QS赋值:TD-1日前的TD的反正切的3日简单移动平均
QS1赋值:如果(收盘价>OORC<开盘价)ANDH>=1日前的收盘价,返回最高价的5日简单移动平均*1.02-1日前的收盘价的5日简单移动平均*1.02的反正切,否则返回0
QS2赋值:如果(收盘价>OORC<开盘价)ANDH<1日前的收盘价,返回-1日前的收盘价的5日简单移动平均*1.02-最高价的5日简单移动平均*1.02的反正切,否则返回0
FJ赋值:1日前的(QS1+QS2)的26日简单移动平均
QQS赋值:QS>FJ AND QS>1日前的QS
CN赋值:QQS AND CQ>200 AND ZQ>20 AND 收盘价>1日前的收盘价
当满足条件CN时,在最低价*0.95位置书写文字,画黄色 ,线宽为2
TT赋值:(收盘价的5日指数移动平均 * 7 + 收盘价的10日指数移动平均 * 3) / 10,,NODRAW
当满足条件TT上穿最高价的30日简单移动平均*(1+13/100)的5日过滤时,在最高价的30日简单移动平均*(1+13/100)*0.96位置书写文字,画黄色
AAA赋值:(3*收盘价+最高价+最低价+开盘价)/6
输出VAR1:(8*AAA+7*1日前的AAA+6*2日前的AAA+5*3日前的AAA+4*4日前的AAA+3*5日前的AAA+2*6日前的AAA+8日前的AAA)/36,线宽为2,画红色
VAR2赋值:(2日内VAR1的最高值+4日内VAR1的最高值+8日内VAR1的最高值)/3
输出布林极限:(2日内VAR2的最高值+4日内VAR2的最高值+8日内VAR2的最高值)/3,画黄色,线宽为3
如果(VAR1<=1日前的VAR1),返回VAR1,否则返回无效数,画绿色,线宽为3
如果(VAR1>=1日前的VAR1),返回VAR1,否则返回无效数,画洋红色,线宽为3
VAR6赋值:(2日内VAR1的最低值+4日内VAR1的最低值+8日内VAR1的最低值)/3
当满足条件BB>VAR1时,在BB和VAR1位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画蓝色
当满足条件VAR1上穿1日前的VAR1ANDMACD>1日前的MACD时,在最低价*0.96位置画1号图标,画红色
当满足条件1日前的VAR6=1日前的VAR1ANDVAR6<VAR1时,在最低价*0.98位置书写文字,画黄色
LC赋值:1日前的收盘价
LC1赋值:1日前的收盘价
RSI1赋值:((收盘价-LC和0的较大值的6日[1日权重]移动平均)/(收盘价-LC的绝对值的6日[1日权重]移动平均))*(100)
当满足条件84上穿RSI时,在最高价*1.023位置书写文字,画蓝色,线宽为2
MA1赋值:收盘价的5日简单移动平均
TJ赋值:30日内最高价的最高值=最高价
TJT赋值:上次TJ距今天数
TJ1赋值:30日内最低价的最低值=最低价
TJ1T赋值:上次TJ1距今天数
当满足条件最高价=30日内最高价的最高值时,在30日内最高价的最高值位置画直线起点,当满足条件最低价=30日内最低价的最低值时,在30日内最低价的最低值位置画直线终点,0表示是否延长.,画绿色,线宽为1,DOTLINE
输出NOTEXT2:当满足条件最高价=30日内最高价的最高值时,在30日内最高价的最高值位置画直线起点,当满足条件最低价=30日内最低价的最低值时,在TJT日前的最高价位置画直线终点,0表示是否延长.,画红色,线宽为1
当满足条件NOTEXT2ANDL=30日内最低价的最低值ANDFILTERX(最低价=30日内最低价的最低值,TJT+1)时,在TJ1T日前的最低价和TJT日前的最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画洋红色
买入赋值:如果MA1>1日前的MA1,返回MA1,否则返回无效数,线宽为1,画红色
DF赋值:(30日内最高价的最高值-30日内最低价的最低值)/30日内最高价的最高值*100
当满足条件最高价=30日内最高价的最高值ANDNOTEXT2时,在最高价*1.015位置书写文字,画绿色
当满足条件NOTEXT2ANDBARSLAST(最高价=30日内最高价的最高值)=4时,在上次最高价=30日内最高价的最高值距今天数日前的最高价*1.015位置书写文字,画绿色
当满足条件NOTEXT2ANDBARSLAST(最高价=30日内最高价的最高值)=8时,在上次最高价=30日内最高价的最高值距今天数日前的最高价*1.015位置书写文字,画绿色
LT赋值:60日内最低价距今天数
当满足条件到最后交易的周期=LT的最后一日取值设为常数+1时,在最低价位置画直线起点,当满足条件是否最后一个周期时,在LT日前的最低价位置画直线终点,0表示是否延长.,画洋红色 ,线宽为2,POINTDOT
程序源码
CY:STICKLINE(CLOSE/REF(CLOSE,1)>=1.1 ,CLOSE-(CLOSE-OPEN)/3,OPEN,2,0),COLORYELLOW;
ZT:STICKLINE(CLOSE/REF(CLOSE,1)>=1.0989 AND CLOSE=HIGH ,CLOSE,OPEN,2,0),COLORYELLOW;
DY:STICKLINE(CLOSE/REF(CLOSE,1)>=1.05 AND CLOSE/REF(CLOSE,1)<1.0989,CLOSE,OPEN,2,0),COLORMAGENTA;
ZY:STICKLINE(CLOSE/REF(CLOSE,1)>=1.03 AND CLOSE/REF(CLOSE,1)<1.05,CLOSE,OPEN,2,0),COLORRED;
ZB:=HIGH=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE<HIGH;
ZQ:=100*(C-REF(C,12))/REF(C,12);
CQ:=((H+L+C)/3-MA((H+L+C)/3,88))/(0.015*AVEDEV((H+L+C)/3,88));
TD:=1.07*DMA(C,ABS((2*C+H+L)/4-MA(C,26))/MA(C,26));
QS:=MA(ATAN(TD-REF(TD,1)),3);
QS1:=IF((C>O OR C<O) AND H>=REF(C,1),ATAN(MA(H,5)*1.02-REF(MA(C,5)*1.02,1)),0);
QS2:=IF((C>O OR C<O) AND H<REF(C,1),-ATAN(REF(MA(C,5)*1.02,1)-MA(H,5)*1.02),0);
FJ:=MA(REF((QS1+QS2),1),26);QQS:=QS>FJ AND QS>REF(QS,1);
CN:=QQS AND CQ>200 AND ZQ>20 AND C>REF(C,1);
DRAWTEXT(CN,L*0.95,'|↖神龙'),COLORYELLOW ,LINETHICK2;
TT:=(EMA(C,5) * 7 + EMA(C,10) * 3) / 10,,NODRAW;
DRAWTEXT(FILTER(CROSS(TT,MA(H,30) * (1 + 13 / 100)),5),MA(H,30) * (1 + 13 / 100) * 0.96,'|↖捉大妖'),COLORYELLOW;
AAA:=(3*C+H+L+O)/6;
VAR1:(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36,LINETHICK2,COLORRED;
VAR2:=(HHV(VAR1,2)+HHV(VAR1,4)+HHV(VAR1,8))/3;
BB:(HHV(VAR2,2)+HHV(VAR2,4)+HHV(VAR2,8))/3,COLORYELLOW,LINETHICK3;
IF((VAR1 <= REF(VAR1,1)),VAR1,DRAWNULL),COLORGREEN,LINETHICK3;
IF((VAR1 >= REF(VAR1,1)),VAR1,DRAWNULL),COLORMAGENTA,LINETHICK3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,8))/3;
STICKLINE(BB>VAR1,BB,VAR1,0,-1),COLORBLUE;
DRAWICON(CROSS(VAR1,REF(VAR1,1)) AND MACD>REF(MACD,1),L*0.96,1),COLORRED;
DRAWTEXT(REF(VAR6,1)=REF(VAR1,1) AND VAR6<VAR1,L*0.98,'|↖加仓'),COLORYELLOW;
LC:=REF(CLOSE,1);LC1:=REF(CLOSE,1);
RSI1:=((SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1)))*(100);
DRAWTEXT(CROSS(84,RSI),HIGH*1.023,'逃顶 '),COLORBLUE,LINETHICK2;
MA1:=MA(CLOSE,5);TJ:=HHV(H,30)=H;TJT:=BARSLAST(TJ);TJ1:=LLV(L,30)=L;TJ1T:=BARSLAST(TJ1);
DRAWLINE(H=HHV(H,30),HHV(H,30),L=LLV(L,30),LLV(LOW,30),0),COLORGREEN,LINETHICK1,DOTLINE;
NOTEXT2:DRAWLINE(H=HHV(H,30),HHV(H,30),L=LLV(L,30),REF(H,TJT),0),COLORRED,LINETHICK1;
STICKLINE(NOTEXT2 AND L=LLV(L,30) AND FILTERX(L=LLV(L,30),TJT+1),REF(L,TJ1T),REF(H,TJT),0,0),COLORMAGENTA;
买入:=IF(MA1>REF(MA1,1),MA1,DRAWNULL),LINETHICK1,COLORRED;
DF:=(HHV(H,30)-LLV(L,30))/HHV(H,30)*100;
DRAWTEXT(H=HHV(H,30) AND NOTEXT2,H*1.015,'下跌'),COLORGREEN;
DRAWTEXT( NOTEXT2 AND BARSLAST(H=HHV(H,30))=4 ,REF(H,BARSLAST(H=HHV(H,30)))*1.015,VAR2STR(DF,1)),COLORGREEN;
DRAWTEXT( NOTEXT2 AND BARSLAST(H=HHV(H,30))=8 ,REF(H,BARSLAST(H=HHV(H,30)))*1.015,'%'),COLORGREEN;
LT:=LLVBARS(L,60);
DRAWLINE(CURRBARSCOUNT=CONST(LT)+1,L,ISLASTBAR,REF(L,LT),0),COLORMAGENTA ,LINETHICK2,POINTDOT;
该公式包含未来函数:DRAWLINE
注:
馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。
发文不易,如获益,欢迎赞赏,赞赏必复!
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。
![](http://www.eqoob.cn/uploadfile/202406/e0672d759e4456f.png)
![](/static/default/demo100/images/ndarrow.png)
猜你喜欢
![](/static/default/demo100/images/default.jpg)
一周调整无碍黄金继续火热, 中国银行跟进上调积存金起购金额, 中国黄金表态推进旗舰店布局
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
起亚计划向Uber提供PBV汽车
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
麻章法院:法治宣传“跑”进“湛马”!
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
全国政协委员、国浩律师(上海)事务所合伙人吕红兵:建议加快制定民营经济促进法保障民企合法权益
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
政策利好叠加换代周期 超20只工业母机概念股涨停
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
酸酸辣辣好味道,开胃促食欲,教你3分钟学会
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
在巴西新建600个充电点 比亚迪要和壳牌联手了
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
欧盟向海地提供2000万欧元紧急人道主义援助
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
现货黄金交易策略:美元回落支撑金价,关注初请失业金人数变动
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/default.jpg)
年内43家公司被强制退市 房地产、计算机行业数量较多
![](/static/default/demo100/images/watch.png)
![](/static/default/demo100/images/info2.png)
,美国制造业联盟敦促美国政府阻止从墨西哥进口低价中国汽车 商务部回应
![,美国制造业联盟敦促美国政府阻止从墨西哥进口低价中国汽车 商务部回应](http://www.eqoob.cn/uploadfile/202409/5822b3cbc3f65e7.png)
![](/static/default/demo100/images/info2.png)
酸酸辣辣好味道,开胃促食欲,教你3分钟学会
![酸酸辣辣好味道,开胃促食欲,教你3分钟学会](http://www.eqoob.cn/uploadfile/202408/f5298b748e106e.png)
![](/static/default/demo100/images/info2.png)
美高官承认有无辜者因以军行动丧生,坚称美军未踏足加沙
![美高官承认有无辜者因以军行动丧生,坚称美军未踏足加沙](http://www.eqoob.cn/uploadfile/202408/daa2b89adcb9a20.png)
![](/static/default/demo100/images/info2.png)
被派出所长实名举报的县公安局长:跨区域调任现职不满两年
![被派出所长实名举报的县公安局长:跨区域调任现职不满两年](http://www.eqoob.cn/uploadfile/202408/11ec08d7bf952.png)
![](/static/default/demo100/images/info2.png)
想买智界S7的先等等,11个关注点带你看透TA,哪些点值得你掏钱?
![想买智界S7的先等等,11个关注点带你看透TA,哪些点值得你掏钱?](http://www.eqoob.cn/uploadfile/202408/3444e1977385a1c.png)
![](/static/default/demo100/images/info2.png)
大沥,又造节了!
![大沥,又造节了!](http://www.eqoob.cn/uploadfile/202408/397c79870042f17.png)
![](/static/default/demo100/images/info2.png)
深圳一楼盘外立面出现大面积鼓包,部门介入调查,开发商回应
![深圳一楼盘外立面出现大面积鼓包,部门介入调查,开发商回应](http://www.eqoob.cn/uploadfile/202408/24461745bd77.png)
![](/static/default/demo100/images/info2.png)
东吴春晓投资咨询专刊-第四十一期
![东吴春晓投资咨询专刊-第四十一期](http://www.eqoob.cn/uploadfile/202408/9c7b8f3c849eecf.png)
![](/static/default/demo100/images/info2.png)
甘南,那些不为人知的世界级景观,你去过几个?
![甘南,那些不为人知的世界级景观,你去过几个?](http://www.eqoob.cn/uploadfile/202408/5a6a027f1745703.png)
![](/static/default/demo100/images/info2.png)
10898棵!珠港澳青年为绿美珠海充“植”
![10898棵!珠港澳青年为绿美珠海充“植”](http://www.eqoob.cn/uploadfile/202408/c681db306784819.png)