奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題] (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19122)

[問題]

版大好:
煩請解惑。當app成立時，找出邊長b1大於a1的股票，b1是c到b，a1是c到a。謝謝

DRAWGBK(1,COLORRGB(0,200,50),COLORRGB(0,200,50),1);
T5:=MA(CLOSE,200),COLORWHITE,LINETHICK2;
STICKLINE(CLOSE>T5,HIGH,LOW,5,0),COLORFF33FF;STICKLINE(CLOSE<T5,HIGH,LOW,5,0),COLOR00FF99;
AA:=REF(HIGH,1)=HHV(HIGH,2*1+1);
AAA:=FILTER(AA,1);
BB:=BACKSET(AAA,1+1);
CC1:=FILTER(BB,1);
CC:=CC1 OR ISLASTBAR;
AA2:=REF(LOW,1)=LLV(LOW,2*1+1);
AAA2:=FILTER(AA2,1);
BB2:=BACKSET(AAA2,1+1);
CC22:=FILTER(BB2,1);
CC2:=CC22 AND NOT(CC1);
EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);
EB:=EA>REF(EA,1); EE:=BACKSET(EB,2);
FF1:=EE>REF(EE,1);
EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF2:=EE2>REF(EE2,1);
EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF3:=EE3>REF(EE3,1);
JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);
G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);
GA:=IF(CC AND REF(LOW,BARSLAST(FF1))>=REF(LOW,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));
G2:=IF(JS=2 AND CC,GA,0);
G3:=IF(JS>=3 AND CC,IF(CC AND REF(LOW,GA)>=REF(LOW,BARSLAST(FF3)),BARSLAST(FF3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(CC,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);

LD1:=LD OR ISLASTBAR;
hEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);
hEB:=hEA>REF(hEA,1); hEE:=BACKSET(hEB,2);
hFF1:=hEE>REF(hEE,1);
hEE2:=BACKSET(hFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF2:=hEE2>REF(hEE2,1);
hEE3:=BACKSET(hFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF3:=hEE3>REF(hEE3,1);
hJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
hGA:=IF(LD1 AND REF(HIGH,BARSLAST(hFF1))<=REF(HIGH,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(HIGH,hGA)<=REF(HIGH,BARSLAST(hFF3)),BARSLAST(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG); hJB:=hJA>REF(hJA,1); hJJ:=BACKSET(hJB,2);
HH:=hJJ>REF(hJJ,1);
{
DRAWICON(HD,H*1.01,10);
DRAWICON(LD,L*0.995,11);
}
DRAWLINE(LD,LOW,HH,HIGH,0),COLORWHITE,LINETHICK1;
DRAWLINE(HH,HIGH,LD,LOW,0),COLORWHITE,LINETHICK1;


UU1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
VV1:=UU1>REF(UU1,1);
WW1:=BACKSET(VV1,REF(BARSLAST(LD),1)+2);
XX1:=WW1>REF(WW1,1);
DRAWLINE(XX1,LOW,VV1,LOW,1),COLORBLUE,LINETHICK2;
A1:LINEVALUE(XX1,LOW,VV1,LOW,0,0);
UU2:=BACKSET(ISLASTBAR,BARSLAST(HH)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HH),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,HIGH,VV2,HIGH,1),COLORBLUE,LINETHICK2;
B1:LINEVALUE(XX2,HIGH,VV2,HIGH,0,0);
BB1:=CROSS(A1,B1);
縮角1:(A1-B1);
XX2SP:=BARSLAST(XX2);XH1:=REF(HIGH,XX2sp);VV2SP:=BARSLAST(VV2);XH2:=REF(HIGH,VV2sp);
XX1SP:=BARSLAST(XX1);XL1:=REF(LOW,XX1sp);VV1SP:=BARSLAST(VV1);XL2:=REF(LOW,VV1sp);

APP:LOW<B1 AND HIGH>A1 AND XH2>XH1 AND XL2>XL1 AND 縮角1>-2 AND 縮角1<0;
STICKLINE(APP,HIGH,HIGH+5,3,0),COLORBLUE;DRAWICON(APP,HIGH+5,'21');

__________________
efef55e3

[問題]

版大好:
煩請解惑。當APP成立時，找出邊長B1大於A1的股票，B1是B到C，A1是A到C，謝謝您。


DRAWGBK(1,COLORRGB(0,200,50),COLORRGB(0,200,50),1);
XC:=CLOSE,LINETHICK0;S:=(HIGH-LOW)*2;
T2:=MA(CLOSE,200),COLORWHITE,LINETHICK2;
STICKLINE(CLOSE>T2,HIGH,LOW,5,0),COLORFF33FF;STICKLINE(CLOSE<T2,HIGH,LOW,5,0),COLOR00FF99;

AA:=REF(HIGH,1)=HHV(HIGH,2*1+1);
AAA:=FILTER(AA,1);
BB:=BACKSET(AAA,1+1);
CC1:=FILTER(BB,1);
CC:=CC1 OR ISLASTBAR;
AA2:=REF(LOW,1)=LLV(LOW,2*1+1);
AAA2:=FILTER(AA2,1);
BB2:=BACKSET(AAA2,1+1);
CC22:=FILTER(BB2,1);
CC2:=CC22 AND NOT(CC1);
EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);
EB:=EA>REF(EA,1); EE:=BACKSET(EB,2);
FF1:=EE>REF(EE,1);
EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF2:=EE2>REF(EE2,1);
EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF3:=EE3>REF(EE3,1);
JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);
G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);
GA:=IF(CC AND REF(LOW,BARSLAST(FF1))>=REF(LOW,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));
G2:=IF(JS=2 AND CC,GA,0);
G3:=IF(JS>=3 AND CC,IF(CC AND REF(LOW,GA)>=REF(LOW,BARSLAST(FF3)),BARSLAST(FF3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(CC,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);

LD1:=LD OR ISLASTBAR;
hEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);
hEB:=hEA>REF(hEA,1); hEE:=BACKSET(hEB,2);
hFF1:=hEE>REF(hEE,1);
hEE2:=BACKSET(hFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF2:=hEE2>REF(hEE2,1);
hEE3:=BACKSET(hFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF3:=hEE3>REF(hEE3,1);
hJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
hGA:=IF(LD1 AND REF(HIGH,BARSLAST(hFF1))<=REF(HIGH,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(HIGH,hGA)<=REF(HIGH,BARSLAST(hFF3)),BARSLAST(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG); hJB:=hJA>REF(hJA,1); hJJ:=BACKSET(hJB,2);
HH:=hJJ>REF(hJJ,1);
{
DRAWICON(HD,H*1.01,10);
DRAWICON(LD,L*0.995,11);
}
DRAWLINE(LD,LOW,HH,HIGH,0),COLORWHITE,LINETHICK1;
DRAWLINE(HH,HIGH,LD,LOW,0),COLORWHITE,LINETHICK1;


UU1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
VV1:=UU1>REF(UU1,1);
WW1:=BACKSET(VV1,REF(BARSLAST(LD),1)+2);
XX1:=WW1>REF(WW1,1);
DRAWLINE(XX1,LOW,VV1,LOW,1),COLORCYAN,LINETHICK1;
A1:=LINEVALUE(XX1,LOW,VV1,LOW,0,0);
UU2:=BACKSET(ISLASTBAR,BARSLAST(HH)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HH),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,HIGH,VV2,HIGH,1),COLORCYAN,LINETHICK1;
B1:=LINEVALUE(XX2,HIGH,VV2,HIGH,0,0);
BB1:=CROSS(A1,B1);
縮角1:(A1-B1);

APP:LOW<B1 AND HIGH>A1 AND 縮角1>-2 AND 縮角1<0;
STICKLINE(APP,HIGH,HIGH+10,1,0),COLORblack;DRAWICON(APP,HIGH+10,'21');

__________________
efef55e3

回覆: [問題]

引用:

---

最初由 yjl8895 發表
版大好:
煩請解惑。當APP成立時，找出邊長B1大於A1的股票，B1是B到C，A1是A到C，謝謝您。


DRAWGBK(1,COLORRGB(0,200,50),COLORRGB(0,200,50),1);
XC:=CLOSE,LINETHICK0;S:=(HIGH-LOW)*2;
T2:=MA(CLOSE,200),COLORWHITE,LINETHICK2;
STICKLINE(CLOSE>T2,HIGH,LOW,5,0),COLORFF33FF;STICKLINE(CLOSE<T2,HIGH,LOW,5,0),COLOR00FF99;

AA:=REF(HIGH,1)=HHV(HIGH,2*1+1);
AAA:=FILTER(AA,1);
BB:=BACKSET(AAA,1+1);
CC1:=FILTER(BB,1);
CC:=CC1 OR ISLASTBAR;
AA2:=REF(LOW,1)=LLV(LOW,2*1+1);
AAA2:=FILTER(AA2,1);
BB2:=BACKSET(AAA2,1+1);
CC22:=FILTER(BB2,1);
CC2:=CC22 AND NOT(CC1);
EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);
EB:=EA>REF(EA,1); EE:=BACKSET(EB,2);
FF1:=EE>REF(EE,1);
EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF2:=EE2>REF(EE2,1);
EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF3:=EE3>REF(EE3,1);
JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);
G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);
GA:=IF(CC AND REF(LOW,BARSLAST(FF1))>=REF(LOW,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));
G2:=IF(JS=2 AND CC,GA,0);
G3:=IF(JS>=3 AND CC,IF(CC AND REF(LOW,GA)>=REF(LOW,BARSLAST(FF3)),BARSLAST(FF3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(CC,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);

LD1:=LD OR ISLASTBAR;
hEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);
hEB:=hEA>REF(hEA,1); hEE:=BACKSET(hEB,2);
hFF1:=hEE>REF(hEE,1);
hEE2:=BACKSET(hFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF2:=hEE2>REF(hEE2,1);
hEE3:=BACKSET(hFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF3:=hEE3>REF(hEE3,1);
hJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
hGA:=IF(LD1 AND REF(HIGH,BARSLAST(hFF1))<=REF(HIGH,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(HIGH,hGA)<=REF(HIGH,BARSLAST(hFF3)),BARSLAST(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG); hJB:=hJA>REF(hJA,1); hJJ:=BACKSET(hJB,2);
HH:=hJJ>REF(hJJ,1);
{
DRAWICON(HD,H*1.01,10);
DRAWICON(LD,L*0.995,11);
}
DRAWLINE(LD,LOW,HH,HIGH,0),COLORWHITE,LINETHICK1;
DRAWLINE(HH,HIGH,LD,LOW,0),COLORWHITE,LINETHICK1;


UU1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
VV1:=UU1>REF(UU1,1);
WW1:=BACKSET(VV1,REF(BARSLAST(LD),1)+2);
XX1:=WW1>REF(WW1,1);
DRAWLINE(XX1,LOW,VV1,LOW,1),COLORCYAN,LINETHICK1;
A1:=LINEVALUE(XX1,LOW,VV1,LOW,0,0);
UU2:=BACKSET(ISLASTBAR,BARSLAST(HH)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HH),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,HIGH,VV2,HIGH,1),COLORCYAN,LINETHICK1;
B1:=LINEVALUE(XX2,HIGH,VV2,HIGH,0,0);
BB1:=CROSS(A1,B1);
縮角1:(A1-B1);

APP:LOW<B1 AND HIGH>A1 AND 縮角1>-2 AND 縮角1<0;
STICKLINE(APP,HIGH,HIGH+10,1,0),COLORblack;DRAWICON(APP,HIGH+10,'21');

---

版大感謝您。

__________________
efef55e3

引用:

---

最初由 yjl8895 發表
版大感謝您。

---