{纳兰容若源码（本人自用综合主图）}

INPUT:P1(60,30,100),P2(150,100,200),P3(300,200,900);
LX:=STKTYPE,LINETHICK;
IF RANGE(LX,3,13) AND NOT(LX=11) THEN EXIT;

ZL:=SUM(VOL,0)<CAPITAL or CAPITAL=0;
Aa1:=IF(ZL,DATACOUNT,SUMBARS(VOL,CAPITAL));
AA:=(EMA(Aa1*0.1,3)+MA(Aa1*0.2,5)+MA(Aa1*0.3,8)+MA(Aa1*0.4,13))/4;
A1:=FORCAST(IF(CAPITAL>0,SUM(AMOUNT,AA)/SUM(V,AA)/100,EMA(C,3)),3);

持股:=IF(LX=0 OR LX=13,SMA(MA(C,10),3,1),SMA(SUM(AMOUNT,10)/SUM(VOL,10)/100,3,1)),COLORFF;{POLYLINE(持股>0,EMA(持股,5)),COLORDF;}
加仓:=IF(LX=0 OR LX=13,SMA(MA(C,18),3,1),SMA(SUM(AMOUNT,18)/SUM(VOL,18)/100,3,1)),COLOREE00DD,LINETHICK2;

中期:EMA(A1,P1),COLOREEFF;
POLYLINE(中期>0,EMA(中期,5)),COLOREFFF;
POLYLINE(中期>0,EMA(中期,8)),COLOREDFF;
POLYLINE(中期>0,EMA(中期,13)),COLORECFF,LINETHICK2;

中长:EMA(A1,P2),COLORDD11;
POLYLINE(中长>0,EMA(中长,8)),COLORCC22;
POLYLINE(中长>0,EMA(中长,13)),COLORBB33;
POLYLINE(中长>0,EMA(中长,21)),COLOREE00,LINETHICK2;

长期:EMA(A1,P3),COLORE9E9E9;
POLYLINE(长期>0,EMA(长期,13)),COLOREBEBEB;
POLYLINE(长期>0,EMA(长期,21)),COLOREDEDED;
POLYLINE(长期>0,EMA(长期,34)),COLOREEEEEE,LINETHICK2;

止损:EMA(A1,30),COLORFF8800,LINETHICK2;
//
v0:=VOL*(O+C+H+L)/4;
A:=EMA(v0,34)/EMA(VOL,34),linethick2,coloryellow;
stickline(A>=ref(A,1),A,ref(A,1),8,1),linethick3,colorYELLOW;
stickline(A<ref(A,1),A,ref(A,1),8,1),linethick3,colorff0099;
AC:=CLOSE;
轉強:=WMA(HIGH,6);
轉弱:=WMA(LOW,6);
B:=CLOSE*0;
FOR I=13+1 TO DATACOUNT DO BEGIN
IF AC[I]>轉強[I-1] THEN
B[I]:=1;ELSE
IF AC[I]<轉弱[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
轉折線:IF(B=-1,MA(HIGH,6),MA(LOW,6)),LINETHICK2,colorMAGENTA;
v2:=简单移动平均(最高价,3)*1.04;
v3:=简单移动平均(最低价,3)*0.96;
小通道上:傅立叶变换(v2,30);
小通道下:傅立叶变换(v3,30);
A2:=小通道上-向前引用(小通道上,1);
A3:=小通道下-向前引用(小通道下,1);
画分段线(A2>0,小通道上) LINETHICK2 COLORRED,,linethick2;
画分段线(A2=0,小通道上) LINETHICK1 COLORWHITE,linethick2;
画分段线(A2<0,小通道上) LINETHICK1 COLORGREEN,linethick2;
画分段线(A3>0,小通道下) LINETHICK2 COLORRED,linethick2;
画分段线(A3=0,小通道下) LINETHICK1 COLORWHITE,linethick2;
画分段线(A3<0,小通道下) LINETHICK1 COLORGREEN,linethick2;
龙线:ma(c,344),colorBLUE,linedashdot;
CB:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
散户出逃:CB+CB*10/100,COLORBLUE,linedashdot,colorMAGENTA;
CB+CB*9.9/100,COLORBLUE,linedashdot,colorMAGENTA;
CB+CB*10.1/100,COLORBLUE,linedashdot,colorMAGENTA;
散户出逃*0.762,linedashdot,COLORWHITE;
散户出逃*0.764,linedashdot,COLORWHITE;
散户出逃*0.766,linedashdot,COLORWHITE;
DNA3:EMA(COST(6),1577),COLORYELLOW,LINETHICK2;
tt:c,pointdot;