說明：疊加分析主圖,飛狐4.9版本用,可能看不了創業板。

證券K線主圖公式

{N-代碼參數；M-證券類型參數。
M=0時,可顯示深指、基金等,N=證券代碼。如,399001則N=399001；
M=1時,可顯示滬A,N=證券代碼的6之后的實數部份。如,600001則N=1,特別600000則N=0；
M=2時,可顯示深A,N=代碼的實數部份。如,000008則N=8；
M=3時,可顯示滬A指。N=代碼A后的實數部份。如,1A0001則N=1；
M=4時,可顯示滬B指。N=代碼B后的實數部份。如,1B0007則N=7；
M=5時,可顯示板塊指數,N=代碼AA后的實數部份。如,AA99則N=99；
M=6時,可顯示板塊指數,N=代碼BB后的實數部份。如,BB01則N=1；}
INPUT:n(3,0,999999){(0,0,999999)},m(3,0,6){(1,0,6)};{證券K線**  B指}
{INPUT:n(16,0,999999){(0,0,999999)},m(4,0,6){(1,0,6),mm(900,1,2000)};{證券K線**  50指}}
{INPUT:n(399300,0,999999){(0,0,999999)},m(0,0,6){(1,0,6),mm(900,1,2000)};{證券K線**  300指}}

i:=if(m=1 or m=0,6,if(m=2,5,if(m=3 or m=4,4,2)));
s:=if(m=1,600000,if(m=2,100000,if(m=3 or m=4,10000,if(m=5 or m=6,100,0))));
u:=STRRIGHT(NUMTOSTR(n+s,0),i);
t:=if(m=1 or m=0,u,if(m=2,'0'+u,if(m=3,'1A'+u,if(m=4,'1B'+u,if(m=5,'AA'+u,'BB'+u)))));
cc:STKINDI(t,'KXSJ.cc',0,6),LINETHICK0;
oo:STKINDI(t,'KXSJ.oo',0,6),LINETHICK0;
hh:STKINDI(t,'KXSJ.hh',0,6),LINETHICK0;
LL:STKINDI(t,'KXSJ.LL',0,6),LINETHICK0;
DRAWTEXT(BARPOS=datacount-90,hh,'引用的證券名稱和代碼：'+STKNAMEEX(t)+' '+t)ALIGN4,Color57FFD8;
STICKLINE(cc>oo or (cc=oo and cc>=ref(cc,1)),hh,ll,0.6,0),COLORMAGENTA;
STICKLINE(cc>oo or (cc=oo and cc>=ref(cc,1)),cc,oo,6,1),COLORMAGENTA;
STICKLINE(cc<oo or (cc=oo and cc<ref(cc,1)),hh,ll,0.6,0),COLORGREEN;
STICKLINE(cc<oo or (cc=oo and cc<ref(cc,1)),cc,oo,6,0),COLORGREEN;
m5:ma(cc,5),COLORWHITE;
m1:ma(cc,10),COLORYELLOW;
vv:STKINDI(t,'KXSJ.DV',0,6),LINETHICK0;
r0:=mm/1000;
p:=SYSPARAM(3)-SYSPARAM(2);
q:=SYSPARAM(3);
zL:=LLv(LL,p);
XL:=ZL[q];
r:=(LL-r0*XL)/vv;
r1:=llv(r,p);
r2:=r1[q];
r3:=llv(LL-r2*vv,p);
r4:=r3[q];
r5:=(r2*vv+r4)*0.998;
STICKLINE(cc>=ref(cc,1),r5,r0*XL,5,1)COLORRED;
STICKLINE(cc<ref(cc,1),r5,r0*XL,5,0)COLORCYAN;
PARTLINE(1,r0*XL) colorbrown;
v5:ma(vv,5),LINETHICK0,COLORGREEN;
v10:ma(vv,10),LINETHICK0,COLORMAGENTA;
PARTLINE(1,ma(r5,5)),COLORGREEN;
PARTLINE(1,ma(r5,10)),COLORMAGENTA;
引用公式源碼
{KXSJ}

cc:c,LINETHICK0;
oo:o,LINETHICK0;
hh:h,LINETHICK0;
LL:L,LINETHICK0;
dv:v,LINETHICK0;

下載地址: 證券K線