软件名称:[B]飞狐主图[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/
软件语言:简体中文
授权方式:免费版
软件大小:5.00 KB
官方主页:Home Page
更新时间:2009-11-12 15:01:16
软件简介:
源码均来源与网络,不记得谁的了,先谢谢原作者。上指标【飞狐】用的,名字自己随便。
input:N(88,1,1111),N1(888,1,1111);
a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a3:=EMA((MA(a1,5)),10);
a4:=EMA((MA(a1,15)),10);
a5:=EMA((MA(a1,13)),21);
a6:=((a3 + a4) + a5) / 3;
决策线:EMA((MA(CLOSE,5)),3),colorGreen;
多空带:((((REF(a6,1)) + a6) + (REF(a6,2))) / 3),linethick0;
a7:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.191;
a8:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.236;
a9:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.809;
a10:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.764;
a11:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.618;
地线:(a9),linethick1,Coloryellow;
天线:(a7),linethick1,ColorFF0000;
支撑线:(a10),linethick2,Color73740F;
阻力线:(a8),linethick2,Color509046;
a12:=((EMA((MA(a1,3)),3)) + (WMA(a1,5))) / 2;
a13:=REF(a12,1);
a14:=BARSCOUNT(CLOSE);
a15:=IF((a14 = 1),0,(((a12 - a13) / a13) * 100));
a16:=REF(CLOSE,1);
a17:=IF((a14 = 1),0,(((CLOSE - a16) / a16) * 100));
a18:=IF((a14 = 1),((CLOSE + OPEN) / 2),a13);
a19:=REF(a12,2);
a20:=((a12 + a13) + a19) / 3;
a21:=((ABS((a12 - a20)) + ABS((a13 - a20))) + ABS((a19 - a20))) / 3;
a22:=IF((a14 < 3),0,((a21 / a12) * 100));
a23:=IF((((a15 > 0.5) AND ((a22 > 0.215) OR (LOW > a18))) AND (CLOSE >= OPEN)),1,0);
a24:=IF((((a15 < (0 - 0.3)) AND ((a22 > 0.2) OR (HIGH < a18))) AND ((OPEN >= CLOSE) OR (a17 < -1))),1,0);
B:((COUNT(a23,BARSLAST(a24))) = 1) AND a23,linethick0;
D:((COUNT(a24,BARSLAST(a23))) = 1) AND a24,linethick0;
DRAWTEXT(B,(LOW * 0.98),'㊣'),linethick3,ALIGN1,colorWhite;
DRAWTEXT(D,(HIGH * 1.035),'S'),linethick3,ALIGN1,colorGreen;
STICKLINE(((B > 0) OR (D > 0)),a1,(a1 * 0.998),8,0),ColorFF0000;
a25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));
a26:=EMA(a25,9);
a27:=2 * (a25 - a26);
a28:=IF((((((((REF(a27,1)) < (REF(a27,2))) AND ((REF(a27,2)) < (REF(a27,3)))) AND (a27 > (REF(a27,1)))) AND (a27 >= 0)) AND ((LLV(a27,4)) > 0)) AND (COUNT((a27 < 0.18),5))),(a27 * 2),0);
a29:=IF(((COUNT((CROSS(a26,a25)),8)) AND (CROSS(a25,a26))),(a27 * 4),0);
a30:=(a28 > 0) AND (CLOSE >= (((REF(a6,1)) + a6) + (REF(a6,2))) / 3);
DRAWICON(a30,LOW,12),ALIGN1;
a31:=(((CLOSE / a16) - 1) * 100) >= 7;
a32:=HIGH - ((HIGH - LOW) / 3);
a33:=LOW + ((HIGH - LOW) / 3);
a34:=(CLOSE > 0) AND a31;
a35:=((HIGH - LOW) * 0.618) + LOW;
a36:=((HIGH - LOW) * 0.382) + LOW;
STICKLINE(a34,a32,a33,8,0),colorYellow;
STICKLINE(a34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);
STICKLINE(a34,CLOSE,a35,8,0),colorRed;
STICKLINE(a34,CLOSE,a35,7,0),Color1414FF;
STICKLINE(a34,CLOSE,a35,6,0),Color2828FF;
STICKLINE(a34,CLOSE,a35,5,0),Color3D3DFF;
STICKLINE(a34,CLOSE,a35,4,0),Color5151FF;
STICKLINE(a34,CLOSE,a35,3,0),Color6565FF;
STICKLINE(a34,CLOSE,a35,2,0),Color7A7AFF;
STICKLINE(a34,CLOSE,a35,1,0),Color8E8EFF;
STICKLINE(a34,a36,OPEN,8,0),colorGreen;
STICKLINE(a34,a36,OPEN,7,0),Color28FF28;
STICKLINE(a34,a36,OPEN,6,0),Color3DFF3D;
STICKLINE(a34,a36,OPEN,5,0),Color51FF51;
STICKLINE(a34,a36,OPEN,4,0),Color65FF65;
STICKLINE(a34,a36,OPEN,3,0),Color7AFF7A;
STICKLINE(a34,a36,OPEN,2,0),Color8EFF8E;
STICKLINE(a34,a36,OPEN,1,0),ColorA2FFA2;
a37:=((CLOSE - (EMA(a1,25))) / (EMA(a1,25))) * 100;
DRAWTEXT(((a37 > 12) AND (CROSS(决策线,CLOSE))),HIGH,'卖出');
a41:=LOW < a11;
DRAWICON(a41,LOW,1);
DRAWICON((((CROSS(CLOSE,(REF(a9,1)))) AND (a15 < -3)) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a15 < -3.5))),LOW,7),ALIGN1;
DRAWTEXT((CROSS(CLOSE,(REF(a10,1)))),(LOW * 0.96),'仓1/2'),colorYellow;
DRAWTEXT((CROSS(CLOSE,(REF(((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2仓'),Color005EFF;
DRAWTEXT(a41,HIGH,'满仓出击');
a43:=((SMA((MAX((CLOSE - a16),0)),5,1)) / (SMA(ABS((CLOSE - a16)),5,1))) * 100;
DRAWTEXT(((CROSS(a43,10)) AND (a15 < -4)),(LOW * 0.92),'◢◣'),ALIGN1,colorRed;
DRAWTEXT((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),(LOW * 0.95),'▲'),ALIGN1,colorMagenta;
a44:=LOW > (REF(HIGH,1));
a45:=HIGH < (REF(LOW,1));
DRAWTEXT(a44,((REF(HIGH,1)) * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a44,(LOW * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a45,((REF(LOW,1)) * 1.003),'─'),ALIGN1,colorGreen;
DRAWTEXT(a45,(HIGH * 1.003),'─'),ALIGN1,colorGreen;
突破:REF(EMA(C,5),1)COLORMAGENTA,LINETHICK2;
/////////////////////////////////////////////////
A1X:=(EMA(C,5)-突破)/突破*100;
出击:PARTLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1)),COLORYELLOW,LINETHICK2;
休假:PARTLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1)),COLORBLUE,LINETHICK3;
STICKLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1),突破,0.5,-1),COLORRED;
STICKLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1),突破,0,-1),COLORGREEN;
PARTLINE(A1X<0,突破),COLORGREEN,LINETHICK2;
//////////////////////////////////////////////////
VAR0:=EMA(EMA(EMA(CLOSE,2),2),2);
海岸线:=(HHV(VAR0,13)*0.98),LINETHICK3,colorFF00;
K1:=EMA(CLOSE,3),colorFF0000;
K2:=EMA(CLOSE,5),colorFF0000;
K3:=EMA(CLOSE,8),colorFF0000;
K4:=EMA(CLOSE,13),colorFF0000;
K5:=EMA(CLOSE,15),colorFF0000;
QQ:=(((((MA(K1,1)+MA(K2,3))+MA(K3,5))+MA(K4,7))+MA(K5,9))/5),LINETHICK2,colorFF00FF;
K6:=EMA(CLOSE,30),colorFFFF;
暗器24:=IF(CROSS(K6,QQ),海岸线,0);
DRAWTEXT((暗器24>0),LOW,'■神偷'),colorFFFF;
//////////////////////////////////////////////////
input:N(88,1,1111),N1(888,1,1111);
a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a3:=EMA((MA(a1,5)),10);
a4:=EMA((MA(a1,15)),10);
a5:=EMA((MA(a1,13)),21);
a6:=((a3 + a4) + a5) / 3;
决策线:EMA((MA(CLOSE,5)),3),colorGreen;
多空带:((((REF(a6,1)) + a6) + (REF(a6,2))) / 3),linethick0;
a7:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.191;
a8:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.236;
a9:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.809;
a10:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.764;
a11:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.618;
地线:(a9),linethick1,Coloryellow;
天线:(a7),linethick1,ColorFF0000;
支撑线:(a10),linethick2,Color73740F;
阻力线:(a8),linethick2,Color509046;
a12:=((EMA((MA(a1,3)),3)) + (WMA(a1,5))) / 2;
a13:=REF(a12,1);
a14:=BARSCOUNT(CLOSE);
a15:=IF((a14 = 1),0,(((a12 - a13) / a13) * 100));
a16:=REF(CLOSE,1);
a17:=IF((a14 = 1),0,(((CLOSE - a16) / a16) * 100));
a18:=IF((a14 = 1),((CLOSE + OPEN) / 2),a13);
a19:=REF(a12,2);
a20:=((a12 + a13) + a19) / 3;
a21:=((ABS((a12 - a20)) + ABS((a13 - a20))) + ABS((a19 - a20))) / 3;
a22:=IF((a14 < 3),0,((a21 / a12) * 100));
a23:=IF((((a15 > 0.5) AND ((a22 > 0.215) OR (LOW > a18))) AND (CLOSE >= OPEN)),1,0);
a24:=IF((((a15 < (0 - 0.3)) AND ((a22 > 0.2) OR (HIGH < a18))) AND ((OPEN >= CLOSE) OR (a17 < -1))),1,0);
B:((COUNT(a23,BARSLAST(a24))) = 1) AND a23,linethick0;
D:((COUNT(a24,BARSLAST(a23))) = 1) AND a24,linethick0;
DRAWTEXT(B,(LOW * 0.98),'㊣'),linethick3,ALIGN1,colorWhite;
DRAWTEXT(D,(HIGH * 1.035),'S'),linethick3,ALIGN1,colorGreen;
STICKLINE(((B > 0) OR (D > 0)),a1,(a1 * 0.998),8,0),ColorFF0000;
a25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));
a26:=EMA(a25,9);
a27:=2 * (a25 - a26);
a28:=IF((((((((REF(a27,1)) < (REF(a27,2))) AND ((REF(a27,2)) < (REF(a27,3)))) AND (a27 > (REF(a27,1)))) AND (a27 >= 0)) AND ((LLV(a27,4)) > 0)) AND (COUNT((a27 < 0.18),5))),(a27 * 2),0);
a29:=IF(((COUNT((CROSS(a26,a25)),8)) AND (CROSS(a25,a26))),(a27 * 4),0);
a30:=(a28 > 0) AND (CLOSE >= (((REF(a6,1)) + a6) + (REF(a6,2))) / 3);
DRAWICON(a30,LOW,12),ALIGN1;
a31:=(((CLOSE / a16) - 1) * 100) >= 7;
a32:=HIGH - ((HIGH - LOW) / 3);
a33:=LOW + ((HIGH - LOW) / 3);
a34:=(CLOSE > 0) AND a31;
a35:=((HIGH - LOW) * 0.618) + LOW;
a36:=((HIGH - LOW) * 0.382) + LOW;
STICKLINE(a34,a32,a33,8,0),colorYellow;
STICKLINE(a34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);
STICKLINE(a34,CLOSE,a35,8,0),colorRed;
STICKLINE(a34,CLOSE,a35,7,0),Color1414FF;
STICKLINE(a34,CLOSE,a35,6,0),Color2828FF;
STICKLINE(a34,CLOSE,a35,5,0),Color3D3DFF;
STICKLINE(a34,CLOSE,a35,4,0),Color5151FF;
STICKLINE(a34,CLOSE,a35,3,0),Color6565FF;
STICKLINE(a34,CLOSE,a35,2,0),Color7A7AFF;
STICKLINE(a34,CLOSE,a35,1,0),Color8E8EFF;
STICKLINE(a34,a36,OPEN,8,0),colorGreen;
STICKLINE(a34,a36,OPEN,7,0),Color28FF28;
STICKLINE(a34,a36,OPEN,6,0),Color3DFF3D;
STICKLINE(a34,a36,OPEN,5,0),Color51FF51;
STICKLINE(a34,a36,OPEN,4,0),Color65FF65;
STICKLINE(a34,a36,OPEN,3,0),Color7AFF7A;
STICKLINE(a34,a36,OPEN,2,0),Color8EFF8E;
STICKLINE(a34,a36,OPEN,1,0),ColorA2FFA2;
a37:=((CLOSE - (EMA(a1,25))) / (EMA(a1,25))) * 100;
DRAWTEXT(((a37 > 12) AND (CROSS(决策线,CLOSE))),HIGH,'卖出');
a41:=LOW < a11;
DRAWICON(a41,LOW,1);
DRAWICON((((CROSS(CLOSE,(REF(a9,1)))) AND (a15 < -3)) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a15 < -3.5))),LOW,7),ALIGN1;
DRAWTEXT((CROSS(CLOSE,(REF(a10,1)))),(LOW * 0.96),'仓1/2'),colorYellow;
DRAWTEXT((CROSS(CLOSE,(REF(((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2仓'),Color005EFF;
DRAWTEXT(a41,HIGH,'满仓出击');
a43:=((SMA((MAX((CLOSE - a16),0)),5,1)) / (SMA(ABS((CLOSE - a16)),5,1))) * 100;
DRAWTEXT(((CROSS(a43,10)) AND (a15 < -4)),(LOW * 0.92),'◢◣'),ALIGN1,colorRed;
DRAWTEXT((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),(LOW * 0.95),'▲'),ALIGN1,colorMagenta;
a44:=LOW > (REF(HIGH,1));
a45:=HIGH < (REF(LOW,1));
DRAWTEXT(a44,((REF(HIGH,1)) * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a44,(LOW * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a45,((REF(LOW,1)) * 1.003),'─'),ALIGN1,colorGreen;
DRAWTEXT(a45,(HIGH * 1.003),'─'),ALIGN1,colorGreen;
突破:REF(EMA(C,5),1)COLORMAGENTA,LINETHICK2;
/////////////////////////////////////////////////
A1X:=(EMA(C,5)-突破)/突破*100;
出击:PARTLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1)),COLORYELLOW,LINETHICK2;
休假:PARTLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1)),COLORBLUE,LINETHICK3;
STICKLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1),突破,0.5,-1),COLORRED;
STICKLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1),突破,0,-1),COLORGREEN;
PARTLINE(A1X<0,突破),COLORGREEN,LINETHICK2;
//////////////////////////////////////////////////
VAR0:=EMA(EMA(EMA(CLOSE,2),2),2);
海岸线:=(HHV(VAR0,13)*0.98),LINETHICK3,colorFF00;
K1:=EMA(CLOSE,3),colorFF0000;
K2:=EMA(CLOSE,5),colorFF0000;
K3:=EMA(CLOSE,8),colorFF0000;
K4:=EMA(CLOSE,13),colorFF0000;
K5:=EMA(CLOSE,15),colorFF0000;
QQ:=(((((MA(K1,1)+MA(K2,3))+MA(K3,5))+MA(K4,7))+MA(K5,9))/5),LINETHICK2,colorFF00FF;
K6:=EMA(CLOSE,30),colorFFFF;
暗器24:=IF(CROSS(K6,QQ),海岸线,0);
DRAWTEXT((暗器24>0),LOW,'■神偷'),colorFFFF;
//////////////////////////////////////////////////
[url=http://www.70822.com/soft/sort013/sort02/down-14343.html]飞狐主图[/url]