【圖】動態(tài)黃金分割源碼（分析家主圖）

海天云騫 2017-05-17

展開全文

{甲乙多多動態(tài)黃金分割源碼（分析家主圖）}
{簡單移動平均線+變色K線}
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,' 戰(zhàn)'),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;

{主要基本面數(shù)據(jù)}
S:='股票代碼：'+STKLABEL;
基本:=' 流通盤'+ FINANCE(7)+'萬股'+'　凈資產(chǎn)'+FINANCE(35)+'元'+'　公積金'+FINANCE(18)+'元'+'　每股收益'+FINANCE(33)+'元'+'　每股未分配'+FINANCE(32)+'元'+' 市盈率'+DYNAINFO(39);
drawtext(nnl,hh*1.02,s+基本),align2,Color80FFFF;