公式网-网站导航


网站搜索：  

公式在线 发表于2009/10/22 7:53:29

碧海扬帆 - 仿天狼剑2（附图＋通达信源码）

碧海扬帆 - 仿天狼剑2（） 

C/C++ Code复制内容到剪贴板
  1. 飞狐版   
  2. DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);   
  3.   
  4. D_C:=INDEXC;    D_H:=MA(INDEXH,3);   D_L:=MA(INDEXL,3);    
  5. D_F:=if(INDEXC>ref(D_H,1),1,if(INDEXC<ref(D_L,1),-1,0));   
  6.   for i=5+1 to datacount do begin   
  7.   if D_C[i]>D_H[i-1] then   
  8.   D_F[i]:=1   
  9.   else if D_C[i]<D_L[i-1] then   
  10.   D_F[i]:=-1   
  11.   else  
  12.   D_F[i]:=D_F[i-1];   
  13. end;   
  14. K1:=IF(D_F>0,-3,IF(D_F<0,1,0));   
  15. K2:=VALUEWHEN(K1<>0,K1);   
  16. G:=IF(K2<0,-30,0);   
  17. FILLRGN(K2<0,G,0),COLORBLUE;   
  18. FILLRGN(K2<0,-G,0),Color00B0A3;   
  19. {仿天狼剑2}   
  20. 强:=FORCAST(IF((C-L=O-L),O,C),4);   
  21. 弱:=(ref(c,1)+ref(c,2)+O)/3;   
  22. B_h1:=(O+C*3+L+H)/6;                
  23. B_h2:=REVERSE(B_h1)+2*WMA(B_h1,5);   
  24. B_h3:=3*B_h2-2*SMA(B_h2,2,1);   
  25. B_h4:=BARSLAST((强>弱)=1);   
  26. B_h5:=0-BARSLAST((强>弱)=0);   
  27. B_h6:=IF(B_h4>0,B_h4,B_h5);   
  28. B_h7:=(-1)*B_h6*10;   
  29. B_h8:=CROSS(强,弱)&&C>B_h3;   
  30. B_h9:=CROSS(弱,强)&&C<B_h3;   
  31. DRAWICON(CROSS(强,弱),B_h7,10),PXUP1;//进   
  32. STICKLINE(B_h8=0 and B_h7>0,0,B_h7,5,0),ColorFFA8FF,COLORMAGENTA;//持:   
  33. DRAWICON(B_h9,0,12),PXDN1;//减   
  34. STICKLINE(B_h9=0 and B_h7<=0,0,B_h7,5,0),Color009800;//空:   
  35. 大盘强势区:IF(G,168,0),LINETHICK,Color00D9C5;   
  36.   
  37. 趋势:=4*SMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*10,5,1)-3*SMA(SMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*10,5,1),3.2,1);   
  38. N_2:=SMA(MAX(C-REF(C,4),0),2,1)/SMA(ABS(C-REF(C,4)),2,1)*100<10;//处女线   
  39. 低位:=趋势<1.5 or N_2;   
  40. PARTLINE(1,0),COLORWHITE;   
  41. PARTLINE(低位,0),SHIFT1,LINETHICK2,COLORGREEN;   
  42.   
  43. 平滑:=sma(趋势,3,1);   
  44. 有戏:if((平滑-ref(平滑,1))>=0,888,0),LINETHICK,COLORRED;   
  45. 无戏:if((平滑-ref(平滑,1))<=0,666,0),LINETHICK,colorFFFF00;   
  46. //   

 

C/C++ Code复制内容到剪贴板
  1. （通达信版）   
  2. D_C:=INDEXC;    D_H:=MA(INDEXH,3);   D_L:=MA(INDEXL,3);    
  3. D_F:=IF(INDEXC>REF(D_H,1),1,IF(INDEXC<REF(D_L,1),-1,0));   
  4. K1:=IF(D_F>0,-3,IF(D_F<0,1,0));   
  5. KK:=IF(K1!=0,K1,DRAWNULL);   
  6. K2:=IF(K1!=0,K1,KK);   
  7. G:=IF(K2<0,-30,0);   
  8. STICKLINE(K2<0,G,0,5,0),COLOR666600;   
  9. STICKLINE(K2<0,-G,0,5,0),COLORRED;   
  10. {仿天狼剑2}   
  11. 强:=FORCAST(IF((C-L=O-L),O,C),4);   
  12. 弱:=(REF(C,1)+REF(C,2)+O)/3;   
  13. B_H1:=(O+C*3+L+H)/6;                
  14. WMA:=(5*B_H1+4*REF(B_H1,1)+3*REF(B_H1,2)+2*REF(B_H1,3)+1*REF(B_H1,4))/(5+4+3+2+1);   
  15. B_H2:=REVERSE(B_H1)+2*WMA;   
  16. B_H3:=3*B_H2-2*SMA(B_H2,2,1);   
  17. B_H4:=BARSLAST((强>弱)=1);   
  18. B_H5:=0-BARSLAST((强>弱)=0);   
  19. B_H6:=IF(B_H4>0,B_H4,B_H5);   
  20. B_H7:=(-1)*B_H6*10;   
  21. B_H8:=CROSS(强,弱)&&C>B_H3;   
  22. B_H9:=CROSS(弱,强)&&C<B_H3;   
  23. DRAWICON(CROSS(强,弱),B_H7,1);{进}   
  24. STICKLINE(B_H8=0 AND B_H7>0,0,B_H7,5,0),COLORFFA8FF,COLORMAGENTA;{持}   
  25. DRAWICON(B_H9,0,2);{减}   
  26. STICKLINE(B_H9=0 AND B_H7<=0,0,B_H7,5,0),COLOR009800;{空}   
  27. 大盘强势区:IF(G,68,0),LINETHICK,COLOR00D9C5;   
  28.   
  29. 趋势:=4*SMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*10,5,1)-3*SMA(SMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*10,5,1),3.2,1);   
  30. N_2:=SMA(MAX(C-REF(C,4),0),2,1)/SMA(ABS(C-REF(C,4)),2,1)*100<10;{处女线}   
  31. 低位:=趋势<1.5 OR N_2;   
  32. IF(低位,0,DRAWNULL),LINETHICK5,COLORGREEN;   
  33.   
  34. 平滑:=SMA(趋势,3,1);   
  35. 有戏:IF((平滑-REF(平滑,1))>=0,88,0),LINETHICK,COLORRED;   
  36. 无戏:IF((平滑-REF(平滑,1))<=0,66,0),LINETHICK,COLORFFFF00;   


网站搜索：  



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