源码
b0:=100*v/capital;
a0:=winner(c);
a1:=winner(o);
d0:=sum(if(c>o,a0*b0,0),10);
k0:=sum(if(c<=o,a1*b0,0),10);
STICKLINE(d0>0,0,d0,5,0),COLOR00FFFF;{黄色}
STICKLINE(d0>0,0,d0*0.85,5,0),COLOR00DDFF;
STICKLINE(d0>0,0,d0*0.75,5,0),COLOR00BBFF;
STICKLINE(d0>0,0,d0*0.65,5,0),COLOR0099FF;
STICKLINE(d0>0,0,d0*0.55,5,0),COLOR0077FF;
STICKLINE(d0>0,0,d0*0.45,5,0),COLOR0055FF;
STICKLINE(d0>0,0,d0*0.35,5,0),COLOR0033FF;
STICKLINE(d0>0,0,d0*0.25,5,0),COLOR0011FF;
STICKLINE(k0>0,0,k0,5,0),COLOR66FF00;{翠绿}
STICKLINE(k0>0,0,k0*0.85,5,0),COLOR66DD00;
STICKLINE(k0>0,0,k0*0.75,5,0),COLOR66BB00;
STICKLINE(k0,0,k0*0.65,5,0),COLOR669900;
STICKLINE(k0>0,0,k0*0.55,5,0),COLOR667700;
STICKLINE(k0>0,0,k0*0.45,5,0),COLOR665500;
STICKLINE(k0>0,0,k0*0.35,5,0),COLOR663300;
{STICKLINE(k0>0,0,k0*0.25,5,0),COLOR661100;}
Var2:=LLV(LOW,10);
Var3:=HHV(HIGH,25);
动力线1:dma(d0,EMA((CLOSE-Var2)/(Var3-Var2),5));