软件名称：[B]很好用的黄金分割[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2013-06-01 00:35:03
软件简介:

一直实用的黄金分割主图，支撑买出，压力卖出

黄金分割通道
先定义参数N 最小=1 最大=999  缺省80，
                         M最小=1  最大=15    缺省3，
{N=80 1  999 , M=3  1  15} 
VAR11:=MA(C,9),COLORRED;
上升通道:IF(VAR11>REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORRED;
下降通道:IF(VAR11<REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORGREEN;
A0:=(L+H+C*2)/4;
AA:=EMA(A0,14)COLORYELLOW,LINETHICK1;
BB:=EMA(A0,25)COLORYELLOW,LINETHICK2;
A1X:=(AA-REF(AA,1))/REF(AA,1)*100;
A2X:=(BB-REF(BB,1))/REF(BB,1)*100;
G:=BARSLAST(CROSS(A1X,0));
必卖止损:REF(A0,G),COLORCYAN,LINETHICK1;
A5:=EMA(CLOSE,12)-EMA(CLOSE,26);
A6:=EMA(A5,9);
A7:=(A5<-0.1 AND A5>A6);
见底:IF(A7,LLV(L,21),DRAWNULL)COLORRED,CIRCLEDOT;
见顶:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,DRAWNULL),COLORGREEN,CIRCLEDOT;
MA5:=MA(C,5);
MA13:=MA(C,13);
高:=REF(HHV(H,N),M); 
低:=REF(LLV(L,N),M);
H19:=高-(高-低)*0.191; 
H38:=高-(高-低)*0.382; 
H中:=高-(高-低)*0.5; 
H61:=高-(高-低)*0.618; 
H80:=高-(高-低)*0.809;
顶点:REFDATE(高,DATE),POINTDOT,COLOR00FFFF;
疯牛%19.8:REFDATE(H19,DATE),POINTDOT,COLOR00FFFF;
突破%38.2:REFDATE(H38,DATE),POINTDOT,COLOR00FFFF;
平衡%50:REFDATE(H中,DATE),POINTDOT,COLOR00FFFF;
回落%61.8:REFDATE(H61,DATE),POINTDOT,COLOR00FFFF;
次低%80.9:REFDATE(H80,DATE),POINTDOT,COLOR00FFFF;
低点:REFDATE(低,DATE),POINTDOT,COLOR00FFFF;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,疯牛%19.8,'疯牛％19.8'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,突破%38.2,'突破％38.2'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,平衡%50,'平衡％50'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,回落%61.8,'回落％61.8'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,次低%80.9,'次低％80.9'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLOR00FFFF;
DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19)); 
DEA:=EMA(DIFF,9); 
MACD:=0.90*(DIFF-DEA); 
TJ:=(DIFF>=DEA); 
TJ1:=(DIFF>=0); 
STICKLINE(TJ,H,L,0.4,0),COLORYELLOW; 
STICKLINE(TJ,O,C,4,1),COLOR0088FF; 
STICKLINE(TJ,O,C,3.4,1),COLOR00AAFF; 
STICKLINE(TJ,O,C,2.8,1),COLOR00CCFF; 
STICKLINE(TJ,O,C,2,1),COLOR00DDFF; 
STICKLINE(TJ,O,C,1.2,1),COLOR55FFFF; 
STICKLINE(TJ,O,C,0.4,1),COLOR99FFFF; 
STICKLINE(TJ1 AND TJ,H,L,0.4,0),COLORF00FF0; 
STICKLINE(TJ1 AND TJ,O,C,4,1),COLORFF33FF; 
STICKLINE(TJ1 AND TJ,O,C,3.4,1),COLORFF55FF; 
STICKLINE(TJ1 AND TJ,O,C,2.8,1),COLORFF77FF; 
STICKLINE(TJ1 AND TJ,O,C,2,1),COLORFF99FF; 
STICKLINE(TJ1 AND TJ,O,C,1.2,1),COLORFFBBFF; 
STICKLINE(TJ1 AND TJ,O,C,0.4,1),COLORFFDDFF; 
STICKLINE(DIFF<DEA,H,L,0.4,0),COLORF0F000; 
STICKLINE(DIFF<DEA,O,C,4,1),COLORFF3300; 
STICKLINE(DIFF<DEA,O,C,3.4,1),COLORFF6600; 
STICKLINE(DIFF<DEA,O,C,2.8,1),COLORFF9900; 
STICKLINE(DIFF<DEA,O,C,2,1),COLORFFBB00; 
STICKLINE(DIFF<DEA,O,C,1.2,1),COLORFFDD00; 
STICKLINE(DIFF<DEA,O,C,0.4,1),COLORFFFF00; 
VAR1:=(CLOSE*2+HIGH+LOW)/4; 
SK:= EMA(VAR1,13)-EMA(VAR1,73); 
SD:= EMA(SK,2); 
SJ:=(CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03)OR(CROSS(SK,SD) 
AND SK<=-0.14 )OR(CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)); 
STICKLINE(SJ,H,L,0.5,0),COLORRED; 
STICKLINE(SJ,O,C,5.5,0),LINETHICK3,COLOR000055; 
STICKLINE(SJ,O,C,4.5,0),LINETHICK3,COLOR000077; 
STICKLINE(SJ,O,C,3.5,0),LINETHICK3,COLOR000099; 
STICKLINE(SJ,O,C,2.5,0),LINETHICK3,COLOR0000BB; 
STICKLINE(SJ,O,C,1.5,0),LINETHICK3,COLOR0000DD; 
STICKLINE(SJ,O,C,0.5,0),LINETHICK3,COLOR0000FF; 
EMA13:=EMA(C,13),COLORWHITE; 
EMA21:=EMA(C,21),COLORYELLOW; 
EMA34:=EMA(C,34),COLORFF00FF; 
EMA60:=MA(C,60),COLORFFCC66; 
VAR2:=(2*CLOSE+HIGH+LOW)/4; 
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1); 
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4); 
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3; 
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3; 
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH,'←-----逃'),COLORGREEN;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'←---大胆搏 '),COLORYELLOW;
VAR51:=3;
VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
DRAWTEXT(CROSS(VAR52,VAR51), LOW,'←启动')COLORMAGENTA;

[url=http://www.70822.com/soft/sort013/sort05/down-63019.html]很好用的黄金分割[/url]