公式网-网站导航


网站搜索：  

公式在线 发表于2009/11/23 7:45:33

二十四节K线 二十四节气量

二十四节K线 二十四节气量

 

C/C++ Code复制内容到剪贴板
  1. //二十四节K线   
  2. TBS:=POW(10,ABS(LOG(MINDIFF)));   
  3. jqd:=LSOLARTERMday(date);   
  4. fd:=date;   
  5. tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));   
  6. Jw:BARSLAST(tj),LINETHICK;   
  7. Jdg:=Jw=0 or ISLASTBAR;   
  8. Jwx:=0*C;   
  9. for JQ=datacount-1 downto lbound(Jdg) do  
  10. if Jdg[JQ] then   
  11. Jwx[JQ]:=0;   
  12. else  
  13. Jwx[JQ]:=Jwx[JQ+1]+1;   
  14. Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;   
  15. Jwx:=refx(Jwx,1)+Jr,LINETHICK;   
  16. Joo:=ref(o,Jw);   
  17. Jhh:=hhv(h,Jw+1);   
  18. JLL:=LLv(L,Jw+1);   
  19. Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;//N天数   
  20. Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));   
  21. 节开:ROUND(JOO*TBS)/TBS,LINETHICK,COLOReeee00;   
  22. 节高:ROUND(refx(Jhh,Jwx)*TBS)/TBS,LINETHICK,COLOReeaaFF;   
  23. 节低:ROUND(refx(JLL,Jwx)*TBS)/TBS,LINETHICK,COLOR00ee00;   
  24. 节收:ROUND(refx(c,Jwx)*TBS)/TBS,LINETHICK,COLOR00eeee;   
  25. Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));   
  26. Jj:=cross(Jw,Jwx);   
  27. STICKLINE(Jw>0 and JF and Jj ,节低,节高,10,0),Color5055B1;   
  28. STICKLINE(节开<节收 ,节开,节收,JYT1,0),Color5055B1;   
  29. STICKLINE(Jw>0 and not(JF) and Jj ,节低,节高,10,0),Color5A7234;   
  30. STICKLINE(节开>节收 ,节开,节收,JYT1,0),Color5A7234;   
  31. STICKLINE(C>=O,C,O,8,0),COLOR0000AA;   
  32. STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;   
  33. STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;   
  34. STICKLINE(C>=O,C,O,2,0),COLOR0000ee;   
  35. STICKLINE(C>=O,H,L,0,0),COLOR0000ff;   
  36. STICKLINE(C<=O,C,O,8,0),Color7B7b00;   
  37. STICKLINE(C<=O,C,O,6,0),Color909000;   
  38. STICKLINE(C<=O,C,O,4,0),ColorA8a800;   
  39. STICKLINE(C<=O,C,O,2,0),COLORcece00;   
  40. STICKLINE(C<=O,H,L,0,0),COLORffff00;   
  41. drawtext(tj=1 ,l,'小寒'),COLORYELLOW,align0,PXDN5;   
  42. drawtext(tj=2 ,L,'大寒'),COLORYELLOW,align0,PXDN5;   
  43. drawtext(tj=3 ,L,'立春'),COLORGREEN,align0,PXDN5;   
  44. drawtext(tj=4 ,L,'雨水'),COLORGREEN,align0,PXDN5;   
  45. drawtext(tj=5 ,L,'惊蛰'),COLORGREEN,align0,PXDN5;   
  46. drawtext(tj=6 ,L,'春分'),COLORGREEN,align0,PXDN5;   
  47. drawtext(tj=7 ,L,'清明'),COLORYELLOW,align0,PXDN5;   
  48. drawtext(tj=8 ,L,'谷雨'),COLORYELLOW,align0,PXDN5;   
  49. drawtext(tj=9 ,L,'立夏'),COLORRED,align0,PXDN5;   
  50. drawtext(tj=10,L,'小满'),COLORRED,align0,PXDN5;   
  51. drawtext(tj=11,L,'芒种'),COLORRED,align0,PXDN5;   
  52. drawtext(tj=12,L,'夏至'),COLORRED,align0,PXDN5;   
  53. drawtext(tj=13,L,'小暑'),COLORYELLOW,align0,PXDN5;   
  54. drawtext(tj=14,L,'大暑'),COLORYELLOW,align0,PXDN5;   
  55. drawtext(tj=15,L,'立秋'),COLORBBBBBB,align0,PXDN5;   
  56. drawtext(tj=16,L,'处暑'),COLORBBBBBB,align0,PXDN5;   
  57. drawtext(tj=17,L,'白露'),COLORBBBBBB,align0,PXDN5;   
  58. drawtext(tj=18,L,'秋分'),COLORBBBBBB,align0,PXDN5;   
  59. drawtext(tj=19,L,'寒露'),COLORYELLOW,align0,PXDN5;   
  60. drawtext(tj=20,L,'霜降'),COLORYELLOW,align0,PXDN5;   
  61. drawtext(tj=21,L,'立冬'),COLORFF9900,align0,PXDN5;   
  62. drawtext(tj=22,L,'小雪'),COLORFF9900,align0,PXDN5;   
  63. drawtext(tj=23,L,'大雪'),COLORFF9900,align0,PXDN5;   
  64. drawtext(tj=24,L,'冬至'),COLORFF9900,align0,PXDN5;   
  65. drawtext(tj=1 ,H,'丑月'),COLORYELLOW,align0,PXUP19;   
  66. drawtext(tj=3 ,H,'寅月'),COLORGREEN,align0,PXUP19;   
  67. drawtext(tj=5 ,H,'卯月'),COLORGREEN,align0,PXUP19;   
  68. drawtext(tj=7 ,H,'辰月'),COLORYELLOW,align0,PXUP19;   
  69. drawtext(tj=9 ,H,'巳月'),COLORRED,align0,PXUP19;   
  70. drawtext(tj=11,H,'午月'),COLORRED,align0,PXUP19;   
  71. drawtext(tj=13,H,'未月'),COLORYELLOW,align0,PXUP19;   
  72. drawtext(tj=15,H,'申月'),COLORBBBBBB,align0,PXUP19;   
  73. drawtext(tj=17,H,'酉月'),COLORBBBBBB,align0,PXUP19;   
  74. drawtext(tj=19,H,'戌月'),COLORYELLOW,align0,PXUP19;   
  75. drawtext(tj=21,H,'亥月'),COLORFF9900,align0,PXUP19;   
  76. drawtext(tj=23,H,'子月'),COLORFF9900,align0,PXUP19;   
  77.   
  78. //二十四节气量   
  79. TBS:=POW(10,ABS(LOG(MINDIFF)));   
  80. jqd:=LSOLARTERMday(date);   
  81. fd:=date;   
  82. tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));   
  83. Jw:BARSLAST(tj),LINETHICK;   
  84. Jdg:=Jw=0 or ISLASTBAR;   
  85. Jwx:=0*C;   
  86. for JQ=datacount-1 downto lbound(Jdg) do  
  87. if Jdg[JQ] then   
  88. Jwx[JQ]:=0;   
  89. else  
  90. Jwx[JQ]:=Jwx[JQ+1]+1;   
  91. Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;   
  92. Jwx:=refx(Jwx,1)+Jr,LINETHICK;   
  93. Joo:=ref(o,Jw);   
  94. Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;   
  95. Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));   
  96. 节开:=ROUND(JOO*TBS)/TBS;   
  97. 节收:=ROUND(refx(c,Jwx)*TBS)/TBS;   
  98. Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));   
  99. 节量:SUM(V,Jzq1),ColorFFff00,LINETHICK0;   
  100. 节换手率:SUM(vol/CAPITAL*100,Jzq1),linethick0,PRECISion2,colorffff00;   
  101. STICKLINE(节开<节收 ,节量*0.30,0,JYT1,0),Color5055B1;   
  102. STICKLINE(节开>节收 ,节量*0.30,0,JYT1,0),Color5A7234;   
  103. 日量:VOL,VOLSTICK,ColorFFff00;   
  104. 日换手率:vol/CAPITAL*100,ColorFFff00,LINETHICK0;   
  105. TT2:=ISLASTBAR=1;   
  106. DRAWTEXTEX(TT2,0,4,1,'【节期周期:  
  107. '+NUMTOSTR(Jzq1[SYSPARAM(1)],0)+''+'天 】'+''),Color00FFFF;   
  108. DRAWTEXTEX(TT2,0,4,16,'【节期量:  
  109. '+NUMTOSTR(节量[SYSPARAM(1)],0)+''+'】'+''),Color00FFFF;   
  110. MA3:MA(日量,5),COLORFFffff,linethick1;   
  111. MAd:MA(日量,13),COLOR00ffff,linethick1;   
  112. MA90:MA(日量,90),color00ff00;   
  113. DRAWTEXT(ISLASTBAR=1 AND MAd>REF(MAd,1),MAd,' '+' ↑'),COLOR00ffff,align0;   
  114. DRAWTEXT(ISLASTBAR=1 AND MAd<REF(MAd,1),MAd,' '+' ↑'),Color00ffff,align0;   
  115. DRAWTEXT(BARSTATUS=2 AND MA3>REF(MA3,1),MA3,' '+' ↑'),COLORFFffff,align1;   
  116. DRAWTEXT(BARSTATUS=2 AND MA3<REF(MA3,1),MA3,'  
  117. '+' ↓'),ColorFFffff,align1;  

 



网站搜索：  



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