{甲乙多多动态黄金分割源码（分析家主图）}
{简单移动平均线+变色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)ANDCLOSE>REF(CLOSE,2);
Var2:=REF(Var1,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var3:=REF(Var2,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var4:=REF(Var3,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var5:=REF(Var4,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var6:=REF(Var5,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var7:=REF(Var6,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var8:=REF(Var7,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var9:=REF(Var8,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
VarA:=REF(Var9,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
VarB:=REF(VarA,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
VarC:=REF(VarB,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
VarD:=CLOSE<REF(CLOSE,1)ANDCLOSE<REF(CLOSE,2);
VarE:=REF(VarD,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
VarF:=REF(VarE,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var10:=REF(VarF,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var11:=REF(Var10,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var12:=REF(Var11,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var13:=REF(Var12,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var14:=REF(Var13,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var15:=REF(Var14,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var16:=REF(Var15,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var17:=REF(Var16,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
Var18:=REF(Var17,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
Var19:=REF(VarDORVarEORVarFORVar10ORVar11ORVar12ORVar13ORVar14ORVar15ORVar16ORVar17ORVar18,1)ANDVar1;
STICKLINE(Var19,REF(CLOSE,1),REF(CLOSE,2),14,1),colormagenta;
Var1A:=REF(Var1ORVar2ORVar3ORVar4ORVar5ORVar6ORVar7ORVar8ORVar9ORVarAORVarBORVarC,1)ANDVarD;
STICKLINE(Var1A,REF(CLOSE,1),REF(CLOSE,2),14,1),colorgreen; |
