DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130);
DA:=IF(CURRBARSCOUNT>DA1,0,DA1);
HI:=REFDATE(HHV(H,DA),DATE);
LO:=REFDATE(LLV(L,DA),DATE);
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL);
GZ:=EXP(LN(HI/LO)/10);
LH1:=SUM(I

操作价位:CLOSE;
当日成本:MONEY/VOL;
MA5:SUM(MONEY,5)/SUM(VOL,5);
MA10:SUM(MONEY,10)/SUM(VOL,10);
MA20:SUM(MONEY,20)/SUM(VOL,20);
半年成本:SUM(MONEY,130)/SUM(VOL,130);
两年成本:SUM(MONEY,500)/SUM(VOL,500);
绝对成本:SUM(MONEY,0)/SUM(VO

N1:=3;
N2:=5;
N3:=13;
N4:=34;
N5:=1;
超短线成本:=SUM(MONEY,n1)-SUM(MONEY,n5);
短线成本:=SUM(MONEY,n2)-SUM(MONEY,n5);
中线成本:=SUM(MONEY,n3)-SUM(MONEY,n5);
长线成本:=SUM(MONEY,n4)-SUM(MONEY,n5);
超短线量:=SUM(VOL,n1)-MA(VO

A:=SUMBARS(V,CAPITAL*1);
A1:=SUM(COST(10),A)/A;
A2:=SUM(COST(20),A)/A;
A3:=SUM(COST(30),A)/A;
A4:=SUM(COST(40),A)/A;
A5:=SUM(COST(50),A)/A;
E:=LLV(L,250)=L;
E1:=BARSLAST(E);
A6=(A1*5+4*A2+3*A3+4*A4+A5)/15,CI

Ma2=SUM(AMOUNT,2)/SUM(VOL,2),colorred,LINETHICK2;
Ma3=SUM(AMOUNT,3)/SUM(VOL,3),color88888;
Ma4=SUM(AMOUNT,4)/SUM(VOL,4),color88888;
Ma5=SUM(AMOUNT,5)/SUM(VOL,5),color88888;
Ma6=SUM(AMOUNT,6)/SUM(VOL,6),color88888;
Ma7=SUM(AMO

日均价:=COST(50);
//移动加权价:(SMA(日均价,3,1)*0.4+SMA(日均价,8,1)*0.3+SMA(日均价,24,1)*0.2+SMA(日均价,72,1)*0.1);
交易均价:MONEY/VOL;
Cc:C;
zj:REF(交易均价,1);
zc:REF(C,1);
MAir:=CROSS(Cc,交易均价);
MmAir:=CROSS(交易均价,Cc);
DRAWICON(MAir,L

短线成本:=EMA(CLOSE,17),LINETHICK2,colorwhite;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+ 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12) +7*REF(A,13)+6*REF(A,14)+5*

P1:=30;
P2:=60;
P3:=90;
a:=V*C;
cb1:EMA(a,P1)/EMA(VOL,P1);
cb2:EMA(a,P2)/EMA(VOL,P2);
cb3:EMA(a,P3)/EMA(VOL,P3);
aa:=V/CAPITAL/100;
∞:DMA(C,IF(aa<0.5,aa,0.5));

IF(ISNULL(REF(CLOSE,1))==1) aa=fxj;
IF(ISNULL(REF(CLOSE,1))==0) aa=MONEY/VOL;
价成本:((MONEY/VOL)/DMA(aa,VOL/ZGB)-1)*100;

成本:MAXCYC,colorff9900;
趋势:ma(c,90),colorred;
MA14:MA(CLOSE,14);
码:cost(50),coloryellow;
diff:=EMA(CLOSE,12)-EMA(CLOSE,26);
dea:=EMA(diff,9);
多头:STICKLINE(diff>dea,C,O,8,0),colorred;
STICKLINE(diff>dea,H,L,0,

input:m(86),n1(6);
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);MA13:(MA(VAR0A,13)*0.99);
(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);VAR1A:=(REF(CLOSE,1)-REF(ATR

DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
成本乖离:(C-CYC(34))/CYC(34)*100,LINETHICK0;
0,colorgreen;
STICKLINE(成本乖离>0,0,成本乖离,8.10,0),coloryellow;
STICKLINE(成本乖离<0,0,成本乖离,8.10,0),colorgreen;
8,colorwh

REFLINE:0,20,50,80,100;
均价:=amount/(vol*100);
成本盈利:=WINNERB(均价 )*100;
p1:ma(成本盈利,3),colorff00ff;
p2:ma(成本盈利,8),colorgreen;
DRAWTEXTABS(0,0,'古长量 价,筹码指标系列之 成本盈利'),colorfff000;
DRAWTEXTABS(0,15,'关注指标线和20,50,80三条坐标的

N:=30;M:=95;
v1:ema(close,5),coloryellow;
v2:ema(ema(close,29)*1.01,10),colorffcc66;
DRAWICON(cross(v1,v2),v2,1);
v3:ema(close,10),colorff00ff;
v4:ema(ema(close,60)*0.99,10),color0099ff;
DRAWICON(cross(v3,v4),v4,1);

input:y(2010,1991,2099),m(7,1,12),d(1,1,31),y1(2011,1992,2099),m1(7,1,12),d1(31,1,31);
mm:=(y-1900)*10000+m*100+d;{最早日期}
mn:=(y1-1900)*10000+m1*100+d1;{最晚日期}
zz:=LAST(DATE>mm)+1;
zc:=LAST(DATE>mn)+1;
VERTLINE(zz=2,1),co

CYC1:COST(1),COLORFF66CC;
CYC5:COST(5),COLORFF00CC;
CYC13:COST(13),COLOR00CCCC;
CYC34:COST(34),COLOR00DEEE;
CYC55:COST(55),COLOR00ACCC,LINETHICK2;
CYC79:COST(79),COLORAACC22;
CYC95:COST(95),COLORGREEN;
MA7:MEMA(EM

input:N(1,1,9999),M(1,1,9999);
A1:=BARSTATUS=2 ;
C1:=BACKSET(a1,n);
D1:=FILTER(C1,n-1);
VERTLINE( d1,1 );
A2:=BARSTATUS=2 ;
C2:=BACKSET(a2,m);
D2:=FILTER(C2,m-1);
VERTLINE( d2,1 );
周期:abs(n-m) + 1,line

input:y(2011,1991,2099),m(6,1,12),d(30,1,31),y1(2011,1992,2099),m1(9,1,12),d1(31,1,31),y2(2011,1992,2099),m2(9,1,12),d2(31,1,31);
{成交额}
成交额:AMOUNT/10000000,COLORb400ff;
STICKLINE(成交额,成交额,0,6,0),COLORGRAY;
mm:=(y-1900)*10000+m*100+d

AA:=(C-COST(50))/COST(50)*100;{定义当前价与市场标准成本线差值}
WIN:WINNER(CLOSE)*100;{定义获利盘超买超卖指标}
WIN10:EMA(WIN,10);{定义短期获利盘指数平滑均线}
WIN20:EMA(WIN,20);{定义长期获利盘指数平滑均线}
CROSS(AA,30) AND CROSS(WIN10,WIN20);{定义超跌反弹条件选股,可以将超跌的标准设定为30%,即凡是小于市场标准成本线30%的

NUM:=13;SHORT:=3;LONG:=5;
ZF:=H-L;
CB:=AMOUNT/VOL/100;
DV1:=IF(ZF>0 AND C>CB, ((H-C)/(H-CB))*((H-C)/(H-CB))*((H-CB)/ZF*VOL) ,0);
UV1:=IF(ZF>0 AND C>CB, VOL-DV1 ,0);
UV2:=IF(ZF>0 AND C<CB, ((C-L)/(CB-L