大智慧成本计算公式（源码）

昨天梁同学出了一个TDX版的“成本计算”要改DZH,现出了一个初稿，如同学喜欢，完善后发出。

感谢梁同学，在你的源码基础上有修改，TDX作图方便，这点比DZH胜出很多。这个代码的算法偶还是第一次看到，感觉不错。
其中：N1(月)N2（日）N3（年）N4（股数）买入价取当日中间价（可自己修改）。

上源码了
 

input:N1(4,1,12),N2(15,1,31),N3(2013,1970.3000),N4(10000,100,100000);
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
MA30:MA(C,30);

{成本计算(主图)}
上18H:=WMA(SMA(HHV(HIGH,18),9/2,1),3){,COLOR00FFFF,LINETHICK1};
下18L:=WMA(SMA(LLV(LOW,18),9/2,1),3){,COLORFFFFFF,LINETHICK1}; 
{第一只个股，填入代码、买入时间、价位及股数}
代码1:=STRTONUM(STKLABEL);
买入时间1:=YEAR{年}=N3 AND MONTH{月}=n1 AND DAY{日}=n2;
买入价位1:=if(DAY=n2,(l+h)/2,下18L);
买入股数1:=N4;
天数1:=BARSLAST(买入时间1);
{--------------------------------------------------------------------------------}
 {1}
买入个股时间1:=IF(代码1,买入时间1,0);
买入价格1:=IF(买入个股时间1,买入价位1,0);
买入价1:=REF(买入价位1,BARSLAST(买入个股时间1));
现价1:=IF(BARSLAST(买入个股时间1)+1>=1,(C),0);
收盘价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,c=ma(c,BARSLAST(买入个股时间1)+1),0);
收盘价横线1:=IF(BARSLAST(收盘价条件1)>=0 AND BARSLAST(买入个股时间1)+1>=1,(REF(c,BARSLAST(收盘价条件1))),0);
最高价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,H=HHV(H,BARSLAST(买入个股时间1)+1),0);
最高价横线1:=IF(BARSLAST(最高价条件1)>=0 AND BARSLAST(买入个股时间1)+1>=1,(REF(H,BARSLAST(最高价条件1))),0);
最低价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,L=LLV(L,BARSLAST(买入个股时间1)+1),0);
最低价横线1:=IF(BARSLAST(最低价条件1)+1>=1 AND BARSLAST(买入个股时间1)+1>=1,(REF(L,BARSLAST(最低价条件1))),0);
买入价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,买入价1,0);
买入价横线1:=IF(BARSLAST(最低价条件1)+1>=1 AND BARSLAST(买入个股时间1)+1>=1,(REF(买入价1,BARSLAST(买入价条件1))),0);
现价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,现价1,0);
现价横线1:=IF(BARSLAST(最低价条件1)+1>=1 AND BARSLAST(买入个股时间1)+1>=1,(REF(现价1,BARSLAST(现价条件1))),0);
 {2}
{---------------------------------------------------------------------------------};
持股数量【股】:IF(代码1,买入股数1,0),colorffffff,linethick0,PRECIS0;
持股天数:IF(代码1,天数1,0),color00ffff,linethick0,PRECIS0;
最高价:=IF(代码1,最高价横线1,0);
最低价:=IF(代码1,最低价横线1,0);
买入价:=IF(代码1,买入价1,0);
现价:=IF(代码1,现价1,0);
买入时间:=IF(代码1,买入时间1,0);
股数:=IF(代码1,买入股数1,0);
STICKLINE(c>o,o,c,7,1),color0000ff;
STICKLINE(c<o,o,c,7,0),colorffff00;
STICKLINE(CROSS(买入时间,0.5),IF(现价>买入价,现价,买入价),最高价,0,0),COLOR00009B;
STICKLINE(BARSTATUS=2,IF(现价>买入价,现价,买入价),最高价,0,0),COLOR00009B;
STICKLINE(CROSS(买入时间,0.5),IF(现价<买入价,现价,买入价),最低价,0,0),COLOR009B00;
STICKLINE(BARSTATUS=2,IF(现价<买入价,现价,买入价),最低价,0,0),COLOR009B00;
FILLRGN(现价横线1,买入价横线1,现价横线1>=买入价横线1,RGB(155,0,0),现价横线1<买入价横线1,RGB(0,155,0)),LAYER7;

现盈利:=if(c>=买入价,(现价-买入价)/买入价*100,0);
曾浮盈:=(最高价-买入价)/买入价*100;
曾浮亏:=(最低价-买入价)/买入价*100;
现亏损:=if(c<买入价,(c-买入价)/买入价*100,0);
金额:=买入价*现盈利*股数/100;
DRAWTEXT(BARSTATUS=2 and 现价>买入价,最高价*0.985,'曾浮盈'+NUMTOSTRN(曾浮盈,2)+'%'),vALIGN2,ALIGN2,COLOR00ffff;
DRAWTEXT(BARSTATUS=2 and 最低价<买入价,最低价*1.015,'曾浮亏'+NUMTOSTRN(曾浮亏,2)+'%'),ALIGN2,COLOR009b00;
DRAWTEXT(买入时间,买入价*1.005,'买入价'+NUMTOSTRN(买入价,2)),vALIGN2,ALIGN2,COLORffffff;
DRAWTEXT(BARSTATUS=2 and c>买入价,c,'现盈利'+NUMTOSTRN(现盈利,2)+'%'),vALIGN2,ALIGN2,COLOR0000ff;
DRAWTEXT(BARSTATUS=2 and c<买入价,l*0.985,'亏损'+NUMTOSTRN(现亏损,2)+'%'),vALIGN2,ALIGN2,COLOR00ff00;
DRAWTEXTABS(2,2,'代码: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),linethick1,ColorFFFF80;
DRAWTEXTABS(2,20,'【买入价】'+NUMTOSTRN(买入价,2)+'元'),LINETHICK1,COLORffffff;
DRAWTEXTABS(2,35,'【现盈利】'+NUMTOSTRN(现盈利,2)+'%'),LINETHICK1,COLOR0000ff;
DRAWTEXTABS(2,50,'【曾浮盈】'+NUMTOSTRN(曾浮盈,2)+'%'),LINETHICK1,COLOR00ffff;
DRAWTEXTABS(2,65,'【现亏损】'+NUMTOSTRN(现亏损,2)+'%'),LINETHICK1,COLOR00ff00;
DRAWTEXTABS(2,80,'【曾浮亏】'+NUMTOSTRN(曾浮亏,2)+'%'),LINETHICK1,COLOR009b00;

;;;