INPUT:n(14,6,100,2);
{均线部分}
生命线:EMA(C,21),CIRCLEDOT,color008888;
回调支撑:EMA(C,55),CIRCLEDOT,color888888;
牛熊分界:EMA(C,99),CIRCLEDOT,color888800;
ZC:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v)/100);
『实力』:IF(VOL>0,zc,C),LINETHICK0,colorred;
x:=EMA(『实力』,3)>=EMA(『实力』,5) and EMA(『实力』,5)>=EMA(『实力』,8) and EMA(『实力』,8)>=EMA(『实力』,13);
{macd逃顶部分}
TC:=SMA(C,2,1);
DIFF :=EMA(TC,7) - EMA(TC,19);
DEA := EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
drawtext(CROSS(0,MACD) AND REF(C,1)>=ma(c,20),h*1.01,'★'),colorred,align1;
drawtext(CROSS(0,MACD) AND REF(C,1)>=ma(c,20),h*1.01,'☆'),coloryellow,align1;
{叠加RSI部分}
LC1:= SMA(c,2,1);
TCRSI:=SMA(MAX(C-LC1,0),N,1)/SMA(ABS(C-LC1),N,1)*100;
LC2:= SMA(H,2,1);
THRSI:=SMA(MAX(H-LC2,0),N,1)/SMA(ABS(H-LC2),N,1)*100;
LC3:= SMA(O,2,1);
TORSI:=SMA(MAX(O-LC3,0),N,1)/SMA(ABS(O-LC3),N,1)*100;
LC4:= SMA(L,2,1);
TLRSI:=SMA(MAX(L-LC4,0),N,1)/SMA(ABS(L-LC4),N,1)*100;
TVar:=SMA(((10000 * CLOSE) / INDEXC),2,1);
『大盘关联』:=SMA(MAX(((10000 * C) / INDEXC)-TVar,0),N,1)/SMA(ABS(((10000 * C) / INDEXC)-TVar),N,1)*100;
{以下显示叠加指标的数值}
TTRSI:=(TCRSI+TORSI+THRSI+TLRSI+『大盘关联』)/5;
{以下计算叠加比和叠加平移量}
{1、叠加区域高度}
kh:=hhvALL(h);
kL:=LLvALL(L);
rh:=hhvALL(TTRSI);
rL:=LLvALL(TTRSI);
{2、叠加比}
br:=(kh-kL)/(rh-rL);
{3、叠加平移量}
wk:=(kh-kL);
wr:=(kh+kL-(rh+rL)*br)/2;
{以下画叠加线}
强弱线:TTRSI*br+wr,Color00FFFF;
PARTLINE(强弱线,强弱线<=(20*br+wr),RGB(0,255,0),强弱线>=(50*br+wr),RGB(255,0,0));
{以下画叠加指标的横坐标线}
STICKLINE(c,20*br+wr,20*br+wr,1,1),color888888;
STICKLINE(c,50*br+wr,50*br+wr,1,1),color888888;
STICKLINE(c,80*br+wr,80*br+wr,1,1),color888888;
{黄金分割线}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
『金38』:(ll+(hh-ll)*0.618),coloryellow,linethick0;
『金50』:(ll+(hh-ll)*0.5),coloryellow,linethick0;
『金62』:(ll+(hh-ll)*0.382),coloryellow,linethick0;
DRAWTEXT(DISPSTATUS=2,ll+(hh-ll)*0.618,' 38%'),coloryellow;
DRAWTEXT(DISPSTATUS=2,ll+(hh-ll)*0.5,' 50%'),coloryellow;
DRAWTEXT(DISPSTATUS=2,ll+(hh-ll)*0.382,' 62%'),coloryellow;
FILLRGN(ll+(hh-ll)*0.60182,ll+(hh-ll)*0.63418,c>0,995599),layer7;
FILLRGN(ll+(hh-ll)*0.48382,ll+(hh-ll)*0.51618,c>0,995599),layer7;
FILLRGN(ll+(hh-ll)*0.39818,ll+(hh-ll)*0.36582,c>0,995599),layer7;
FILLRGN(ll+(hh-ll)*0.00618,ll-(hh-ll)*0.00618,c>0,995599),layer7;
FILLRGN(hh+(hh-ll)*0.00618,hh-(hh-ll)*0.00618,c>0,995599),layer7;
{k线部分}
{1、多头市场}
stickline(x and c>=o,O,C,5,0),COLOR0000FF;
stickline(x and c>=o,h,l,0,1),COLOR0000FF;
stickline(x and c<o,O,C,5,1),COLORFF00FF;
stickline(x and c<o,h,o,0,1),COLORFF00FF;
stickline(x and c<o,l,c,0,1),COLORFF00FF;
{2、空头市场}
stickline(not(x) and c<o,O,C,5,0),COLOR00EE00;
stickline(not(x) and c<o,H,L,1,0),COLOR00EE00;
stickline(not(x) and c>=o,O,C,5,1),COLORFFBB00;
stickline(not(x) and c>=o,H,C,1,1),COLORFFBB00;
stickline(not(x) and c>=o,L,O,1,1),COLORFFBB00; |
