股票论坛 | 股市实战 | 股票内参 | 股票软件 | 股票知识 | 股票交流 | 指标公式 | 数据天下 | 股票图书 | 赢富研究 | 电脑软件 | 励志成功 | 情感哲理 | 全球股市行情 | 实时在线行情 | 股市指数 | 设为首页 | 加入收藏


 21 12
发新话题
打印

[飞狐] 《枪指挥我》完美版(主图)

本主题由 非常菜 于 2008-5-14 05:19 解除精华

《枪指挥我》完美版(主图)

枪指挥我(完美版)20080217源码:
input:P1(3,0,300),P2(8,0,300),P3(20.5,0,300),P4(118,0,300),P5(236,0,9999),N(4,0,5);
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);

STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,7,1),COLORGREEN;
STICKLINE((VAR2 < MA(VAR3,6)),LOW,(MIN(OPEN,CLOSE) * 1.001),0.6,0),COLORGREEN;
STICKLINE((VAR2 < MA(VAR3,6)),MAX(OPEN,CLOSE),HIGH,0.6,0),COLORGREEN;
STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,7,1),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),HIGH,MAX(CLOSE,OPEN),0.6,0),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),LOW,(MIN(CLOSE,OPEN) * 1.001),0.8,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0025),4.5,0),COLORGREEN;
STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.0025),4.5,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,7,0),COLORGREEN;
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'B'),coloryellow,linethick3;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'S'),COLORGREEN,linethick3;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));  
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);  
DRAWTEXT(IF(B1>0,1,0),L-0.1,'大\n战\n役'),Color00FFFC;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));  
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);  
DRAWTEXT(IF(B2>0,1,0),L-0.25,'瞄\n准'),Color6C8CCF;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));  
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);  
DRAWTEXT(IF(B3>0,1,0),L-0.4,'瞄\n准'),ColorFF05FF;  
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));  
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);  
DRAWTEXT(IF(D1>0,1,0),H+0.1,'撤退'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D,K),1));  
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);  
DRAWTEXT(IF(D2>0,1,0),H+0.25,'撤退'),Color0AB000;  
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));  
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);  
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大撤退'),ColorFF0000;

MA8:MA(C,8),COLORWHITE;
MA34:MA(C,20.5),COLORYELLOW;
MA55:MA(C,41),COLORCYAN;
SQ1:=O<MA(C,20.5) AND C>MA(C,20.5);
SQ2:=MA(C,8)<MA(C,20.5);
SQ3:=MA(C,20.5)<MA(C,41);
SQ4:=MA34>=REF(MA34,1);
SQ5:=V>MA(V,5)*1.01 AND V>MA(V,10)*1.01;
SQ:=SQ1 AND SQ2 AND SQ3 AND SQ4 AND SQ5;
DRAWTEXT(SQ,L,'冲\n锋'),colormagenta;

进攻:=ref(c,ref(hhvbars(v,21),0))COLORGREEN,linethick0;
m1:=ma(close,1)linethick0;
a:=V>1*ref(V,1) and (c/ref(C,1)-1)*100>9.5 and m1>=进攻,COLORRED;
DRAWICON(cross(a,1),l*0.98,3)COLORWHITE;
DRAWTEXT(a,l*0.93,'进\n攻'),LINETHICK1,Color6C65FF;


[ 本帖最后由 布衣山人 于 2008-3-9 17:13 编辑 ]

TOP

源码有些乱了。禁用表情就好了。

TOP

同花顺用这个

P2:8,0,300;
P3:20.5,0,300;
P4:118,0,300;
P5:236,0,9999;
N:4,0,5;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);

STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,7,1),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),LOW,(MIN(OPEN,CLOSE) * 1.001),0.6,0),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),MAX(OPEN,CLOSE),HIGH,0.6,0),colorgreen;
STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,7,1),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),HIGH,MAX(CLOSE,OPEN),0.6,0),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),LOW,(MIN(CLOSE,OPEN) * 1.001),0.8,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0025),4.5,0),colorgreen;
STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.0025),4.5,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,7,0),colorgreen;
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'B'),coloryellow,linethick3;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'S'),colorgreen,linethick3;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));  
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);  
DRAWTEXT(IF(B1>0,1,0),L-0.1,'大\n战\n役'),Color00FFFC;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));  
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);  
DRAWTEXT(IF(B2>0,1,0),L-0.25,'瞄\n准'),Color6C8CCF;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));  
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);  
DRAWTEXT(IF(B3>0,1,0),L-0.4,'瞄\n准'),ColorFF05FF;  
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));  
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);  
DRAWTEXT(IF(D1>0,1,0),H+0.1,'撤退'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D,K),1));  
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);  
DRAWTEXT(IF(D2>0,1,0),H+0.25,'撤退'),Color0AB000;  
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));  
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);  
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大撤退'),ColorFF0000;

MA8:MA(C,8),colorwhite;
MA34:MA(C,20.5),coloryellow;
MA55:MA(C,41),colorcyan;
SQ1:=O<MA(C,20.5) AND C>MA(C,20.5);
SQ2:=MA(C,8)<MA(C,20.5);
SQ3:=MA(C,20.5)<MA(C,41);
SQ4:=MA34>=REF(MA34,1);
SQ5:=V>MA(V,5)*1.01 AND V>MA(V,10)*1.01;
SQ:=SQ1 AND SQ2 AND SQ3 AND SQ4 AND SQ5;
DRAWTEXT(SQ,L,'冲\n锋'),colormagenta;

进攻:=REF(C,REF(HHVBARS(V,21),0)),colorgreen,linethick0;
m1:=MA(CLOSE,1),linethick0;
a:=V>1*REF(V,1) AND (C/REF(C,1)-1)*100>9.5 AND m1>=进攻,colorred;
DRAWICON(CROSS(a,1),L*0.98,3),colorwhite;
DRAWTEXT(a,L*0.93,'进\n攻'),LINETHICK1,Color6C65FF;
本帖最近评分记录

TOP

同花顺用这个

P2:8,0,300;
P3:20.5,0,300;
P4:118,0,300;
P5:236,0,9999;
N:4,0,5;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);

STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,7,1),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),LOW,(MIN(OPEN,CLOSE) * 1.001),0.6,0),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),MAX(OPEN,CLOSE),HIGH,0.6,0),colorgreen;
STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,7,1),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),HIGH,MAX(CLOSE,OPEN),0.6,0),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),LOW,(MIN(CLOSE,OPEN) * 1.001),0.8,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0025),4.5,0),colorgreen;
STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.0025),4.5,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,7,0),colorgreen;
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'B'),coloryellow,linethick3;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'S'),colorgreen,linethick3;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));  
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);  
DRAWTEXT(IF(B1>0,1,0),L-0.1,'大\n战\n役'),Color00FFFC;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));  
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);  
DRAWTEXT(IF(B2>0,1,0),L-0.25,'瞄\n准'),Color6C8CCF;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));  
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);  
DRAWTEXT(IF(B3>0,1,0),L-0.4,'瞄\n准'),ColorFF05FF;  
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));  
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);  
DRAWTEXT(IF(D1>0,1,0),H+0.1,'撤退'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D,K),1));  
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);  
DRAWTEXT(IF(D2>0,1,0),H+0.25,'撤退'),Color0AB000;  
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));  
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);  
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大撤退'),ColorFF0000;

MA8:MA(C,8),colorwhite;
MA34:MA(C,20.5),coloryellow;
MA55:MA(C,41),colorcyan;
SQ1:=O<MA(C,20.5) AND C>MA(C,20.5);
SQ2:=MA(C,8)<MA(C,20.5);
SQ3:=MA(C,20.5)<MA(C,41);
SQ4:=MA34>=REF(MA34,1);
SQ5:=V>MA(V,5)*1.01 AND V>MA(V,10)*1.01;
SQ:=SQ1 AND SQ2 AND SQ3 AND SQ4 AND SQ5;
DRAWTEXT(SQ,L,'冲\n锋'),colormagenta;

进攻:=REF(C,REF(HHVBARS(V,21),0)),colorgreen,linethick0;
m1:=MA(CLOSE,1),linethick0;
a:=V>1*REF(V,1) AND (C/REF(C,1)-1)*100>9.5 AND m1>=进攻,colorred;
DRAWICON(CROSS(a,1),L*0.98,3),colorwhite;
DRAWTEXT(a,L*0.93,'进\n攻'),LINETHICK1,Color6C65FF;

TOP

同花顺用这个

P2:8,0,300;
P3:20.5,0,300;
P4:118,0,300;
P5:236,0,9999;
N:4,0,5;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);

STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,7,1),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),LOW,(MIN(OPEN,CLOSE) * 1.001),0.6,0),colorgreen;
STICKLINE((VAR2 < MA(VAR3,6)),MAX(OPEN,CLOSE),HIGH,0.6,0),colorgreen;
STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,7,1),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),HIGH,MAX(CLOSE,OPEN),0.6,0),color4440FF;
STICKLINE((VAR2 > MA(VAR3,6)),LOW,(MIN(CLOSE,OPEN) * 1.001),0.8,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0025),4.5,0),colorgreen;
STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.0025),4.5,0),color4440FF;
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,7,0),colorgreen;
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'B'),coloryellow,linethick3;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'S'),colorgreen,linethick3;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));  
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);  
DRAWTEXT(IF(B1>0,1,0),L-0.1,'大\n战\n役'),Color00FFFC;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));  
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);  
DRAWTEXT(IF(B2>0,1,0),L-0.25,'瞄\n准'),Color6C8CCF;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));  
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);  
DRAWTEXT(IF(B3>0,1,0),L-0.4,'瞄\n准'),ColorFF05FF;  
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));  
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);  
DRAWTEXT(IF(D1>0,1,0),H+0.1,'撤退'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D,K),1));  
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);  
DRAWTEXT(IF(D2>0,1,0),H+0.25,'撤退'),Color0AB000;  
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));  
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);  
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大撤退'),ColorFF0000;

MA8:MA(C,8),colorwhite;
MA34:MA(C,20.5),coloryellow;
MA55:MA(C,41),colorcyan;
SQ1:=O<MA(C,20.5) AND C>MA(C,20.5);
SQ2:=MA(C,8)<MA(C,20.5);
SQ3:=MA(C,20.5)<MA(C,41);
SQ4:=MA34>=REF(MA34,1);
SQ5:=V>MA(V,5)*1.01 AND V>MA(V,10)*1.01;
SQ:=SQ1 AND SQ2 AND SQ3 AND SQ4 AND SQ5;
DRAWTEXT(SQ,L,'冲\n锋'),colormagenta;

进攻:=REF(C,REF(HHVBARS(V,21),0)),colorgreen,linethick0;
m1:=MA(CLOSE,1),linethick0;
a:=V>1*REF(V,1) AND (C/REF(C,1)-1)*100>9.5 AND m1>=进攻,colorred;
DRAWICON(CROSS(a,1),L*0.98,3),colorwhite;
DRAWTEXT(a,L*0.93,'进\n攻'),LINETHICK1,Color6C65FF;

TOP

呵呵,好名,枪指挥我!

TOP

谢谢楼主提供

不错的主图指标,发个图:
附件: 您所在的用户组无法下载或查看附件
本帖最近评分记录

TOP

谢谢楼主提供源码!!

TOP

谢谢楼主!

下载收藏!!!

TOP

谢谢分享.....
看贴是缘分,回帖是本分

我为人人,人人为我

TOP

看贴是缘分,回帖是本分

TOP

谢谢楼主!

下载收藏!!!

TOP

下载了,就得顶,谢谢!

TOP

呵呵,好名,枪指挥我!

TOP

看贴是缘分,回帖是本分

TOP

 21 12
发新话题