刚完成的分析家的<分价图>+直线黄金分割线。
黄金分割线可以加到任何主图后面。
{分价图}
DRAWGBK(C,STRIP(RGB(100,50,0),RGB(100,100,0),0));
x11:=(C+L+H)/3;
x22:=EMA(x11,6);
x33:=EMA(x22,5);
STICKLINE(x22>=x33,x22,x33,10,1),Color008000;
STICKLINE(x22<x33,x22,x33,10,1), COLOR0000ff;
X1:=HHV(H,3);
X2:=LLV(L,3);
Xc:=c;
Xh:=h;
Xl:=l;
Ycjy:=0;
if Xh>REF(x1,1) and Xc>REF(Xc,1) then
Ycjy:=x2;
ELSE
IF Xl<REF(x2,1) and Xc<REF(Xc,1) Then
Ycjy:=x1;
else
Ycjy:=REF(Ycjy,1);
y1:=hhv(h,13);
y2:=if(y1>ref(y1,30),y1,ref(y1,8));
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
j1:=-(3*K-2*D)+100;
j2:=if(j1<0 ,0 ,j1);
j:=if(j2>100,100,j2);
超短:=SMA(AMOUNT,3,1)/100000000;
中线:=SMA(AMOUNT,13,1)/100000000;
压力:if(j<k and 超短>中线 and c<y2,Ycjy,y2),COLORCYAN,LINETHICK1;;
支撑:Ycjy,COLORGREEN,LINETHICK2;
aa1:=ema(c,2);
bb1:=ema(aa1,2);
a:=ma(bb1,3);
aa2:=ema((h+c+o)/3,18);
dd3:=a>=aa2 and c>aa2;
dd4:=a<aa2 ;
dd5:=a>aa2 ;
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),coloryellow;
{黄金分割线}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
hhhh:=HHV(h ,lhnh);
llll:=llV(l ,lhnh);
q809:=llll+(hhhh-llll)*0.809;
q618:=llll+(hhhh-llll)*0.618;
q500:=llll+(hhhh-llll)*0.5;
q382:=llll+(hhhh-llll)*0.382;
q191:=llll+(hhhh-llll)*0.191;
DRAWTEXT(nnl,hhhh,' 最高价：'+hhhh),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q809,' 19.1%：'+q809),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q618,' 38.2%：'+q618),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q500,' 50%：'+q500),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q382,' 61.8%：'+q382),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q191,' 80.9%：'+q191),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,llll,' 最低价：'+llll),ALIGN0,VALIGN2,Color00FFFF;
DRAWTEXT(nnl,hhhh,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ColorFFFF00,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,llll,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,llll*0.98,'·'),ALIGN0,VALIGN2,Color00FFFF;
