软件名称：[B]【舍】无名~~听雪寻股老师分享[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2012-07-05 05:54:26
软件简介:

1. {无名~~听雪寻股}
    
2. INPUT:KT1(10,1,999),KT2(30,1,999);
    
3. a:MA(CLOSE,KT1)COLORAA00FF;
    
4. b:MA(CLOSE,KT2)COLORFF00AA;
    
5. K:=BARSLAST( CROSS(a,b) OR CROSS(B,A) OR ISLASTBAR OR BARPOS=1);
    
6. HK:=IF(NOT( ISLASTBAR),REF(HHV(H,K+1),1),IF(H>REF(HHV(H,K+1),1),H,REF(HHV(H,K+1),1)));
    
7. LK:=IF(NOT( ISLASTBAR),REF(LLV(L,K+1),1),IF(L<REF(LLV(L,K+1),1),L,REF(LLV(L,K+1),1)));
    
8. H叉:=IF(K=0,HK,0);
    
9. L叉:=IF(K=0,LK,0);
    
10. HH:=HK*0;
     
11. LL:=LK*0;
     
12. for NP=lbound(H叉) to ubound(H叉) do begin
     
13. if H叉[NP]>=0 then begin
     
14. for ZP=NP+1 to ubound(H叉) do begin
     
15. if H叉[ZP]>0 then begin
     
16. for S=NP to ZP-1 do begin
     
17. HH[S]:=H叉[ZP];
     
18. LL[S]:=L叉[ZP];
     
19. X0:=IF(HH>0,HH,HK);
     
20. Y0:=IF(LL>0,LL,LK);
     
21. end;
     
22. break;
     
23. end;
     
24. end;
     
25. end;
     
26. end;
     
27. X:=IF(DATACOUNT>1,IF(BARPOS=1,REFX(X0,1),X0),H);
     
28. Y:=IF(DATACOUNT>1,IF(BARPOS=1,REFX(Y0,1),Y0),H);
     
29. PARTLINE((Y=REF(Y,1) AND X=REF(X,1)) OR BARPOS=1,X),COLOR00FFFF;
     
30. PARTLINE((Y=REF(Y,1) AND X=REF(X,1)) OR BARPOS=1,Y),COLOR00FFFF;
     
31. STICKLINE(K=0,X,Y,0,0),COLOR00FFFF;
     
32. STICKLINE(REFX(K=0 AND NOT( ISLASTBAR),1),X,Y,0,0),COLOR00FFFF;
     
33. BS:=SUMBARS(K=0 AND NOT( ISLASTBAR),1);
     
34. BX:=REF(X,BS);
     
35. BY:=REF(Y,BS);
     
36. PARTLINE(Y=REF(Y,1) AND X>BX AND Y>BY,X),COLOR0066FF;
     
37. PARTLINE(Y=REF(Y,1) AND X>BX AND Y>BY,Y),COLOR00966FF;
     
38. STICKLINE(K=0 AND X>BX AND Y>BY,X,Y,0,0),COLOR0066FF;
     
39. STICKLINE(REFX(K=0 AND NOT( ISLASTBAR),1) AND X>BX AND Y>BY,X,Y,0,0),COLOR0066FF;
     
40. PARTLINE(Y=REF(Y,1) AND X>BX AND Y<BY,X),COLORFFFFFF;
     
41. PARTLINE(Y=REF(Y,1) AND X>BX AND Y<BY,Y),COLORFFFFFF;
     
42. STICKLINE(K=0 AND X>BX AND Y<BY,X,Y,0,0),COLORFFFFFF;
     
43. STICKLINE(REFX(K=0 AND NOT( ISLASTBAR),1) AND X>BX AND Y<BY,X,Y,0,0),COLORFFFFFF;
     
44. PARTLINE(Y=REF(Y,1) AND X<BX and Y<BY,X),COLORFFAA33;
     
45. PARTLINE(Y=REF(Y,1) AND X<BX AND Y<BY,Y),COLORFFAA33;
     
46. STICKLINE(K=0 AND X<BX AND Y<BY,X,Y,0,0),COLORFFAA33;
     
47. STICKLINE(REFX(K=0 AND NOT( ISLASTBAR),1) AND X<BX AND Y<BY,X,Y,0,0),COLORFFAA33;

[url=http://www.70822.com/soft/sort013/sort02/down-50351.html]【舍】无名~~听雪寻股老师分享[/url]