INPUT:n(14,6,100,2);
{黄金分割线}
lhnh:=BARSLAST(BARPOS=SYSPARAM(2))+1;
nnl:=BARPOS=SYSPARAM(3);
hh:=HHV(HIGH ,lhnh);
ll:=LLV(LOW ,lhnh);
【金38】

ll+(hh-ll)*0.618),colorwhite,linethick0;
【金50】

ll+(hh-ll)*0.5),colorwhite,linethick0;
【金62】

ll+(hh-ll)*0.382),colorwhite,linethick0;
FILLRGN(c>0,ll+(hh-ll)*0.60182,ll+(hh-ll)*0.63418),COLOR004400;
FILLRGN(c>0,ll+(hh-ll)*0.48382,ll+(hh-ll)*0.51618),COLOR004400;
FILLRGN(c>0,ll+(hh-ll)*0.39818,ll+(hh-ll)*0.36582),COLOR004400;
FILLRGN(c>0,hh-(hh-ll)*0.00618,hh+(hh-ll)*0.00618),COLOR004400;
FILLRGN(c>0,ll-(hh-ll)*0.00618,ll+(hh-ll)*0.00618),COLOR004400;
DRAWTEXT((SYSPARAM(1) = BARPOS),ll+(hh-ll)*0.382,'62%'),coloryellow;
DRAWTEXT((SYSPARAM(1) = BARPOS),ll+(hh-ll)*0.618,'38%'),coloryellow;
DRAWTEXT((SYSPARAM(1) = BARPOS),ll+(hh-ll)*0.5,'50%'),coloryellow;
{均线部分}
生命线: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,linethick0,Coloryellow;
{以下定义叠加区间(在这里是可见K线的范围)}
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
{以下计算叠加比和叠加平移量}
{1、叠加区域高度}
kh:=hhv(h,q);
kL:=LLv(L,q);
rh:=hhv(TTRSI,q);
rL:=LLv(TTRSI,q);
{2、叠加比}
br:=(kh-kL)/(rh-rL);
{3、叠加平移量}
wk:=(kh-kL);
wr:=(kh+kL-(rh+rL)*br)/2;
{以下画叠加线}
PARTLINE(TTRSI*br[p]+wr[p]>=20*br[p]+wr[p],TTRSI*br[p]+wr[p]),Coloryellow;
PARTLINE(TTRSI*br[p]+wr[p]<=20*br[p]+wr[p],TTRSI*br[p]+wr[p]),Colorgreen;
PARTLINE(TTRSI*br[p]+wr[p]>=50*br[p]+wr[p],TTRSI*br[p]+wr[p]),Colorred;
{以下画叠加指标的横坐标线}
PARTLINE(1,20*br[p]+wr[p]),color888888,POINTDOT;
PARTLINE(1,80*br[p]+wr[p]),color888888,POINTDOT;
PARTLINE(1,50*br[p]+wr[p]),color888888,POINTDOT;
{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;