[求助]請幫忙修改下面這個公式讓金字塔完全可用
作者：金字塔 來源：cxh99.com 發布時間：2014年11月05日
- 咨詢內容：
有些圖標和信號顯示不出來呢？
以下內容為程序代碼:
1 {========畫原始K線========}
2 STICKLINE(C＞=O,H,L,0,1),COLORRED;
3 STICKLINE(C＞=O,C,O,8,1),COLORRED;
4 STICKLINE(C＜O,C,O,8,0),COLORCYAN;
5 STICKLINE(C＜O,H,L,0,1),COLORCYAN;
6 {========狀態交易========}
7 Y:=(H+L)/2;
8 AO:=MA(Y,5)-MA(Y,34);
9 MAO:=MA(AO,5);
10 AC:=AO-MAO;
11 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,H,L,0,1),COLORGREEN;
12 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,C,O,8,1),COLORGREEN;
13 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＜O,C,O,8,0),COLORGREEN;
14 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＜O,H,L,0,1),COLORGREEN;
15 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,H,L,0,1),COLORRED;
16 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,C,O,8,1),COLORRED;
17 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＜O,C,O,8,0),COLORRED;
18 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＜O,H,L,0,1),COLORRED;
19 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,H,L,0,1),COLORGRAY;
20 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,C,O,8,1),COLORGRAY;
21 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＜O,C,O,8,0),COLORGRAY;
22 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＜O,H,L,0,1),COLORGRAY;
23 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,H,L,0,1),COLORGRAY;
24 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,C,O,8,1),COLORGRAY;
25 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＜O,C,O,8,0),COLORGRAY;
26 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＜O,H,L,0,1),COLORGRAY;
27 {========鱷魚組線========}
28 AA:=IF(BARSCOUNT(Y)＞=6,SMA(Y,5,1),MA(Y,6));
29 BB:=IF(BARSCOUNT(Y)＞=9,SMA(Y,8,1),MA(Y,9));
30 CC:=IF(BARSCOUNT(Y)＞=14,SMA(Y,13,1),MA(Y,14));
31 綠線:AA,SHIFT3,PRECISION1,COLORGREEN;
32 紅線:BB,SHIFT5,PRECISION1,COLORRED;
33 藍線:CC,SHIFT8,PRECISION1,COLORBLUE;
34 R1:=REF(SMA(Y,8,1),5);
35 {紅線}
36 R2:=IF(C＜R1,0,R1);
37 R3:=IF(C＞R1,0,R1);
38 DRAWNUMBER(ISLASTBAR,1.012*R1,R2,1),SHIFT5,COLORRED;
39 DRAWNUMBER(ISLASTBAR,R1,R3,1),SHIFT5,COLORRED;
40 {========AO及AC方向========}
41 DRAWTEXT(ISLASTBAR AND AO＞REF(AO,1) AND AC＞REF(AC,1),1.024*R1,'「↑↑」'),SHIFT5,COLORGREEN;
42 DRAWTEXT(ISLASTBAR AND AO＜REF(AO,1) AND AC＜REF(AC,1),1.024*R1,'「↓↓」'),SHIFT5,COLORRED;
43 DRAWTEXT(ISLASTBAR AND AO＞REF(AO,1) AND AC＜REF(AC,1),1.024*R1,'「↑↓」'),SHIFT5,COLORWHITE;
44 DRAWTEXT(ISLASTBAR AND AO＜REF(AO,1) AND AC＞REF(AC,1),1.024*R1,'「↓↑」'),SHIFT5,COLORWHITE;
45 {========用羅列法尋找分形========}
46 A:=H;A1:=REF(H,1);
47 A2:=REF(H,2);
48 A3:=REF(H,3);
49 A4:=REF(H,4);
50 A5:=REF(H,5);
51 A6:=REF(H,6);
52 A7:=REF(H,7);
53 A8:=REF(H,8);
54 B:=L;
55 B1:=REF(L,1);
56 B2:=REF(L,2);
57 B3:=REF(L,3);
58 B4:=REF(L,4);
59 B5:=REF(L,5);
60 B6:=REF(L,6);
61 B7:=REF(L,7);
62 B8:=REF(L,8);
63 FF1:=A2＞A1 AND A2＞A AND A2＞A3 AND A2＞A4;
64 FF2:=A3=A2 AND A2＞A1 AND A2＞A AND A2＞A4 AND A2＞A5;
65 FF3:=A4=A3 AND A3=A2 AND A2＞A1 AND A2＞A AND A2＞A5 AND A2＞A6;
66 FF4:=A2=A4 AND A2＞A1 AND A2＞A AND A2＞A3 AND A2＞A5 AND A2＞A6;
67 FF44:=A2=A3 AND A2=A4 AND A2=A5 AND A2＞A1 AND A2＞A AND A2＞A6 AND A2＞A7;
68 FF5:=A6=A4 AND A4=A2 AND A2＞A1 AND A2＞A AND A2＞A7 AND A2＞A8 AND A2＞A3 AND A2＞A5;
69 FF6:=B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B4;
70 FF7:=B3=B2 AND B2＜B1 AND B2＜B AND B2＜B4 AND B2＜B5;
71 FF8:=B2=B3 AND B4=B2 AND B2＜B1 AND B2＜B AND B2＜B5 AND B2＜B6;
72 FF9:=B2=B4 AND B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B5 AND B2＜B6;
73 FF99:=B2=B3 AND B2=B4 AND B2=B5 AND B2＜B1 AND B2＜B AND B2＜B6 AND B2＜B7;
74 FF10:=B2=B4 AND B2=B6 AND B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B5 AND B2＜B7 AND B2＜B8;
75 FF11:=FF1 OR FF2 OR FF3 OR FF4 OR FF44 OR FF5;
76 FF12:=FF6 OR FF7 OR FF8 OR FF9 OR FF99 OR FF10;
77 FF13:=BACKSET(FF11,3);
78 FF133:=FILTER(FF13,2);
79 FF14:=BACKSET(FF12,3);
80 FF144:=FILTER(FF14,2);
81 SF:=IF(FF11,A2,REF(A2,BARSLAST(FF11)));
82 XF:=IF(FF12,B2,REF(B2,BARSLAST(FF12)));
83 DRAWICON(FF133 AND H＞R1,1.0001*H,'UPG'),ALIGN0;
84 {=================上分形標志，向上綠箭頭}
85 DRAWICON(FF144 AND L＜R1,0.9999*L,'DOR'),ALIGN0;
86 {=================下分形標志，向下紅箭頭}
87 TJ1:=H＞SF;
88 TJ2:=H＜REF(H,1) AND REF(H,1)＞SF;
89 TJ3:=L＜XF;
90 TJ4:=L＞REF(L,1) AND REF(L,1)＜XF;
91 上分形:IF(TJ1 OR TJ2,0,SF),PRECISION1,COLORYELLOW,LINETHICK0;
92 下分形:IF(TJ3 OR TJ4,0,XF),PRECISION1,COLORWHITE,LINETHICK0;
93 DRAWNUMBER(ISLASTBAR,0.988*R1,上分形,1),SHIFT5,COLORYELLOW;
94 DRAWNUMBER(ISLASTBAR,0.976*R1,下分形,1),SHIFT5,COLORWHITE;
95 TJ5:=IF(H＞SF AND REF(H,1)＜=SF,1,0);
96 TJ52:=IF(H＞SF AND REF(H,1)＜=SF AND REF(H,2)＞SF,0,1);
97 TJ6:=IF(L＜XF AND REF(L,1)＞=XF,1,0);
98 TJ62:=IF(L＜XF AND REF(L,1)＞=XF AND REF(L,2)＜XF,0,1);
99 STICKLINE(TJ5+TJ52=2 AND SF＞R1,SF,1.0002*SF,10,0),COLORYELLOW;
100 {=========上分形突破標志，黃色橫線}
101 STICKLINE(TJ6+TJ62=2 AND XF＜R1,XF,0.9998*XF,10,0),COLORWHITE;
102 {==========下分形突破標志，白色橫線}
103
- 金字塔客服：
上面有標號，重發一次：
{========畫原始K線========}STICKLINE(C>=O,H,L,0,1),COLORRED;STICKLINE(C>=O,C,O,8,1),COLORRED;STICKLINE(C<O,C,O,8,0),COLORCYAN;STICKLINE(C<O,H,L,0,1),COLORCYAN;{========狀態交易========}Y:=(H+L)/2;AO:=MA(Y,5)-MA(Y,34);MAO:=MA(AO,5);AC:=AO-MAO;STICKLINE(AO>REF(AO,1) AND AC>REF(AC,1) AND C>=O,H,L,0,1),COLORGREEN;STICKLINE(AO>REF(AO,1) AND AC>REF(AC,1) AND C>=O,C,O,8,1),COLORGREEN;STICKLINE(AO>REF(AO,1) AND AC>REF(AC,1) AND C<O,C,O,8,0),COLORGREEN;STICKLINE(AO>REF(AO,1) AND AC>REF(AC,1) AND C<O,H,L,0,1),COLORGREEN;STICKLINE(AO<REF(AO,1) AND AC<REF(AC,1) AND C>=O,H,L,0,1),COLORRED;STICKLINE(AO<REF(AO,1) AND AC<REF(AC,1) AND C>=O,C,O,8,1),COLORRED;STICKLINE(AO<REF(AO,1) AND AC<REF(AC,1) AND C<O,C,O,8,0),COLORRED;STICKLINE(AO<REF(AO,1) AND AC<REF(AC,1) AND C<O,H,L,0,1),COLORRED;STICKLINE(AO>REF(AO,1) AND AC<REF(AC,1) AND C>=O,H,L,0,1),COLORGRAY;STICKLINE(AO>REF(AO,1) AND AC<REF(AC,1) AND C>=O,C,O,8,1),COLORGRAY;STICKLINE(AO>REF(AO,1) AND AC<REF(AC,1) AND C<O,C,O,8,0),COLORGRAY;STICKLINE(AO>REF(AO,1) AND AC<REF(AC,1) AND C<O,H,L,0,1),COLORGRAY;STICKLINE(AO<REF(AO,1) AND AC>REF(AC,1) AND C>=O,H,L,0,1),COLORGRAY;STICKLINE(AO<REF(AO,1) AND AC>REF(AC,1) AND C>=O,C,O,8,1),COLORGRAY;STICKLINE(AO<REF(AO,1) AND AC>REF(AC,1) AND C<O,C,O,8,0),COLORGRAY;STICKLINE(AO<REF(AO,1) AND AC>REF(AC,1) AND C<O,H,L,0,1),COLORGRAY;{========鱷魚組線========}AA:=IF(BARSCOUNT(Y)>=6,SMA(Y,5,1),MA(Y,6));BB:=IF(BARSCOUNT(Y)>=9,SMA(Y,8,1),MA(Y,9));CC:=IF(BARSCOUNT(Y)>=14,SMA(Y,13,1),MA(Y,14));綠線:AA,SHIFT3,PRECISION1,COLORGREEN;紅線:BB,SHIFT5,PRECISION1,COLORRED;藍線:CC,SHIFT8,PRECISION1,COLORBLUE;R1:=REF(SMA(Y,8,1),5);{紅線}R2:=IF(C<R1,0,R1);R3:=IF(C>R1,0,R1);DRAWNUMBER(ISLASTBAR,1.012*R1,R2,1),SHIFT5,COLORRED;DRAWNUMBER(ISLASTBAR,R1,R3,1),SHIFT5,COLORRED;{========AO及AC方向========}DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC>REF(AC,1),1.024*R1,'「↑↑」'),SHIFT5,COLORGREEN;DRAWTEXT(ISLASTBAR AND AO<REF(AO,1) AND AC<REF(AC,1),1.024*R1,'「↓↓」'),SHIFT5,COLORRED;DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC<REF(AC,1),1.024*R1,'「↑↓」'),SHIFT5,COLORWHITE;DRAWTEXT(ISLASTBAR AND AO<REF(AO,1) AND AC>REF(AC,1),1.024*R1,'「↓↑」'),SHIFT5,COLORWHITE;{========用羅列法尋找分形========}A:=H;A1:=REF(H,1);A2:=REF(H,2);A3:=REF(H,3);A4:=REF(H,4);A5:=REF(H,5);A6:=REF(H,6);A7:=REF(H,7);A8:=REF(H,8);B:=L;B1:=REF(L,1);B2:=REF(L,2);B3:=REF(L,3);B4:=REF(L,4);B5:=REF(L,5);B6:=REF(L,6);B7:=REF(L,7);B8:=REF(L,8);FF1:=A2>A1 AND A2>A AND A2>A3 AND A2>A4;FF2:=A3=A2 AND A2>A1 AND A2>A AND A2>A4 AND A2>A5;FF3:=A4=A3 AND A3=A2 AND A2>A1 AND A2>A AND A2>A5 AND A2>A6;FF4:=A2=A4 AND A2>A1 AND A2>A AND A2>A3 AND A2>A5 AND A2>A6;FF44:=A2=A3 AND A2=A4 AND A2=A5 AND A2>A1 AND A2>A AND A2>A6 AND A2>A7;FF5:=A6=A4 AND A4=A2 AND A2>A1 AND A2>A AND A2>A7 AND A2>A8 AND A2>A3 AND A2>A5;FF6:=B2<B1 AND B2<B AND B2<B3 AND B2<B4;FF7:=B3=B2 AND B2<B1 AND B2<B AND B2<B4 AND B2<B5;FF8:=B2=B3 AND B4=B2 AND B2<B1 AND B2<B AND B2<B5 AND B2<B6;FF9:=B2=B4 AND B2<B1 AND B2<B AND B2<B3 AND B2<B5 AND B2<B6;FF99:=B2=B3 AND B2=B4 AND B2=B5 AND B2<B1 AND B2<B AND B2<B6 AND B2<B7;FF10:=B2=B4 AND B2=B6 AND B2<B1 AND B2<B AND B2<B3 AND B2<B5 AND B2<B7 AND B2<B8;FF11:=FF1 OR FF2 OR FF3 OR FF4 OR FF44 OR FF5;FF12:=FF6 OR FF7 OR FF8 OR FF9 OR FF99 OR FF10;FF13:=BACKSET(FF11,3);FF133:=FILTER(FF13,2);FF14:=BACKSET(FF12,3);FF144:=FILTER(FF14,2);SF:=IF(FF11,A2,REF(A2,BARSLAST(FF11)));XF:=IF(FF12,B2,REF(B2,BARSLAST(FF12)));DRAWICON(FF133 AND H>R1,1.0001*H,'UPG'),ALIGN0;{=================上分形標志，向上綠箭頭}DRAWICON(FF144 AND L<R1,0.9999*L,'DOR'),ALIGN0;{=================下分形標志，向下紅箭頭}TJ1:=H>SF;TJ2:=H<REF(H,1) AND REF(H,1)>SF;TJ3:=L<XF;TJ4:=L>REF(L,1) AND REF(L,1)<XF;上分形:IF(TJ1 OR TJ2,0,SF),PRECISION1,COLORYELLOW,LINETHICK0;下分形:IF(TJ3 OR TJ4,0,XF),PRECISION1,COLORWHITE,LINETHICK0;DRAWNUMBER(ISLASTBAR,0.988*R1,上分形,1),SHIFT5,COLORYELLOW;DRAWNUMBER(ISLASTBAR,0.976*R1,下分形,1),SHIFT5,COLORWHITE;TJ5:=IF(H>SF AND REF(H,1)<=SF,1,0);TJ52:=IF(H>SF AND REF(H,1)<=SF AND REF(H,2)>SF,0,1);TJ6:=IF(L<XF AND REF(L,1)>=XF,1,0);TJ62:=IF(L<XF AND REF(L,1)>=XF AND REF(L,2)<XF,0,1);STICKLINE(TJ5+TJ52=2 AND SF>R1,SF,1.0002*SF,10,0),COLORYELLOW;{=========上分形突破標志，黃色橫線}STICKLINE(TJ6+TJ62=2 AND XF<R1,XF,0.9998*XF,10,0),COLORWHITE;{==========下分形突破標志，白色橫線}
- 用戶回復：
編譯通過，金字塔上可用
- 網友回復：
不行，好多圖標都沒了，例如這些：DRAWICON(FF133 AND H>R1,1.0001*H,'UPG'),ALIGN0;
- 網友回復：
還有這些：DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC>REF(AC,1),1.024*R1,'「↑↑」'),SHIFT5,COLORGREEN;
打印本文
關閉窗口