 | |  |  |
副图源码
input:W(9,1,12),N(2008,1990,2050),M(2009,1990,2050);
P:=SYSPARAM(1);GG:="千钧引用.总0#MONTH";SJ:=YEAR>nandYEAR<=m;
yf:=MONTH;KK:=YEAR=nandyf=12;Zjj:=(hhv(h,5)+llv(l,5))/2;Yjj:=(hhv(h,23)+llv(l,23))/2;Njj:=(hhv(h,244)+llv(l,244))/2;
Zjl:=SUM(v,5);Yjl:=GG;Njl:=SUM(GG,12);周成本:=(zjj*zjl*每手股数)/zjl/100;月成本:=(yjj*yjl*每手股数)/yjl/100;年成本:=(njj*njl*每手股数)/njl/100;
一月:=REF(GG,BARSLAST(SJandyf=1));二月:=REF(GG,BARSLAST(SJandyf>1andyf=2));
三月:=REF(GG,BARSLAST(SJandyf>2andyf=3));四月:=REF(GG,BARSLAST(SJandyf>3andyf=4));
五月:=REF(GG,BARSLAST(SJandyf>4andyf=5));六月:=REF(GG,BARSLAST(SJandyf>5andyf=6));
七月:=REF(GG,BARSLAST(SJandyf>6andyf=7));八月:=REF(GG,BARSLAST(SJandyf>7andyf=8));
九月:=REF(GG,BARSLAST(SJandyf>8andyf=9));十月:=REF(GG,BARSLAST(SJandyf>9andyf=10));
十一:=REF(GG,BARSLAST(SJandyf>10andyf=11));十二:=REF(GG,BARSLAST(SJandyf>11andyf=12));
Z:=IF(yf=1,1,IF(yf=2,2,IF(yf=3,3,IF(yf=4,4,IF(yf=5,5,IF(yf=6,6,IF(yf=7,7,IF(yf=8,8,IF(yf=9,9,IF(yf=10,10,IF(yf=11,11,IF(yf=12,12,0))))))))))));
上周:="千钧引用.昨#WEEK";
本月:REF(gg,BARSLAST(MONTH=w)),PRECISION0,LINETHICK,ColorFFFFFF;
上月:REF(GG,BARSLAST(MONTH>(w-2)andMONTH<=w-1)),Color00FFFF,PRECISION0,LINETHICK;
年累计:=SUM(GG,z);上年:=ref("千钧引用.总0#YEAR",BARSLAST(YEAR=n));
DRAWGBK(年累计>上年,COLORRGB(200,50,0),COLORRGB(250,250,0),0);
DRAWGBK(年累计<上年,COLORRGB(0,100,10),COLORRGB(250,250,0),0);
月趋势:=COUNT(本月>上月,3);年趋势:=年累计>上年;
STICKLINE(BARPOS=SYSPARAM(2)+4and上年[P]>0,0,上年[P]/2,60,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+4and上年[P]<0,0,-(上年[P])/2,60,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+12and年累计[P]>0,0,年累计[P]/2,60,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+12and年累计[P]<0,0,-(年累计[P])/2,60,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+38and一月[P]>0,0,一月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+38and一月[P]<0,0,-(一月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+46and二月[P]>0,0,二月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+46and二月[P]<0,0,-(二月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+54and三月[P]>0,0,三月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+54and三月[P]<0,0,-(三月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+62and四月[P]>0,0,四月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+62and四月[P]<0,0,-(四月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+70and五月[P]>0,0,五月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+70and五月[P]<0,0,-(五月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+78and六月[P]>0,0,六月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+78and六月[P]<0,0,-(六月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+86and七月[P]>0,0,七月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+86and七月[P]<0,0,-(七月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+94and八月[P]>0,0,八月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+94and八月[P]<0,0,-(八月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+102and九月[P]>0,0,九月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+102and九月[P]<0,0,-(九月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+110and十月[P]>0,0,十月[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+110and十月[P]<0,0,-(十月[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+118and十一>0,0,十一[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+118and十一<0,0,-(十一[P]),50,0),COLORFF5500;
STICKLINE(BARPOS=SYSPARAM(2)+126and十二>0,0,十二[P],50,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(2)+126and十二<0,0,-(十二[P]),50,0),COLORFF5500;
{显示}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'上年'),PXUP18,ALIGN5,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+8,0,'本年'),PXUP18,ALIGN5,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+34,0,'1月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+42,0,'2月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+50,0,'3月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+58,0,'4月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+66,0,'5月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+74,0,'6月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+82,0,'7月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+90,0,'8月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+98,0,'9月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+106,0,'10月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+114,0,'11月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(2)+122,0,'12月'),ALIGN5,PXUP18,COLORFFFFFF;
DRAWTEXTEX(c,1,5,0,STKLABEL+''+STKNAME+''),ColorFFFF00;
DRAWTEXTEX(C,1,800,300,'周成本:'+NUMTOSTR(周成本,2)+IF(CAPITAL=0,'点','元')),ColorAE088A;
DRAWTEXTEX(C,1,800,450,'月成本:'+NUMTOSTR(月成本,2)+IF(CAPITAL=0,'点','元')),ColorAE088A;
DRAWTEXTEX(C,1,800,600,'年成本:'+NUMTOSTR(年成本,2)+IF(CAPITAL=0,'点','元')),ColorAE088A;
DRAWTEXTEX(Cand月趋势>=2,1,0,450,'月仓位趋势:'+'↑'),Color00EEFF;
DRAWTEXTEX(Cand月趋势>=1and月趋势<2,1,0,450,'月仓位趋势:==='),ColorFF00FF;
DRAWTEXTEX(Cand月趋势<1,1,0,450,'月仓位趋势:'+'↓'),Color00FF00;
DRAWTEXTEX(Cand年趋势=1,1,0,600,'年仓位趋势:'+'↑'),Color00EEFF;
DRAWTEXTEX(Cand年趋势<1,1,0,600,'年仓位趋势:'+'↓'),Color00FF00;
| |  | |  |
|
