个股:=CLOSE/INDEXC*1000,LINETHICK0;
A:=(CLOSE/REF(CLOSE,1)-1)*100;
B:=(INDEXC/REF(INDEXC,1)-1)*100;
涨跌幅:A-B,LINETHICK0,COLORYELLOW;
{STICKLINE(CLOSE>=REF(CLOSE,1),ABS(涨跌幅),0,6,0),COLORRED;
STICKLINE(CLOSE<REF(CLOSE,1),ABS

input:N1(5,1,100),N2(13,1,100),N3(21,1,100),N4(30,1,100);
A00:=(DATE < 20341231);
A01:=DYNAINFO(7);
A02:=MA(((AMOUNT / VOL) / 100),(VOL / CAPITAL));
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);

INPUT:高(0,0,255),XS(0,0,3),调(0,0,2),F(0,0,255);
BQ:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0);
BQ1:=(H<REF(L,1));
BQ2:=(L>REF(H,1));
STICKLINE(BQ1,o+(c-o)*0.25,O,5,0),colorcc0000;
STICKLINE(BQ1,o+(c-o)*0.25,O,

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A:=ZIG(K,40);
B:=REF(ZIG(K,40),1);
DRAWNUMBER(CROSS(A,B),L*0.99,C,2),COLORWHITE;
DRAWNUMBER(CROSS(A,B),L*0.97,C*1.03,2),COLORRED;

MA(C,3);
N:=5;
K1:=hhv(h,n);
K2:=llv(l,n);
FC:=close;
FOR I=n+1 TO DATACOUNT DO BEGIN
IF FC[I]>K1[I-1] THEN
BJ[I]:=1;ELSE
IF FC[I]<K2[I-1] THEN
BJ[I]:=-1;ELSE
BJ[I]:=BJ[I-1];
E

INPUT:XS(0,0,1),CY1(0,0,5),p2(0,0,255),df(0,0,555),BOL(0,0,999),FA(0,0,3),高H(0,0,255);
STICKLINE(C>=O,low,high,0.5,0),colorFF;
STICKLINE(C>=O,close,open,8,0),color102088;
STICKLINE(C>=O,close,open,7,0),color102099;
STICKLI

WWW:=(L*3-H)/2;
{短通道}
短高:=MA(WWW,15)*1.07;
短低:=MA(WWW,15)*0.97;
短中:=(短高+短低)/2;
FILLRGN(c,短高,短低),COLOR995500;
FILLRGN(c,短中,短低),COLOR663300;
{中通道}
中高:=MA(WWW,40)*1.15;
中低:=MA(WWW,40)*0.95;
中中:=(中高+

m:=58;x:=3;p:=SYSPARAM(1);
ws:=BARPOS;ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;wsp1:=ws1-1;
h1:=hhv(h,ws1);l1:=llv(l,ws1);
hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x;
//VERTLINE(m),LINEDOT,Color0000FF;
//VERTLINE(p),LINEDOT,Color00

TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
tyx4:=MA((C+L+O+H)/4,13);
TYX5:=EMA((C+L+O+H)/4,21);
{空心红}
STICKLINE(C<TYX5 AND C>O,H,L,0.1,1),COLORred;
STICKLINE(C<TYX5 AND C>O,C,O,8,1),COLORred;
{深绿}
STICKLI

A:EMA(CLOSE,13),COLORGREEN;
A1:EMA(CLOSE,55),COLORYELLOW;
A22:EMA(CLOSE,120),COLORMAGENTA;
AAAA:=FILTER(CLOSE>REF(HHV(HIGH,100),1)
AND REF(C,1)<REF(HHV(HIGH,100),1),5)
AND EXIST(EVERY(C>EMA(C,120),30),100)AND C/EMA(C

//DRAWGBK(1,COLORRGB(240,240,240),COLORRGB(240,240,240),0);
{--------------------均线组----------------}
{18日收盘均价为安全生命线}
EMA(close,18),COLOR006600,LINETHICK4;
安全生命线:EMA(close,18),COLOR00CC00,LINETHICK2;
MA1:ema(close,3),COLORRED

X:=SYSPARAM(3)-SYSPARAM(2);
DRAWTEXTEX(C>0,1,500,5,'['+STKLABEL+']'+ STKNAME+'【可视:'+NUMTOSTR(X,0)+'天】'),Color0077FF,LINETHICK7;
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),color0077FF,POINTDOT;
KC:=(2*C+H+L+O)/5;
CB:=SMA(KC,5,1);

a:=5*v/capital*l*1.05 and c>l;{阳换手}
b:=5*v/capital*l*1.05 and c<l;{阴换手}
ai:=count(a,3)+slope(forcast(l,9),9)+l,colorb5a642;
ddx:ema(ai,9)-l/ref(l,3),linethick3,colorb5a642;
bi:count(b,9)+forcast(slope(l,3),9)+l,color0099ff;

AA:=FFT((C+O+L+H)/4,25);
PARTLINE(AA<REF(AA,1),AA),COLORCYAN;
PARTLINE(AA>REF(AA,1),AA),COLORRED;
趋势线:=AA;
TD上轨:=FFT(aa,30)*1.1;
TD下轨:=FFT(aa,30)*0.9;
PARTLINE(TD上轨 >REF(TD上轨,1),TD上轨),COLORWHITE;
PARTLINE

均价:SUM(AMOUNT,1)*0.01/SUM(VOL,1),colorffffff,LINETHICK0;
换手:=VOL/CAPITAL*100;
DRAWSL(换手>=5 and 换手<8,均价,0,0,3),POINTDOT,COLOR008800,LINETHICK1;
DRAWSL(换手>=8 and 换手<13,均价,0,0,3),LINEDOT,COLOR00DDFF,LINETHICK1;

{大箱体}
顶: COST(95)*1, linedot,COLORRED;
Var11:=(2*CLOSE+HIGH+LOW)/4;
底: EMA(Var11,99)*0.91,linedot,colorgreen ;
{霸王庄}
主力持仓:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3);
指数趋势:=EMA(100*(INDEXC-LLV(INDEXL,34))

input:P(79,1,111),N(16,1,100);
VARA:=LLV(LOW,35);
VARB:=HHV(HIGH,30);
VARC:=(EMA((((CLOSE - VARA) / (VARB - VARA)) * 4),4) * 25);
DRAWICON(((VARC < 10) AND (((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))) > 97

N:=14;N1:=28;
均价:=(2*C+(H-L)/2+L)/3;
价差:=SUM(均价-REF(均价,1),2)/2;
高低:=(均价+价差);
实价:=(高低+均价)/2;
DIR:=ABS(实价-REF(实价,5));
VIR:=SUM(ABS(实价-REF(实价,1)),5);
ER:=DIR/VIR;
CS:=ER*(0.8-2/12)+2/12;
CQ:=CS*CS;

均价:=(2*C+(H-L)/2+L+o)/4;
价差:=SUM(均价-REF(均价,1),3)/3;
实价:=(均价+价差);
NN:=26;
n:=IF(DATATYPE=5,2,IF(DATATYPE=6,1,IF(DATATYPE=7,0.5,4)));
黑马线:=EMA(-100*(HHV(实价,nn*N)-(实价+均价)/2)/(HHV(实价,nn*N)-LLV(均价,nn*N)),6)+60,COLORRED,LINETHICK2;

缺口:=(L>REF(H,1));
不破:=(ALL(L>REF(H,BARSLAST(缺口)+1),BARSLAST(缺口)+1));
STICKLINE(不破,REF(H,BARSLAST(缺口)+1),REF(L,BARSLAST(缺口)),10,1),COLORMAGENTA;
下缺口:=(H<REF(L,1));
不补:=(ALL(H<REF(L,BARSLAST(下缺口)+1),BARSLAST(下缺口)+1));