公式网-网站导航


网站搜索：  

公式在线 发表于2009/9/19 9:37:48

股海观潮(附通达信源码)

股海观潮

 

C/C++ Code复制内容到剪贴板
  1. {★股海观潮★}   
  2. VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);   
  3. OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);   
  4. M3:=MA(OBV,3);   
  5. KLINE(REF(OBV,1),MAX(M3,OBV),MIN(M3,OBV),OBV,0);   
  6.   
  7. MAV1:SMA(TMA(OBV,0.618,0.382),3,1),ColorFFFFFF,linethick1;   
  8. MAV2:MA(MAV1,8),ColorFFFF00,linethick1;   
  9. MAV3:MA(MAV2,8),ColorFF00FF,linethick1;   
  10. MAV4:MA(MAV3,8),Color00FFFF,linethick1;   
  11. kh:=max(MAV4,max(MAV1,max(MAV2,MAV3)))=MAV4;   
  12. kl:=min(MAV4,min(MAV1,min(MAV2,MAV3)))=MAV1;   
  13. partline(OBV>MA(OBV,5) AND REF(OBV<MAV1,1)and kh and kl,OBV) ,CIRCLEDOT,COLORFF99DD,linethick5;   
  14. partline( OBV>MA(OBV,5) AND REF(OBV<MAV1,1)and kh and kl,OBV),CROSSDOT,COLORFFFFFF,linethick3;   
  15. STICKLINE(REF(REF(OBV,1)<OBV AND MIN(M3,OBV)<REF(OBV,1),1) AND REF(OBV,1)>OBV,REF(OBV,1),OBV,7.5,0),COLOR00FFFF;   
  16. STICKLINE(REF(REF(OBV,1)>OBV AND MAX(M3,OBV)>REF(OBV,1),1) AND REF(OBV,1)<OBV ,REF(OBV,1),OBV,3,0),COLOR00FF00;   
  17. STICKLINE(REF(REF(OBV,1)>OBV AND MAX(M3,OBV)>REF(OBV,1),1) AND REF(OBV,1)<OBV AND REF(OBV,1)<MAV2,REF(OBV,1),OBV,7.5,0),COLOR00FF00;   

 

C/C++ Code复制内容到剪贴板
  1. 通达信的----------   
  2.   
  3. {★股海观潮★}   
  4. VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL)/1000000;   
  5. OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),NODRAW;   
  6. M3:=MA(OBV,3);   
  7. STICKLINE(REF(OBV,1)>OBV,MAX(M3,OBV),MIN(M3,OBV),0,0),COLORDDDD05;   
  8. STICKLINE(REF(OBV,1)<OBV,MAX(M3,OBV),MIN(M3,OBV),0,0),COLOR0505BB;   
  9. STICKLINE(REF(OBV,1)>OBV,REF(OBV,1),OBV,3,0),COLORDDDD05;   
  10. STICKLINE(REF(OBV,1)<OBV,REF(OBV,1),OBV,3,1),COLOR0505BB;   
  11. MAV1:SMA(EMA(OBV,3),3,1),COLORFFFFFF,LINETHICK1;   
  12. MAV2:MA(MAV1,8),COLORFFFF00,LINETHICK1;   
  13. MAV3:MA(MAV2,8),COLORFF00FF,LINETHICK1;   
  14. MAV4:MA(MAV3,8),COLOR00FFFF,LINETHICK1;   
  15. KH:=MAX(MAV4,MAX(MAV1,MAX(MAV2,MAV3)))=MAV4;   
  16. KL:=MIN(MAV4,MIN(MAV1,MIN(MAV2,MAV3)))=MAV1;   
  17. IF(OBV>MA(OBV,5) AND REF(OBV<MAV1,1)AND KH AND KL,OBV,DRAWNULL) ,CIRCLEDOT,COLORFF99DD,LINETHICK5;   
  18. IF( OBV>MA(OBV,5) AND REF(OBV<MAV1,1)AND KH AND KL,OBV,DRAWNULL),CROSSDOT,COLORFFFFFF,LINETHICK3;   
  19. STICKLINE(REF(REF(OBV,1)<OBV AND MIN(M3,OBV)<REF(OBV,1),1) AND REF(OBV,1)>OBV,REF(OBV,1),OBV,3.5,0),COLOR00FFFF;   
  20. STICKLINE(REF(REF(OBV,1)>OBV AND MAX(M3,OBV)>REF(OBV,1),1) AND REF(OBV,1)<OBV ,REF(OBV,1),OBV,1,0),COLOR00FF00;   
  21. STICKLINE(REF(REF(OBV,1)>OBV AND MAX(M3,OBV)>REF(OBV,1),1) AND REF(OBV,1)<OBV AND REF(OBV,1)<MAV2,REF(OBV,1),OBV,3.5,0),COLOR00FF00;   

 



网站搜索：  



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