公式网-网站导航


网站搜索:  

公式在线 发表于2009/9/6 8:52:43

日周月空心柱K线同显

 

C/C++ Code复制内容到剪贴板
  1. //n=2,2,100//   
  2. c1:="001.c1#week";    
  3. o1:="001.o1#week";    
  4. h1:="001.h1#week";    
  5. l1:="001.l1#week";    
  6. c2:="001.c1#MONTH";    
  7. o2:="001.o1#MONTH";    
  8. h2:="001.h1#MONTH";    
  9. l2:="001.l1#MONTH";   
  10. t1:=DAY=15 OR DAY=16 OR DAY=17 OR DAY=18 OR DAY=19   
  11. OR DAY=20 OR DAY=21 OR DAY=22 OR DAY=23 OR DAY=24;   
  12. t2:=FILTER(t1,10);   
  13. d:=DAY;   
  14. YQ:=if(D<REF(D,1),DAY,-1);   
  15. YD:=if(D>REFX(D,1),DAY,-1);   
  16. yj:=(c2>o2 or c2=o2 and c2>ref(c2,day));   
  17. STICKLINE(t2 and yj,h2,c2,10,1)color3F7CFF;   
  18. STICKLINE(t2 and yj,l2,o2,10,1)color3F7CFF;   
  19. STICKLINE(t2 and not(yj),h2,o2,10,1)ColorF38593;   
  20. STICKLINE(t2 and not(yj),l2,c2,10,1)ColorF38593;   
  21. partline(D>REF(D,1)and yj ,c2)color3F7CFF;   
  22. partline(D>REF(D,1)and not(yj),C2)ColorF38593;   
  23. partline(D>REF(D,1)and yj ,O2)color3F7CFF;   
  24. partline(D>REF(D,1)and not(yj) ,O2)ColorF38593;   
  25. stickline(YQ>0 and yj,c2,o2,0.5,0)color3F7CFF;   
  26. stickline(YD>0 and yj,c2,o2,0.5,0)color3F7CFF;   
  27. stickline(YQ>0 and not(yj),c2,o2,0.5,0)ColorF38593;   
  28. stickline(YD>0 and not(yj),c2,o2,0.5,0)ColorF38593;   
  29. STICKLINE(t2 and yj,c2+(h2-c2)/n,o2-(o2-l2)/n,9.9,0)COLORBLACK;   
  30. STICKLINE(t2 and not(yj),c2-(c2-l2)/n,o2+(h2-o2)/n,9.9,0)COLORBLACK;   
  31.   
  32.   
  33. Z:=WEEKDAY;   
  34. Zd1:=if(Z>REF(Z,1),WEEKDAY,1);   
  35. ZQa:=if(Zd1<REF(Zd1,1),date,0);   
  36. T:=BARSLAST(ZQa)+1;   
  37. Zql:=LLV(DATE,T)LINETHICK0;   
  38. Zmh:=HHV(DATE,T)LINETHICK0;   
  39. ts1:=DATEDIFF(ZQl,Zmh)+1;   
  40. ts2:=if(ts1<7,ts1,1);   
  41. ts3:=BARSLAST(ts2<ref(ts2,1))+1;   
  42. z1:=min(ts1,ts3);   
  43. ZQa:=if(Z1<REF(Z1,1) ,z1,-1);   
  44. ZDa:=if(Z1>REFX(Z1,1),z1,-1);   
  45. zj:=(c1>o1 or c1=o1 and c1>ref(c1,z1));   
  46. partline(z1>REF(Z1,1)and zj,C1)Color9973FD,linethick2;   
  47. partline(Z1>REF(Z1,1)and zj,O1)Color9973FD,linethick2;   
  48. partline(Z1>REF(Z1,1)and not(zj),C1)Color9DFC48,linethick2;   
  49. partline(Z1>REF(Z1,1)and not(zj),O1)Color9DFC48,linethick2;   
  50. stickline(ZQa>0and zj,c1,o1,0.5,0)Color9973FD,linethick2;   
  51. stickline(ZDa>0and zj,c1,o1,0.5,0)Color9973FD,linethick2;   
  52. stickline(ZQa>0and not(zj),c1,o1,0.5,0)Color9DFC48,linethick2;   
  53. stickline(ZDa>0and not(zj),c1,o1,0.5,0)Color9DFC48,linethick2;   
  54.   
  55. rj:=(c>o or c=o and c>ref(c,1));   
  56. stickline(rj,h,l,0.1,1),colorred;   
  57. stickline(rj,c,o,8,1),colorred;   
  58. stickline(not(rj),h,l,0.1,0),colorcyan;   
  59. stickline(not(rj),c,o,8,0),colorcyan;   
  60. ma5:ma(c,5);   
  61. ma10:ma(c,10);   
  62. ma30:ma(c,30);   
  63. ma60:ma(c,60);    

 



网站搜索:  



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