分享

空中加油 主副图公式源码

 juezhe1970 2011-07-22

空中加油,均线分析指标,有特征提示。源码如下:

{空中加油主图}
M5:=MA(C,5);
M10:MA(C,10),LINETHICK1;
M20:MA(C,20),LINETHICK2;
M30:MA(C,30),LINETHICK1;
M60:MA(C,60),LINETHICK3;
M120:MA(C,120),LINETHICK4;
M250:MA(C,250),COLORFF3399,LINETHICK3;
N1:=BARSLAST(CROSS(M5,M10));
N2:=BARSLAST(CROSS(M10,M5));
D:=IF(N1<N2,N1+1,0);
K:=IF(N2<N1,N2+1,0);
QSXS:=M5>M20 AND M10>M20 AND M20>REF(M20,1) AND M30>REF(M30,1);
启动: D*QSXS,COLORRED,LINETHICK0;
跑道: K*QSXS,COLORFFFF00,LINETHICK0;
HKFJ:=HHV(D,5)>=2 AND QSXS AND M5>REF(M5,1) AND M5>M10;
飞机: HKFJ*D,COLORFF00FF,LINETHICK0;
HKSJ:=BARSLAST(飞机>0 AND NOT(REF(飞机,1)))+1;
高度: (C/REF(C,HKSJ)-1)*100,COLOR00FFFF,LINETHICK0;
加油:启动>0 AND 飞机=0,COLOR00FF00,POINTDOT,LINETHICK0;
N3:=BARSLAST(加油)+1;
K5:=ATAN((M5/REF(M5,1)-1)*100)*180/3.14159;
JXGD1:=K5>REF(K5,1) AND REF(K5,1)<REF(K5,2);
JXGD2:=M5>REF(M5,1) AND REF(M5,1)<REF(M5,2);
加速:FILTER((JXGD1 OR JXGD2)
AND C>M5 AND HKFJ,3),COLOR00FFFF,POINTDOT,LINETHICK0;
N4:=BARSLAST(加速);
STICKLINE(加油,(O+C)/2-0.01,(O+C)/2+0.01,4,0),COLOR00FF00;
STICKLINE(加油,L,H,1,1),COLOR00FF00;
STICKLINE(加速,(O+C)/2-0.01,(O+C)/2+0.01,4,0),COLOR00FFFF;
STICKLINE(加速,L,H,1,1),COLOR00FFFF;
STICKLINE(N4>0 AND N4<=5,REF(O,N4+1),REF(O,N4+1),4,1),COLORFFFFFF;
DRAWTEXT(加速,L,'加▲速'),COLOR00FFFF;
DRAWTEXT(飞机,M30,'。'),COLORFFFFFF;
 
 
{空中加油副图}
M5:=MA(CLOSE,5);
M10:=MA(CLOSE,10);
M20:=MA(CLOSE,20);
M30:=MA(CLOSE,30);
M250:=MA(CLOSE,250);
N1:=BARSLAST(CROSS(M5,M10));
N2:=BARSLAST(CROSS(M10,M5));
D:=IF(N1<N2,N1+1,0);
K:=IF(N2<N1,N2+1,0);
QSXS:=M5>M20 AND M10>M20 AND M20>REF(M20,1)
AND M30>REF(M30,1);
启动:D*QSXS,COLORRED,LINETHICK0;
跑道:K*QSXS,COLORFFFF00,LINETHICK0;
HKFJ:=HHV(D,5)>=2 AND QSXS AND M5>REF(M5,1) AND M5>M10;
飞机:HKFJ*D,COLORFF00FF,LINETHICK2;
HKSJ:=BARSLAST(飞机>0 AND NOT(REF(飞机,1)))+1;
高度:(C/REF(C,HKSJ)-1)*100,COLOR00FFFF;
加油:启动>0 AND 飞机=0,COLOR00FF00,POINTDOT,LINETHICK0;
N3:=BARSLAST(加油)+1;
K5:=ATAN((M5/REF(M5,1)-1)*100)*180/3.14159;
JXGD1:=K5>REF(K5,1) AND REF(K5,1)<REF(K5,2);
JXGD2:=M5>REF(M5,1) AND REF(M5,1)<REF(M5,2);
加速:FILTER((JXGD1 OR JXGD2)
AND C>M5 AND HKFJ,3),COLOR00FFFF,POINTDOT,LINETHICK0;
N4:=BARSLAST(加速);
STICKLINE(加油,0,启动/10+1,4,1),COLOR00FF00;
STICKLINE(N4>0 AND N4<=5,REF(启动,N4+1),REF(启动,N4+1),4,0),COLORFFFFFF;
DRAWTEXT(加速,启动,'▲'),COLOR00FFFF;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约