公式指标平台 股票指标公式源码分享 登录 注册
公式指标平台
未来函数检测
首 页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 操盘手公式 东财通公式 飞狐公式 其他公式 公式解答 股票软件 股票池
当前位置：→ 公式指标平台 > 大智慧公式 > 正文 → 正文

K线+KDJ主图 超牛全屏界面,附源码

发布时间：2010/3/16 8:05:38  浏览次数：

 

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. {K线+MACD副图}   
  2. DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),colorred;   
  3. DEA : EMA(DIFF,9),colorgreen;   
  4. MACD :4*(DIFF-DEA), COLORSTICK;   
  5. D1:=EMA(C,3)-EMA(C,8);   
  6. D3:=EMA(H,3)-EMA(H,8);   
  7. D4:=EMA(L,3)-EMA(L,8);   
  8. DRAWICON(cross(d1,diff) and diff<-0.05 ,d4,9);   
  9. DRAWICON(cross(diff,d1) and diff>0.1 ,d3,10);   
  10. Var1:=REF(MA(C,20),10);   
  11. 开:=O-Var1;   
  12. 高:=H-Var1;   
  13. 低:=L-Var1;   
  14. 收:=C-Var1;   
  15. MID:=MA(C,20);   
  16. UPPER:=MID+2*STD(C,20);   
  17. LOWER:=MID-2*STD(C,20);   
  18. V1:=(C-LOWER)/(UPPER-LOWER)*100;   
  19. V2:=V1-EMA(V1,5);   
  20. K1:=SUM(LLV(V2,4),4)/4;   
  21. V3:=EMA(V2,64)*10;   
  22. V4:=EMA(0.4*V2*(-1),3);   
  23. V5:=-1*EMA(V2,39)*10;   
  24. A:=V3>10;   
  25. B:=V2>V4;   
  26. D:=V5>10;   
  27. E:=V3<=10 OR V2<=V4 OR V5<=10;   
  28. STICKLINE(C,0,0,6,0),coloryellow;   
  29. STICKLINE(收>=开 AND E,高,低,0,0), COLORred;   
  30. STICKLINE(收>=开 AND E,收,开,8,0) ,COLORred;   
  31. STICKLINE(收< 开 AND E,高,低,0,0) ,COLORgreen;   
  32. STICKLINE(收< 开 AND E,收,开,8,0) ,COLORgreen;   
  33. STICKLINE(开> 收 AND A,低,高,0,0),COLORYELLOW;   
  34. STICKLINE(开> 收 AND A,收,开,8,0),COLORYELLOW;   
  35. STICKLINE(开<=收 AND A,低,高,0,0),COLORYELLOW;   
  36. STICKLINE(开<=收 AND A,收,开,8,1),COLORYELLOW;   
  37. STICKLINE(开> 收 AND B,低,高,0,0),COLORRED;   
  38. STICKLINE(开> 收 AND B,收,开,8,0),COLORRED;   
  39. STICKLINE(开<=收 AND B,低,高,0,0),COLORRED;   
  40. STICKLINE(开<=收 AND B,收,开,8,1),COLORRED;   
  41. STICKLINE(开> 收 AND D,低,高,0,0),COLORGREEN;   
  42. STICKLINE(开> 收 AND D,收,开,8,0),COLORGREEN;   
  43. STICKLINE(开<=收 AND D,低,高,0,0),COLORGREEN;   
  44. STICKLINE(开<=收 AND D,收,开,8,1),COLORGREEN;   
  45. KS:=(C-SMA(C,13,1))/SMA(C,13,1)*(-100);   
  46. RKS:=REF(KS,1);   
  47. MLS:=RKS/KS>1.23 AND RKS>13 AND C/REF(C,1)>1.03;   
  48. 超跌:STICKLINE(KS>13,高,低,0,1),colorwhite,linethick2;    
  49. 反弹:STICKLINE(MLS=1,高,低,0,1),colormagenta,linethick2;    
  50. STICKLINE(KS>13,开,收,8,1),colorwhite,linethick2;    
  51. STICKLINE(MLS=1,开,收,8,1),colormagenta,linethick2;   
  52. 开盘价:c,linethick0,precis2,coloryellow;   
  53. 最高价:h,linethick0,precis2,colorred;   
  54. 最低价:L,linethick0,precis2,colorcyan;   
  55. 即时价:c,linethick0,precis2,colorgreen;   
  56. DRAWTEXTABS(10,5,'所属板块：'+BKNAME),COLOR00FF00,linethick1;   
  57. DRAWGBK(DATE>900101,STRIP(RGB(18,160,0),RGB(25,8,0),0));   
C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. {K线+KDJ主图}   
  2. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);    
  3. 明日阻力:=l+(gj-l)+(c-l);    
  4. 明日支撑:=l+(c-gj);    
  5. 明日阻力:=l+(gj-l)+(c-l);    
  6. 明日支撑:=l+(c-gj);    
  7. 今日阻力:=REF(明日阻力 , 1);    
  8. 今日支撑:=REF(明日支撑 , 1);    
  9. STICKLINE(DISPSTATUS=2  and c>=今日阻力,今日阻力,今日阻力,30,0),Color00FF00;    
  10. STICKLINE(DISPSTATUS=2  and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;    
  11. STICKLINE(DISPSTATUS=2  and c>=今日支撑,今日支撑,今日支撑,30,0),Color00FF00;    
  12. STICKLINE(DISPSTATUS=2  and c<今日支撑,今日支撑,今日支撑,30,0),Color00FF00;    
  13. DRAWTEXTREL(600,10,'------------------------------------'),ColorFFFFFF;    
  14. IF BARSTATUS=2 and c>=今日支撑 THEN      
  15. DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FF00;    
  16. IF BARSTATUS=2 and c<今日支撑 THEN      
  17. DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),ColorFF0000;    
  18. IF BARSTATUS=2 and c>=今日阻力 THEN      
  19. DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;    
  20. IF BARSTATUS=2 and c<今日阻力 THEN      
  21. DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;    
  22. IF BARSTATUS=2 and c>=明日支撑 THEN      
  23. DRAWTEXTREL(750,40,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )),Color00FF00;    
  24. IF BARSTATUS=2 and c<明日阻力 THEN      
  25. DRAWTEXTREL(750,80,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FF00;    
  26. DRAWTEXTREL(600,110,'------------------------------------'),ColorFFFFFF;    
  27. IF BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  28. DRAWTEXTREL(600,150,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;    
  29. IF BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  30. DRAWTEXTREL(600,150,'今日成交量小于昨日，但有放大迹象'),Color8285FF;    
  31. IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  32. DRAWTEXTREL(600,150,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF;    
  33. IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  34. DRAWTEXTREL(600,150,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;   
  35.   
  36. DRAWGBK(c>=0),Color2B5516;平衡:EMA(C,20),CIRCLEDOT,COLORwhite;   
  37. STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff;   
  38. STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;   
  39.   
  40. DRAWGBKLAST(v>1,STRIP(RGB(0,0,205),RGB(60,179,113),0));   
  41. DRAWTEXTREL(350,35,''+STKLABEL+' '+STKNAME),LINETHICK4,COLORyellow;   
  42. DRAWTEXTABS(2,10,'现价:'+CLOSE),LINETHICK3,COLOR0000ff;   
  43. DRAWTEXTABS(95,10,'涨幅:'+NUMTOSTRN(DYNAINFO(14)*100,2){(c-ref(c,1))/ref(c,1)*100}+'%'),LINETHICK3,COLOR0000ff;   
  44.   
  45. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)>DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR0000FF;   
  46. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)=DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLORFFFFFF;   
  47. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)<DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR00FF00;   
  48. DRAWTEXTABS(95,45,''+DYNAINFO(50)),COLORffffff;   
  49. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)>DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR0000FF;   
  50. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)=DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLORFFFFFF;   
  51. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)<DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR00FF00;   
  52. DRAWTEXTABS(95,65,''+DYNAINFO(43)),COLORffffff;   
  53. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)>DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR0000FF;   
  54. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)=DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLORFFFFFF;   
  55. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)<DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR00FF00;   
  56. DRAWTEXTABS(95,85,''+DYNAINFO(33)),COLORffffff;   
  57. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)>DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR0000FF;   
  58. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)=DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLORFFFFFF;   
  59. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)<DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR00FF00;   
  60. DRAWTEXTABS(95,105,''+DYNAINFO(32)),COLORffffff;   
  61. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)>DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR0000FF;   
  62. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)=DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLORFFFFFF;   
  63. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)<DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR00FF00;   
  64. DRAWTEXTABS(95,125,''+DYNAINFO(31)),COLORffffff;   
  65. DRAWTEXTABS(2,130,'---------------'),LINETHICK3,COLOR00ff00;   
  66. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)>DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR0000FF;   
  67. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)=DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLORFFFFFF;   
  68. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)<DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR00FF00;   
  69. DRAWTEXTABS(95,145,''+DYNAINFO(25)),COLORffffff;   
  70. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)>DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR0000FF;   
  71. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)=DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLORFFFFFF;   
  72. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)<DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR00FF00;   
  73. DRAWTEXTABS(95,165,''+DYNAINFO(26)),COLORffffff;   
  74. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)>DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR0000FF;   
  75. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)=DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLORFFFFFF;   
  76. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)<DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR00FF00;   
  77. DRAWTEXTABS(95,185,''+DYNAINFO(27)),COLORffffff;   
  78. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)>DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR0000FF;   
  79. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)=DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLORFFFFFF;   
  80. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)<DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR00FF00;   
  81. DRAWTEXTABS(95,205,''+DYNAINFO(41)),COLORffffff;   
  82. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)>DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR0000FF;   
  83. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)=DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLORFFFFFF;   
  84. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)<DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR00FF00;   
  85. DRAWTEXTABS(95,225,''+DYNAINFO(48)),COLORffffff;   
  86.   
  87. 上轨:(SMA(HIGH,21,2) * 1.092),POINTDOT,colorFFFFFF;   
  88. 中轨道:(SMA(HIGH,21,2) * 1.017),POINTDOT,colorFFFFFF;   
  89. 下轨道:(SMA(LOW,21,2) * 0.969),POINTDOT,color00FFFF;   
  90.   
  91. WCW:=BARSLAST(WEEKDAY>REF(WEEKDAY,1));{周}   
  92. CAW:=IF(WCW>0,LLV(C,WCW),LLV(C,WEEKDAY));{周}   
  93. 周涨幅:=(C/CAW-1)*100;   
  94. WCM:=BARSLAST(MONTH>REF(MONTH,1));{月}   
  95. CAM:=IF(WCM>0,LLV(C,WCM),LLV(C,MONTH));{月}   
  96. 月涨幅:=(C/CAM-1)*100;   
  97. WCY:=BARSLAST(YEAR>REF(YEAR,1));{年}   
  98. CAY:=IF(WCY>0,LLV(C,WCY),LLV(C,YEAR));{年}   
  99. 年涨幅:=(C/CAY-1)*100;   
  100. DRAWFLAGTEXT(周涨幅,LOW*0.95,'周涨幅:'+NUMTOSTRN(周涨幅,2)+'%');   
  101. DRAWFLAGTEXT(月涨幅,LOW*0.95,'月涨幅:'+NUMTOSTRN(月涨幅,2)+'%');   
  102. DRAWFLAGTEXT(年涨幅,LOW*0.95,'年涨幅:'+NUMTOSTRN(年涨幅,2)+'%');   
  103.   
  104. JJ:=(OPEN+LOW+HIGH+CLOSE*2)/5;   
  105. JJ2:=MA(JJ,2);   
  106. V2:=MA(VOL,2);   
  107. D:sMA((JJ*VOL+JJ2*V2)/(VOL+V2),3,1),LINETHICK2,colormagenta;   
  108. K:6*D-5*sMA(JJ2,3,1),COLORyellow;   
  109. J:5*K-4*D,colorgreen;   
  110. 买入:=ref(J,1)<ref(D ,1) and J>=D;   
  111. drawicon(买入,J*1,1);   
  112. partline(J,J>=ref(J,1),rgb(255,0,0),J<ref(J,1),rgb(0,250,0)),linethick3;   
  113.   
  114. a:="LTFunc5@FORLT2";  {计算BS点}   
  115. s1:="LTFunc5@LT_S1";  {s1=0,向下; s1=1,向上}    
  116. hs:="LTFunc5@LT_HS";  {短线买入机会}   
  117. ls:="LTFunc5@LT_LS";  {短线卖出机会}   
  118. p1:="LTFunc5@LT_P1";  {p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}   
  119. upp:="LTFunc5@LT_UPP";{明日B点预测}    
  120. udd:="LTFunc5@LT_UDD";{明日S点预测}   
  121. drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;   
  122. drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;   
  123. drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;   
  124. drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;   

 

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. {星期显示}   
  2. yy1:=WEEKDAY;   
  3. IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color191970;end;   
  4. IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,ColorEEE8AA;end;   
  5. IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,ColorBA55D3;end;   
  6. IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color0000CD;end;   
  7. IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorADFF2F;end;   
  8. IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color00008B;end;   
  9. IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,ColorFF0000;end;  

K线+KDJ主图 超牛全屏界面,附源码

资源下载链接   资源大小：2KB
精品资源推荐
公式指标平台栏目导航

关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - RSS订阅 - TOP
湘ICP备09016573号 增值电信业务经营ICP许可证：湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZB.COM ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识