软件名称：[B]甲乙多多动态黄金分割(简单移动平均线+变色K线)[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2008-11-22 21:24:20
软件简介:

{甲乙多多动态黄金分割源码（分析家主图）}
{简单移动平均线+变色K线 p1=5}
MA5:MA(CLOSE,5),linethick0;
MA10:MA(CLOSE,10),linethick0;
MA20:MA(CLOSE,20),linethick0;
MA30:MA(CLOSE,30),linethick0;
m60:MA(C,60),linethick0;
m89:MA(C,89),linethick0;
m152:ma(c,152),linethick0;
m246:ma(c,246),linethick0;
tj1:=c>=MA20;
tj2:=c<MA20; 
STICKLINE(tj1,l,h,0,0),color1122ff;
STICKLINE(tj1,o,c,7,0),color1122ff;
STICKLINE(tj2,l,h,0,0),color22ff55;
STICKLINE(tj2,o,c,7,0),color22ff55;

{黄金分割线}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;

PARTLINE(hh,qqqq,RGB(255,18,28));
PARTLINE(q191,qqqq,RGB(198,248,248));
PARTLINE(q382,qqqq,RGB(18,108,208));
PARTLINE(q500,qqqq,RGB(198,8,118));
PARTLINE(q618,qqqq,RGB(98,98,228));
PARTLINE(q809,qqqq,RGB(158,228,158));
PARTLINE(ll,qqqq,RGB(238,238,28));

DRAWTEXT(nnl,hh*0.998,'最高价：'+hh),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q809,'19.1%：'+q809),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q618,'38.2%：'+q618),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q500,'50%：'+q500),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q382,'61.8%：'+q382),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q191,'80.9%：'+q191),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,ll*1.01,'最低价：'+ll),ALIGN2,VALIGN2,Color00FFFF;
DRAWTEXT(nnl,hh,' 沉'),ColorFF9900,VALIGN0,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.85,' 着'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.71,' 冷'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.57,' 静'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.43,' 战'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.29,' 无'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.15,' 不'),ColorFF9900,VALIGN1,linethick3;
DRAWTEXT(nnl,ll,' 胜'),ColorFF9900,VALIGN2,linethick3;
DRAWTEXT(nnl,hh,'　　甲'),ColorFF00FF,VALIGN0,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.85,'　　乙'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.71,'　　多'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.57,'　　多'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.43,'　　祝'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.29,'　　你'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll+(hh-ll)*0.15,'　　成'),ColorFF00FF,VALIGN1,linethick3;
DRAWTEXT(nnl,ll,'　　功'),ColorFF00FF,VALIGN2,linethick3;

MA1:MA(CLOSE,P1);
var1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
Var2:=REF(Var1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var3:=REF(Var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var4:=REF(Var3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var5:=REF(Var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var6:=REF(Var5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var7:=REF(Var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var8:=REF(Var7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var9:=REF(Var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarA:=REF(Var9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VarB:=REF(VarA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarC:=REF(VarB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VarD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VarE:=REF(VarD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarF:=REF(VarE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var10:=REF(VarF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var11:=REF(Var10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var12:=REF(Var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var13:=REF(Var12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var14:=REF(Var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var15:=REF(Var14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var16:=REF(Var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var17:=REF(Var16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var18:=REF(Var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var19:=REF(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,1) AND Var1;
STICKLINE(Var19,REF(CLOSE,1),REF(CLOSE,2),14,1),colormagenta;
Var1A:=REF(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,1) AND VarD;
STICKLINE(Var1A,REF(CLOSE,1),REF(CLOSE,2),14,1),colorgreen;
[url=http://www.70822.com/soft/sort013/sort03/down-4562.html]甲乙多多动态黄金分割(简单移动平均线+变色K线)[/url]