编程思路破译
N赋值:5
M赋值:3
JX5赋值:收盘价的5日简单移动平均
JX13赋值:收盘价的13日简单移动平均
JX24赋值:收盘价的24日简单移动平均
JX60赋值:收盘价的60日简单移动平均
JX120赋值:收盘价的120日简单移动平均
JX250赋值:收盘价的250日简单移动平均
NHD1赋值:100*(JX5和JX13和JX24的较大值的较大值/JX5和JX13和JX24的较小值的较小值-1)
NHD2赋值:100*(JX13和JX24和JX60的较大值的较大值/JX13和JX24和JX60的较小值的较小值-1)
NHD3赋值:100*(JX24和JX60和JX120的较大值的较大值/JX24和JX60和JX120的较小值的较小值-1)
NHD4赋值:100*(JX60和JX120和JX250的较大值的较大值/JX60和JX120和JX250的较小值的较小值-1)
NHD5赋值:100*(JX5和JX13和JX24和JX60的较大值的较大值的较大值/JX5和JX13和JX24和JX60的较小值的较小值的较小值-1)
NHD6赋值:100*(JX13和JX24和JX60和JX120的较大值的较大值的较大值/JX13和JX24和JX60和JX120的较小值的较小值的较小值-1)
NHD7赋值:100*(JX24和JX60和JX120和JX250的较大值的较大值的较大值/JX24和JX60和JX120和JX250的较小值的较小值的较小值-1)
NHD8赋值:100*(JX5和JX13和JX24和JX60和JX120的较大值的较大值的较大值的较大值/JX5和JX13和JX24和JX60和JX120的较小值的较小值的较小值的较小值-1)
NHD9赋值:100*(JX5和JX13和JX24和JX60和JX250的较大值的较大值的较大值的较大值/JX5和JX13和JX24和JX60和JX250的较小值的较小值的较小值的较小值-1)
NHD10赋值:100*(JX5和JX13和JX24和JX120和JX250的较大值的较大值的较大值的较大值/JX5和JX13和JX24和JX120和JX250的较小值的较小值的较小值的较小值-1)
NHD11赋值:100*(JX5和JX13和JX60和JX120和JX250的较大值的较大值的较大值的较大值/JX5和JX13和JX60和JX120和JX250的较小值的较小值的较小值的较小值-1)
NHD12赋值:100*(JX5和JX24和JX60和JX120和JX250的较大值的较大值的较大值的较大值/JX5和JX24和JX60和JX120和JX250的较小值的较小值的较小值的较小值-1)
NHD13赋值:100*(JX13和JX24和JX60和JX120和JX250的较大值的较大值的较大值的较大值/JX13和JX24和JX60和JX120和JX250的较小值的较小值的较小值的较小值-1)
NHD14赋值:100 * (JX5和JX13和JX24和JX60和JX120和JX250的较大值的较大值的较大值的较大值的较大值 / JX5和JX13和JX24和JX60和JX120和JX250的较小值的较小值的较小值的较小值的较小值 - 1)
NF1赋值:最近M日一直存在1日前的NHD1>NHD1 AND NHD1<N
NF2赋值:最近M日一直存在1日前的NHD2>NHD2 AND NHD2<N
NF3赋值:最近M日一直存在1日前的NHD3>NHD3 AND NHD3<N
NF4赋值:最近M日一直存在1日前的NHD4>NHD4 AND NHD4<N
NF5赋值:最近M日一直存在1日前的NHD5>NHD5 AND NHD5<N
NF6赋值:最近M日一直存在1日前的NHD6>NHD6 AND NHD6<N
NF7赋值:最近M日一直存在1日前的NHD7>NHD7 AND NHD7<N
NF8赋值:最近M日一直存在1日前的NHD8>NHD8 AND NHD8<N
NF9赋值:最近M日一直存在1日前的NHD9>NHD9 AND NHD9<N
NF10赋值:最近M日一直存在1日前的NHD10>NHD10 AND NHD10<N
NF11赋值:最近M日一直存在1日前的NHD11>NHD11 AND NHD11<N
NF12赋值:最近M日一直存在1日前的NHD12>NHD12 AND NHD12<N
NF13赋值:最近M日一直存在1日前的NHD13>NHD13 AND NHD13<N
NF14赋值:最近M日一直存在1日前的NHD14>NHD14 AND NHD14<N
1.05,POINTDOT,画白色
NH3赋值:如果NF1ORNF2ORNF3ORNF4,返回3,否则返回0
NH4赋值:如果NF5ORNF6ORNF7,返回4,否则返回0
NH5赋值:如果NF8ORNF9ORNF10ORNF11ORNF12ORNF13,返回5,否则返回0
NH6赋值:如果NF14,返回6,否则返回0
当满足条件NF1时,在0和0.8位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORE47833
当满足条件NF5时,在0和0.8位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR32CD32
当满足条件NF8时,在0和0.8位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0B86B8
当满足条件NF14时,在0和0.8位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORCD00CD
输出三粘:100*(JX5和JX13和JX24的较大值的较大值/JX5和JX13和JX24的较小值的较小值-1),COLORE47833,NODRAW
输出 四粘:100*(JX5和JX13和JX24和JX60的较大值的较大值的较大值/JX5和JX13和JX24和JX60的较小值的较小值的较小值-1),COLOR32CD32,NODRAW
输出 五粘:100*(JX5和JX13和JX24和JX60和JX120的较大值的较大值的较大值的较大值/JX5和JX13和JX24和JX60和JX120的较小值的较小值的较小值的较小值-1),COLOR0B86B8,NODRAW
输出 六粘:100 * (JX5和JX13和JX24和JX60和JX120和JX250的较大值的较大值的较大值的较大值的较大值 / JX5和JX13和JX24和JX60和JX120和JX250的较小值的较小值的较小值的较小值的较小值 - 1),COLORCD00CD,NODRAW
程序源码
N:=5;
M:=3;
JX5:=MA(C,5);JX13:=MA(C,13);JX24:=MA(C,24);JX60:=MA(C,60);JX120:=MA(C,120);JX250:=MA(C,250);
{以下三线粘合}
NHD1:=100*(MAX(JX5,MAX(JX13,JX24))/MIN(JX5,MIN(JX13,JX24))-1); {JX5 JX13 JX24粘合}
NHD2:=100*(MAX(JX13,MAX(JX24,JX60))/MIN(JX13,MIN(JX24,JX60))-1); {JX13 JX24 JX60粘合}
NHD3:=100*(MAX(JX24,MAX(JX60,JX120))/MIN(JX24,MIN(JX60,JX120))-1); {JX24 JX60 JX120粘合}
NHD4:=100*(MAX(JX60,MAX(JX120,JX250))/MIN(JX60,MIN(JX120,JX250))-1); {JX60 JX120 JX250粘合}
{以下四线粘合}
NHD5:=100*(MAX(JX5,MAX(JX13,MAX(JX24,JX60)))/MIN(JX5,MIN(JX13,MIN(JX24,JX60)))-1); {JX5 JX13 JX24 JX60粘合}
NHD6:=100*(MAX(JX13,MAX(JX24,MAX(JX60,JX120)))/MIN(JX13,MIN(JX24,MIN(JX60,JX120)))-1); {JX13 JX24 JX60 JX120粘合}
NHD7:=100*(MAX(JX24,MAX(JX60,MAX(JX120,JX250)))/MIN(JX24,MIN(JX60,MIN(JX120,JX250)))-1); {JX24 JX60 JX120 JX250粘合}
{以下五线粘合}
NHD8:=100*(MAX(JX5,MAX(JX13,MAX(JX24,MAX(JX60,JX120))))/MIN(JX5,MIN(JX13,MIN(JX24,MIN(JX60,JX120))))-1); {JX5 JX13 JX24 JX60 JX120粘合}
NHD9:=100*(MAX(JX5,MAX(JX13,MAX(JX24,MAX(JX60,JX250))))/MIN(JX5,MIN(JX13,MIN(JX24,MIN(JX60,JX250))))-1); {JX5 JX13 JX24 JX60 JX250粘合}
NHD10:=100*(MAX(JX5,MAX(JX13,MAX(JX24,MAX(JX120,JX250))))/MIN(JX5,MIN(JX13,MIN(JX24,MIN(JX120,JX250))))-1); {JX5 JX13 JX24 JX120 JX250粘合}
NHD11:=100*(MAX(JX5,MAX(JX13,MAX(JX60,MAX(JX120,JX250))))/MIN(JX5,MIN(JX13,MIN(JX60,MIN(JX120,JX250))))-1); {JX5 JX13 JX60 JX120 JX250粘合}
NHD12:=100*(MAX(JX5,MAX(JX24,MAX(JX60,MAX(JX120,JX250))))/MIN(JX5,MIN(JX24,MIN(JX60,MIN(JX120,JX250))))-1); {JX5 JX24 JX60 JX120 JX250粘合}
NHD13:=100*(MAX(JX13,MAX(JX24,MAX(JX60,MAX(JX120,JX250))))/MIN(JX13,MIN(JX24,MIN(JX60,MIN(JX120,JX250))))-1); {JX13 JX24 JX60 JX120 JX250粘合}
{以下六线粘合}
NHD14:=100 * (MAX(JX5, MAX(JX13, MAX(JX24, MAX(JX60, MAX(JX120, JX250))))) / MIN(JX5, MIN(JX13, MIN(JX24, MIN(JX60, MIN(JX120, JX250))))) - 1);
NF1:=EVERY(REF(NHD1,1)>NHD1,M) AND NHD1<N ;
NF2:=EVERY(REF(NHD2,1)>NHD2,M) AND NHD2<N;
NF3:=EVERY(REF(NHD3,1)>NHD3,M) AND NHD3<N;
NF4:=EVERY(REF(NHD4,1)>NHD4,M) AND NHD4<N ;
NF5:=EVERY(REF(NHD5,1)>NHD5,M) AND NHD5<N ;
NF6:=EVERY(REF(NHD6,1)>NHD6,M) AND NHD6<N;
NF7:=EVERY(REF(NHD7,1)>NHD7,M) AND NHD7<N;
NF8:=EVERY(REF(NHD8,1)>NHD8,M) AND NHD8<N ;
NF9:=EVERY(REF(NHD9,1)>NHD9,M) AND NHD9<N ;
NF10:=EVERY(REF(NHD10,1)>NHD10,M) AND NHD10<N;
NF11:=EVERY(REF(NHD11,1)>NHD11,M) AND NHD11<N;
NF12:=EVERY(REF(NHD12,1)>NHD12,M) AND NHD12<N;
NF13:=EVERY(REF(NHD13,1)>NHD13,M) AND NHD13<N;
NF14:=EVERY(REF(NHD14,1)>NHD14,M) AND NHD14<N;
1.05,POINTDOT,COLORWHITE;
{以下判断均线粘合情形,3条 4条 5条 还是6条}
NH3:=IF(NF1 OR NF2 OR NF3 OR NF4,3,0);
NH4:=IF(NF5 OR NF6 OR NF7,4,0);
NH5:=IF(NF8 OR NF9 OR NF10 OR NF11 OR NF12 OR NF13,5,0);
NH6:=IF(NF14,6,0);
{以下条状显示相邻均线粘合情况:51324 5132460 5132460120 5132460250 60120250 2460120250}
STICKLINE(NF1,0,0.8,1,0),COLORE47833;
STICKLINE(NF5,0,0.8,1,0),COLOR32CD32;
STICKLINE(NF8,0,0.8,1,0),COLOR0B86B8;
STICKLINE(NF14,0,0.8,1,0),COLORCD00CD;
三粘:100*(MAX(JX5,MAX(JX13,JX24))/MIN(JX5,MIN(JX13,JX24))-1),COLORE47833,NODRAW; {JX5 JX13 JX24粘合}
四粘:100*(MAX(JX5,MAX(JX13,MAX(JX24,JX60)))/MIN(JX5,MIN(JX13,MIN(JX24,JX60)))-1),COLOR32CD32,NODRAW; {JX5 JX13 JX24 JX60粘合}
五粘:100*(MAX(JX5,MAX(JX13,MAX(JX24,MAX(JX60,JX120))))/MIN(JX5,MIN(JX13,MIN(JX24,MIN(JX60,JX120))))-1),COLOR0B86B8,NODRAW; {JX5 JX13 JX24 JX60 JX120粘合}
六粘:100 * (MAX(JX5, MAX(JX13, MAX(JX24, MAX(JX60, MAX(JX120, JX250))))) / MIN(JX5, MIN(JX13, MIN(JX24, MIN(JX60, MIN(JX120, JX250))))) - 1),COLORCD00CD,NODRAW;
注：
馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。
发文不易，如获益，欢迎赞赏，赞赏必复！
联系客服
