软件名称：[B]黄金位置源码+图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：7.00 KB
官方主页：Home Page
更新时间：2010-04-24 10:04:12
软件简介:

黄金位置

黄金关键位，大家看看

N1:=21;
N2:=55;
N3:=144;
M:=34;
短高1:=REF(H,M);
短低1:=IF(REF(L,M)=REF(LLV(L,N1),M),REF(LLV(L,N2),M),REF(LLV(L,N1),M));
中高1:=REF(H,M);
中低1:=IF(REF(L,M)=REF(LLV(L,N2),M),REF(LLV(L,N3),M),REF(LLV(L,N2),M));
长高1:=REF(H,M);
长低1:=IF(REF(L,M)=REF(LLV(L,N3),M),REF(LLV(L,N3+N2),M),REF(LLV(L,N3),M));
短高2:=IF(REF(H,M)=REF(HHV(H,N1),M),REF(HHV(H,N2),M),REF(HHV(H,N1),M));
短低2:=REF(L,M);
中高2:=IF(REF(H,M)=REF(HHV(H,N2),M),REF(HHV(H,N3),M),REF(HHV(H,N2),M));
中低2:=REF(L,M);
长高2:=IF(REF(H,M)=REF(HHV(H,N3),M),REF(HHV(H,N2+N3),M),REF(HHV(H,N3),M));
长低2:=REF(L,M);
H1:=短高1-(短高1-短低1)*0.809;
H2:=短高2-(短高2-短低2)*0.191;
H3:=中高1-(中高1-中低1)*0.809;
H4:=中高2-(中高2-中低2)*0.191;
H5:=长高1-(长高1-长低1)*0.809;
H6:=长高2-(长高2-长低2)*0.191;

短压力:REFDATE(H2,DATE),COLORMAGENTA;
短支撑:REFDATE(H1,DATE),COLORMAGENTA;
中压力:REFDATE(H4,DATE),COLORYELLOW;
中支撑:REFDATE(H3,DATE),COLORYELLOW;
长压力:REFDATE(H6,DATE),COLORRED;
长支撑:REFDATE(H5,DATE),COLORRED;
长顶:REFDATE(长高2,DATE),COLORRED,POINTDOT;
长底:REFDATE(长低1,DATE),COLORRED,POINTDOT;
中顶:REFDATE(中高2,DATE),COLORYELLOW,POINTDOT;
中底:REFDATE(中低1,DATE),COLORYELLOW,POINTDOT;
短顶:REFDATE(短高2,DATE),COLORMAGENTA,POINTDOT;
短底:REFDATE(短低1,DATE),COLORMAGENTA,POINTDOT;
{长压力:MA(H6,1)COLORRED;
长支撑:MA(H5,1),COLORRED;
中压力:MA(H4,1)COLORYELLOW;
中支撑:MA(H3,1),COLORYELLOW;
短压力:MA(H2,1)COLORMAGENTA;
短支撑:MA(H1,1),COLORMAGENTA;}
DRAWTEXT(ISLASTBAR,短压力,'压力'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,短支撑,'支撑'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,中压力,'压力'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,中支撑,'支撑'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,长压力,'压力'),COLORRED;
DRAWTEXT(ISLASTBAR,长支撑,'支撑'),COLORRED;

{短中长线离场提示价位}
M8短离:IF(MA(C,8)>MA(C,89),MA(C,8),MA(C,89)),LINETHICK0;
M21中离:IF(MA(C,21)>MA(C,89),MA(C,21),MA(C,89)),LINETHICK0;
M89长离:MA(C,89),LINETHICK0;
{短期高低点}
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力价位:= REF(HIGH,BARSLAST(VAR2222));
STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2222)),REF(HIGH,BARSLAST(VAR2222)),2,1),COLORAAAAAA,LINETHICK3;
支撑价位:= REF(LOW,BARSLAST(VAR4444));
STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4444)),REF(LOW,BARSLAST(VAR4444)),2,1),COLOR00B4FF,LINETHICK3;

{民间操手专用经典主图均线指标2}
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
买１:=VAR10;
买２:=(VAR11+VAR13+VAR15+VAR17);
卖１:=(VAR12+VAR14+VAR16+VAR18);
B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;
DRAWTEXT(CROSS(S,卖１),S,'←逃'),COLORWHITE,LINETHICK1;
DRAWTEXT(CROSS(B,买１),B,'←准备'),COLORRED,LINETHICK1;

{角度显示}
X1:=(C+L+H)/3;
BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10;
EMA3:=EMA(C,3);
DRAWTEXT(FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10),LOW*0.98,'∠45'),COLORWHITE;

MA5:MA(C,5),COLORFF00FF,LINETHICK0;
MA10:=MA(C,10),LINETHICK0;
MA30:MA(C,30),COLORRED,LINETHICK0;
MA60:MA(C,60),COLORFFFF00,LINETHICK0;
M120:MA(CLOSE,120),COLORYELLOW,LINETHICK0;
KS:IF(MA10>MA30,MA10,MA30),COLORBLUE,LINETHICK0;
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
A4:=SMA(A3,3,1);
A5:=SMA(A4,3,1);
A6:=3*A4-2*A5;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖买进'),COLORYELLOW;
STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;

N4:=N8+21;
N5:=N4+N8;
N6:=IF(((H-L)/L)*100<5,N8,N4);
高1:=REF(H,1);
低1:=IF(REF(L,1)=REF(LLV(L,N6),1),REF(LLV(L,N5),1),REF(LLV(L,N6),1));
HA1:=高1-(高1-低1)*0.191;
HA2:=高1-(高1-低1)*0.382;
HA3:=高1-(高1-低1)*0.5;
HA4:=高1-(高1-低1)*0.618;
HA5:=高1-(高1-低1)*0.809;
周期顶:REFDATE(高1,DATE),POINTDOT,COLORRED;
一0.809:=REFDATE(HA1,DATE),COLORMAGENTA;
二0.618:=REFDATE(HA2,DATE),COLORGREEN;
三0.500:=REFDATE(HA3,DATE),COLORRED;
黄金支撑:REFDATE(HA4,DATE),COLORYELLOW;
五0.191:=REFDATE(HA5,DATE),COLORYELLOW;
黄金底:REFDATE(低1,DATE),COLORWHITE;

高2:=IF(REF(H,1)=REF(HHV(H,N6),1),REF(HHV(H,N5),1),REF(HHV(H,N6),1));
低2:=REF(L,1);
H16:=高2-(高2-低2)*0.191;
H7:=高2-(高2-低2)*0.382;
H8:=高2-(高2-低2)*0.5;
H9:=高2-(高2-低2)*0.618;
H10:=高2-(高2-低2)*0.809;
黄金顶:REFDATE(高2,DATE),COLORRED;
一:=REFDATE(H16,DATE),COLORYELLOW;
黄金回档:REFDATE(H7,DATE),COLORMAGENTA;
三:=REFDATE(H8,DATE),COLORWHITE;
四:=REFDATE(H9,DATE),COLORGREEN;
五:=REFDATE(H10,DATE),COLORYELLOW;
周期底:REFDATE(低2,DATE),POINTDOT,COLORRED;

DRAWTEXT(ISLASTBAR,黄金顶,'黄金顶'),COLORWHITE;
DRAWTEXT(ISLASTBAR,黄金回档,'黄金回档'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,黄金支撑,'黄金支撑'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,黄金底,'黄金底'),COLORWHITE;

[url=http://www.70822.com/soft/sort013/sort05/down-19124.html]黄金位置源码+图[/url]