{参数:
Y:1900/5000/2009
M:1/12/12
D:1/31/8
}
VAR1:=YEAR=Y AND MONTH=M AND DAY=D;
KK:=CONST(BARSSINCE(VAR1));
VAR2:=BARSSINCE(VAR1);
VAR3:=SUM(VOL,0);
VAR4:=REF(VAR3,VAR2);
HS:(VAR3-VAR4)/CAPITAL*100,NODRAW;
高:=CONST(HHV(H,KK));
低:=CONST(LLV(L,KK));
STICKLINE(CURRBARSCOUNT=KK,高,低,0,0);{竖线统计起点位置}
XX:=(高-低);
均价:=AMOUNT/V/100,NODRAW;
L0:=低+XX*0/11,NODRAW;
L1:=低+XX*1.0505/11,NODRAW;
L2:=低+XX*2.101/11,NODRAW;
L3:=低+XX*3.1515/11,NODRAW;
L4:=低+XX*4.202/11,NODRAW;
L5:=低+XX*5.5/11,NODRAW;
L6:=低+XX*6.908/11,NODRAW;
L7:=低+XX*7.9585/11,NODRAW;
L8:=低+XX*8.889/11,NODRAW;
L9:=低+XX*9.9495/11,NODRAW;
L10:=低+XX*11/11,NODRAW;
{萃富网-股票公式网站 www.cuiv.com}
MLZ:=SUM((CURRBARSCOUNT<KK+1)*V,KK),NODRAW;
M1:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L0-0.001,L1+0.001))*V,KK)/MLZ*100,COLORFF5555,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M1*2)),L1,L1*0.99,5,0),COLORFF5555;
M2:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L1,L2+0.001))*V,KK)/MLZ*100,COLORFFAA55,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M2*2)),L2,L2*0.99,5,0),COLORFFAA55;
M1_2:MAX(M1,M2),NODRAW;
M3:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L2,L3+0.001))*V,KK)/MLZ*100,COLORAAFF55,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M3*2)),L3,L3*0.99,5,0),COLORAAFF55;
M4:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L3,L4+0.001))*V,KK)/MLZ*100,COLOR5FFF00,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M4*2)),L4,L4*0.99,5,0),COLOR5FFF00;
M3_4:MAX(M3,M4),NODRAW;
M5:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L4,L5+0.001))*V,KK)/MLZ*100,COLORFFFFF0,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M5*2)),L5,L5*0.99,5,0),COLORFFFFF0;
M6:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L5,L6+0.001))*V,KK)/MLZ*100,COLORFF0FFF,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M6*2)),L6,L6*0.99,5,0),COLORFF0FFF;
M5_6:MAX(M5,M6),NODRAW;
M7:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L6,L7+0.001))*V,KK)/MLZ*100,COLOR509FDD,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M7*2)),L7,L7*0.99,5,0),COLOR509FDD;
M8:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L7,L8+0.001))*V,KK)/MLZ*100,COLORAA5DDD,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M8*2)),L8,L8*0.99,5,0),COLORAA5DDD;
M7_8:MAX(M7,M8),NODRAW;
M9:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L8,L9+0.001))*V,KK)/MLZ*100,COLOR0055DD,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M9*2)),L9,L9*0.99,5,0),COLOR0055DD;
M10:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(均价,L9,L10+0.001))*V,KK)/MLZ*100,COLORFF6EC7,NODRAW;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M10*2)),L10,L10*0.99,5,0),COLORFF6EC7;
M9_10:MAX(M9,M10),NODRAW;
筹码累计:M1+M2+M3+M4+M5+M6+M7+M8+M9+M10,NODRAW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);