公式网-网站导航


网站搜索：  

公式在线 发表于2009/10/1 9:03:48

副图指标‘历史仓位’

副图指标‘历史仓位’

 

C/C++ Code复制内容到剪贴板
  1. 副图源码   
  2. input:W(9,1,12),N(2008,1990,2050), M(2009,1990,2050);   
  3. P:=SYSPARAM(1);GG:="千钧引用.总0#MONTH";SJ:=YEAR>n and YEAR<=m;   
  4. yf:=MONTH;KK:=YEAR=n and yf=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;   
  5. Zjl:=SUM(v,5);Yjl:=GG;Njl:=SUM(GG,12);周成本:=(zjj*zjl*每手股数)/zjl/100;月成本:=(yjj*yjl*每手股数)/yjl/100;年成本:=(njj*njl*每手股数)/njl/100;   
  6. 一月:=REF(GG,BARSLAST(SJ and yf=1));二月:=REF(GG,BARSLAST(SJ and yf>1 and yf=2));   
  7. 三月:=REF(GG,BARSLAST(SJ and yf>2 and yf=3));四月:=REF(GG,BARSLAST(SJ and yf>3 and yf=4));   
  8. 五月:=REF(GG,BARSLAST(SJ and yf>4 and yf=5));六月:=REF(GG,BARSLAST(SJ and yf>5 and yf=6));   
  9. 七月:=REF(GG,BARSLAST(SJ and yf>6 and yf=7));八月:=REF(GG,BARSLAST(SJ and yf>7 and yf=8));   
  10. 九月:=REF(GG,BARSLAST(SJ and yf>8 and yf=9));十月:=REF(GG,BARSLAST(SJ and yf>9 and yf=10));   
  11. 十一:=REF(GG,BARSLAST(SJ and yf>10 and yf=11));十二:=REF(GG,BARSLAST(SJ and yf>11 and yf=12));   
  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))))))))))));   
  13. 上周:="千钧引用.昨#WEEK";   
  14. 本月:REF(gg,BARSLAST(MONTH=w)),PRECISION0,LINETHICK,ColorFFFFFF;   
  15. 上月:REF(GG,BARSLAST(MONTH>(w-2) and MONTH<=w-1)),Color00FFFF,PRECISION0,LINETHICK;   
  16. 年累计:=SUM(GG,z);上年:=ref("千钧引用.总0#YEAR",BARSLAST(YEAR=n));   
  17. DRAWGBK(年累计>上年,COLORRGB(200,50,0), COLORRGB(250,250,0),0);   
  18. DRAWGBK(年累计<上年,COLORRGB(0,100,10), COLORRGB(250,250,0),0);   
  19. 月趋势:=COUNT(本月>上月,3);年趋势:=年累计>上年;   
  20. STICKLINE(BARPOS=SYSPARAM(2)+4 and 上年[P]>0,0,上年[P]/2,60,0),COLOR0000FF;   
  21. STICKLINE(BARPOS=SYSPARAM(2)+4 and 上年[P]<0,0,-(上年[P])/2,60,0),COLORFF5500;   
  22. STICKLINE(BARPOS=SYSPARAM(2)+12 and 年累计[P]>0,0,年累计[P]/2,60,0),COLOR0000FF;   
  23. STICKLINE(BARPOS=SYSPARAM(2)+12 and 年累计[P]<0,0,-(年累计[P])/2,60,0),COLORFF5500;   
  24. STICKLINE(BARPOS=SYSPARAM(2)+38 and 一月[P]>0,0,一月[P],50,0),COLOR0000FF;   
  25. STICKLINE(BARPOS=SYSPARAM(2)+38 and 一月[P]<0,0,-(一月[P]),50,0),COLORFF5500;   
  26. STICKLINE(BARPOS=SYSPARAM(2)+46 and 二月[P]>0,0,二月[P],50,0),COLOR0000FF;   
  27. STICKLINE(BARPOS=SYSPARAM(2)+46 and 二月[P]<0,0,-(二月[P]),50,0),COLORFF5500;   
  28. STICKLINE(BARPOS=SYSPARAM(2)+54 and 三月[P]>0,0,三月[P],50,0),COLOR0000FF;   
  29. STICKLINE(BARPOS=SYSPARAM(2)+54 and 三月[P]<0,0,-(三月[P]),50,0),COLORFF5500;   
  30. STICKLINE(BARPOS=SYSPARAM(2)+62 and 四月[P]>0,0,四月[P],50,0),COLOR0000FF;   
  31. STICKLINE(BARPOS=SYSPARAM(2)+62 and 四月[P]<0,0,-(四月[P]),50,0),COLORFF5500;   
  32. STICKLINE(BARPOS=SYSPARAM(2)+70 and 五月[P]>0,0,五月[P],50,0),COLOR0000FF;   
  33. STICKLINE(BARPOS=SYSPARAM(2)+70 and 五月[P]<0,0,-(五月[P]),50,0),COLORFF5500;   
  34. STICKLINE(BARPOS=SYSPARAM(2)+78 and 六月[P]>0,0,六月[P],50,0),COLOR0000FF;   
  35. STICKLINE(BARPOS=SYSPARAM(2)+78 and 六月[P]<0,0,-(六月[P]),50,0),COLORFF5500;   
  36. STICKLINE(BARPOS=SYSPARAM(2)+86 and 七月[P]>0,0,七月[P],50,0),COLOR0000FF;   
  37. STICKLINE(BARPOS=SYSPARAM(2)+86 and 七月[P]<0,0,-(七月[P]),50,0),COLORFF5500;   
  38. STICKLINE(BARPOS=SYSPARAM(2)+94 and 八月[P]>0,0,八月[P],50,0),COLOR0000FF;   
  39. STICKLINE(BARPOS=SYSPARAM(2)+94 and 八月[P]<0,0,-(八月[P]),50,0),COLORFF5500;   
  40. STICKLINE(BARPOS=SYSPARAM(2)+102 and 九月[P]>0,0,九月[P],50,0),COLOR0000FF;   
  41. STICKLINE(BARPOS=SYSPARAM(2)+102 and 九月[P]<0,0,-(九月[P]),50,0),COLORFF5500;   
  42. STICKLINE(BARPOS=SYSPARAM(2)+110 and 十月[P]>0,0,十月[P],50,0),COLOR0000FF;   
  43. STICKLINE(BARPOS=SYSPARAM(2)+110 and 十月[P]<0,0,-(十月[P]),50,0),COLORFF5500;   
  44. STICKLINE(BARPOS=SYSPARAM(2)+118 and 十一>0,0,十一[P],50,0),COLOR0000FF;   
  45. STICKLINE(BARPOS=SYSPARAM(2)+118 and 十一<0,0,-(十一[P]),50,0),COLORFF5500;   
  46. STICKLINE(BARPOS=SYSPARAM(2)+126 and 十二>0,0,十二[P],50,0),COLOR0000FF;   
  47. STICKLINE(BARPOS=SYSPARAM(2)+126 and 十二<0,0,-(十二[P]),50,0),COLORFF5500;   
  48. {显示}   
  49. DRAWTEXT(BARPOS=SYSPARAM(2),0,'上年'),PXUP18,ALIGN5,COLORFFFFFF;   
  50. DRAWTEXT(BARPOS=SYSPARAM(2)+8,0,' 本年'),PXUP18,ALIGN5,COLORFFFFFF;   
  51. DRAWTEXT(BARPOS=SYSPARAM(2)+34,0,' 1 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  52. DRAWTEXT(BARPOS=SYSPARAM(2)+42,0,' 2 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  53. DRAWTEXT(BARPOS=SYSPARAM(2)+50,0,' 3 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  54. DRAWTEXT(BARPOS=SYSPARAM(2)+58,0,' 4 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  55. DRAWTEXT(BARPOS=SYSPARAM(2)+66,0,' 5 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  56. DRAWTEXT(BARPOS=SYSPARAM(2)+74,0,' 6 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  57. DRAWTEXT(BARPOS=SYSPARAM(2)+82,0,' 7 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  58. DRAWTEXT(BARPOS=SYSPARAM(2)+90,0,' 8 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  59. DRAWTEXT(BARPOS=SYSPARAM(2)+98,0,' 9 月'),ALIGN5,PXUP18,COLORFFFFFF;   
  60. DRAWTEXT(BARPOS=SYSPARAM(2)+106,0,' 10月'),ALIGN5,PXUP18,COLORFFFFFF;   
  61. DRAWTEXT(BARPOS=SYSPARAM(2)+114,0,' 11月'),ALIGN5,PXUP18,COLORFFFFFF;   
  62. DRAWTEXT(BARPOS=SYSPARAM(2)+122,0,' 12月'),ALIGN5,PXUP18,COLORFFFFFF;   
  63. DRAWTEXTEX(c,1,5,0,STKLABEL+' '+STKNAME+''),ColorFFFF00;   
  64. DRAWTEXTEX(C,1,800,300,'周成本:'+NUMTOSTR(周成本,2)+IF(CAPITAL=0,'点',' 元')),ColorAE088A;   
  65. DRAWTEXTEX(C,1,800,450,'月成本:'+NUMTOSTR(月成本,2)+IF(CAPITAL=0,'点',' 元')),ColorAE088A;   
  66. DRAWTEXTEX(C,1,800,600,'年成本:'+NUMTOSTR(年成本,2)+IF(CAPITAL=0,'点',' 元')),ColorAE088A;   
  67. DRAWTEXTEX(C and 月趋势>=2,1,0,450,'月仓位趋势:'+'  ↑'),Color00EEFF;   
  68. DRAWTEXTEX(C and 月趋势>=1 and 月趋势<2,1,0,450,'月仓位趋势:==='),ColorFF00FF;   
  69. DRAWTEXTEX(C and 月趋势<1,1,0,450,'月仓位趋势:'+'  ↓'),Color00FF00;   
  70. DRAWTEXTEX(C and 年趋势=1,1,0,600,'年仓位趋势:'+'  ↑'),Color00EEFF;   
  71. DRAWTEXTEX(C and 年趋势<1,1,0,600,'年仓位趋势:'+'  ↓'),Color00FF00;   

 



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网