大智慧黄金分割主图指标源码

大智慧黄金分割主图指标源码

{黄金分割}
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; {GUPIAOFF.COM}
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,' wafox'),color1122ff,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;
S:='股票代码：'+STKLABEL;
基本:=' 流通盘'+ FINANCE(7)+'万股'+'　净资产'+FINANCE(35)+'元'+'　公积金'+FINANCE(18)+'元'+'　每股收益'+FINANCE(33)+'元'+'　每股未分配'+FINANCE(32)+'元'+' 市盈率'+DYNAINFO(39);
drawtext(nnl,hh*1.02,s+基本),align2,Color80FFFF;
if DISPSTATUS=2 then begin;
var1:=llv(low,BARSLAST(dispstatus=1));
var2:=hhv(high,BARSLAST(dispstatus=1));
var3:var1-(var2-var1)*0.075;
var100:='所属板块：'; {GUPIAOFF.COM}