 | |  |  |
分析家黄金分价图源码公式：
{DRAWGBK(C,STRIP(RGB(100,50,0),RGB(100,100,0),0));}
JJ:=(CLOSE+HIGH+LOW)/3;
AA:=EMA(JJ,10);
BB:=REF(AA,1);
PARTLINE(AA,AA>BB,RGB(255,0,0),AA<BB,RGB(0,0,255)),linethick2;
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),color33ccff,LINETHICK2;
PARTLINE(Ycjy,Ycjy>0,RGB(255,255,255)),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),Coloryellow;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Coloryellow;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Colorffff00;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Colorffff00;
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),color0088ff;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),color0088ff;
{黄金分割线}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
hhhh:=HHV(h ,lhnh);
llll:=llV(l ,lhnh);
q809:=llll+(hhhh-llll)*0.809;
q667:=llll+(hhhh-llll)*2/3;
q618:=llll+(hhhh-llll)*0.618;
q500:=llll+(hhhh-llll)*0.5;
q382:=llll+(hhhh-llll)*0.382;
q333:=llll+(hhhh-llll)/3;
q191:=llll+(hhhh-llll)*0.191;
DRAWTEXT(nnl,hhhh,' 最高价：'+hhhh),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q809,' 80.9%：'+q809),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q667,' 66.7%：'+q667),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q618,' 61.8%：'+q618),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q500,' 50%：'+q500),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q382,' 38.2%：'+q382),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q333,' 33.3%：'+q333),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q191,' 19.1%：'+q191),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,llll,' 最低价：'+llll),ALIGN0,VALIGN2,Color00FFFF;
DRAWTEXT(nnl,hhhh,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORFF9900,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),color33ccff,ALIGN2;
DRAWTEXT(nnl,q667,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORGRAY,ALIGN2;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORFF9900,ALIGN2;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ColorFF00FF,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORFF9900,ALIGN2;
DRAWTEXT(nnl,q333,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORGRAY,ALIGN2;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),color33ccff,ALIGN2;
DRAWTEXT(nnl,llll,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),COLORFF9900,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,llll*0.98,'·'),ALIGN0,VALIGN2,Color00FFFF; |
| |  | |  |
|
