分价图（主图）源码

 

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:=(2*C+REF(C ,1 ))/3;
bb1:=ema(aa1,2);
a:=ma(bb1,3);
AAA:=(H+C+O)/3;
AA2:=(18*AAA+17*REF(AAA ,1)+16*REF(AAA ,2)+15*REF(AAA ,3)+14*REF(AAA ,4)
+13*REF(AAA ,5)+12*REF(AAA ,6)+11*REF(AAA ,7)+10*REF(AAA ,8)+9*REF(AAA ,9)
+8*REF(AAA ,10)+7*REF(AAA ,11)+6*REF(AAA ,12)+5*REF(AAA ,13)+4*REF(AAA ,14)
+3*REF(AAA ,15)+2*REF(AAA ,16)+REF(AAA ,17))/171;
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,ColorFF00FF;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,llll,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;