大大:
全碼如后
畫漸變背景色(1,RGB顏色值(0,150,100),RGB顏色值(0,150,100),1);
XC:收盤價,LINETHICK0;
MA1:=簡單移動平均(收盤價,8);
MA2:=簡單移動平均(收盤價,13);
MA3:=簡單移動平均(收盤價,21);
MA4:=簡單移動平均(收盤價,34);
MA5:=簡單移動平均(收盤價,55);
MA6:=簡單移動平均(收盤價,89);
a7:=簡單移動平均(ma1,8),COLORblue,LINETHICK1;
b7:=簡單移動平均(ma2,13),COLORwhite,LINETHICK1;
c7:=簡單移動平均(ma3,21),COLORzyan,LINETHICK1;
d7:=簡單移動平均(ma4,34),COLORgreen,LINETHICK1;
e7:=簡單移動平均(ma5,55),COLORyellow,LINETHICK1;
f7:=簡單移動平均(ma6,89),COLORbrown,LINETHICK1;
T1:=(a7+b7+2*收盤價)/4,COLORwhite,,Linethick1;
T2:=(a7+b7+c7)/3,COLORwhite,,Linethick1;
T3:=(a7+b7+c7+d7+收盤價)/5,COLORblack,,Linethick1;
T4:=(a7+b7+C7+D7+E7)/5,COLORBLACK,,Linethick1;
T5:=(A7+B7+C7+D7+E7+F7)/6,COLORbrown,,Linethick1;
ab:=交叉函數(T1,T3),COLORwhite,LINETHICK0;
ba:=交叉函數(T3,T1),COLORwhite,LINETHICK0;
畫區間綵帶(T1>=T3,T1,T3),COLORff0099;;//綵帶
畫區間綵帶(T1<T3,T1,T3),colorFF9966;//綵帶
T1 a7+b7+2*收盤價)/4,COLORyellow,,Linethick2;
T3 a7+b7+C7+D7+收盤價)/5,COLORBLACK,,Linethick2;
T乖離 T1-T3) LINETHICK0;
X乖離 XC-T1) LINETHICK0;
多:畫柱線(T乖離>0,收盤價,開盤價,3,0),COLORwhite;
畫柱線(T乖離>0,最高價,最低價,0,0),COLORwhite;
空:畫柱線(T乖離<0,收盤價,開盤價,3,0),COLORblack;
畫柱線(T乖離<0,最高價,最低價,0,0),COLORblack;
B11:之字轉向(3,n1/100)>向前引用(之字轉向(3,n1/100),1) AND
向前引用(之字轉向(3,n1/100),1)<向前引用(之字轉向(3,n1/100),2),棒狀線,COLORRED,LINETHICK2;
畫圖示(B11,最低價,4);
S11:之字轉向(3,n1/100)<向前引用(之字轉向(3,n1/100),1) AND
向前引用(之字轉向(3,n1/100),1)>向前引用(之字轉向(3,n1/100),2),棒狀線,COLORBLUE,LINETHICK2;
畫圖示(s11,最高價,5);
B22:之字轉向(3,n2)>向前引用(之字轉向(3,n2),1) AND
向前引用(之字轉向(3,n2),1)<向前引用(之字轉向(3,n2),2),棒狀線,COLORRED,LINETHICK1;
畫柱線(B22,收盤價*1.15,最低價,1,1),COLORRED,LINETHICK2;
S22:之字轉向(3,n2)<向前引用(之字轉向(3,n2),1) AND
向前引用(之字轉向(3,n2),1)>向前引用(之字轉向(3,n2),2),棒狀線,COLORBLUE,LINETHICK1;
畫柱線(S22,最高價-收盤價*0.15,最高價,1,1),COLORBLUE,LINETHICK2;
B33:之字轉向(3,n3)>向前引用(之字轉向(3,n3),1) AND
向前引用(之字轉向(3,n3),1)<向前引用(之字轉向(3,n3),2),棒狀線,COLORRED,LINETHICK2;
畫垂直線(B33),棒狀線,COLORmagenta,LINETHICK2;
S33:之字轉向(3,n3)<向前引用(之字轉向(3,n3),1) AND
向前引用(之字轉向(3,n3),1)>向前引用(之字轉向(3,n3),2),棒狀線,COLORBLUE,LINETHICK2;
畫垂直線(S33),棒狀線,COLORblue,LINETHICK2;
B44:之字轉向(3,n4)>向前引用(之字轉向(3,n4),1) AND
向前引用(之字轉向(3,n4),1)<向前引用(之字轉向(3,n4),2),棒狀線,COLORRED,LINETHICK2;
畫垂直線(B44),棒狀線,COLORred,LINETHICK3;
畫垂直線(B44),棒狀線,COLORblack,LINETHICK1;
S44:之字轉向(3,n4)<向前引用(之字轉向(3,n4),1) AND
向前引用(之字轉向(3,n4),1)>向前引用(之字轉向(3,n4),2),棒狀線,COLORBLUE,LINETHICK2;
畫垂直線(S44),棒狀線,COLORblue,LINETHICK3;
畫垂直線(s44),棒狀線,COLORwhite,LINETHICK1;
B22sp:=上一次條件成立位置(B22);
B11CS:=求和(B11 and b22=0,B22sp+1);
S22:= 條件函數(B11CS=0,0,S22);
買點:B11 and B22=0 and B11CS=1 and B22sp<PP;
畫圖示(買點,最高價+2,1);
顯示數字(買點,最高價+1,最低價,1),COLORRED,LINETHICK2;
畫直線(B22,最低價,買點,最低價,0),COLORRED,LINETHICK2;
B33sp:=上一次條件成立位置(B33);
B11CS:=求和(B11 and b33=0,B33sp+1);
S33:= 條件函數(B11CS=0,0,S33);
最佳買點:B11 and B33=0 and B11CS=1 and B33sp<PP;
顯示文字(最佳買點,最高價+3,'最佳買點'),COLORRED;
S22sp:=上一次條件成立位置(S22);
S11CS:=求和(S11 and S22=0,S22sp+1);
B22:= 條件函數(S11CS=0,0,B22);
賣點:S11 and S22=0 and S11CS=1 and S22sp<PP;
畫圖示(賣點,最高價+2,2);
顯示數字(賣點,最高價+3,最高價,1),COLORWHITE,LINETHICK2;
畫直線(S22,最高價,賣點,最高價,0),COLORBLUE,LINETHICK2;
UU1:=向前賦值(是否最後週期,上一次條件成立位置(B11)+1);
VV1:=UU1>向前引用(UU1,1);
WW1:=向前賦值(VV1,向前引用(上一次條件成立位置(B11),1)+2);
XX1:=WW1>向前引用(WW1,1);
畫直線(XX1,最低價,VV1,最低價,1),COLORcyan,LINETHICK1;
B1:趨勢線數值(xx1,最低價,vv1,最低價,0,0),COLORcyan,LINETHICK1;
UU2:=向前賦值(是否最後週期,上一次條件成立位置(s11)+1);
VV2:=UU2>向前引用(UU2,1);
WW2:=向前賦值(VV2,向前引用(上一次條件成立位置(s11),1)+2);
XX2:=WW2>向前引用(WW2,1);
低1:向前引用(最低價,上一次條件成立位置(VV1)),COLORwhite,短虛線,LINETHICK1;
低2:向前引用(最低價,上一次條件成立位置(XX1)),COLORwhite,短虛線,LINETHICK1;
高1:向前引用(最高價,上一次條件成立位置(VV2)),COLORwhite,短虛線,LINETHICK1;
高2:向前引用(最高價,上一次條件成立位置(XX2)),COLORwhite,短虛線,LINETHICK1;
高高1乖離:=(((高1-高2)/XC-1)*100)-(-100) lINETHICK1;
低低1乖離:=(((低2-低1)/XC-1)*100)-(-100) LINETHICK1;
UU3:=向前賦值(是否最後週期,上一次條件成立位置(B22)+1);
VV3:=UU3>向前引用(UU3,1);
WW3:=向前賦值(VV3,向前引用(上一次條件成立位置(B22),1)+2);
XX3:=WW3>向前引用(WW3,1);
UU4:=向前賦值(是否最後週期,上一次條件成立位置(S22)+1);
VV4:=UU4>向前引用(UU4,1);
WW4:=向前賦值(VV4,向前引用(上一次條件成立位置(S22),1)+2);
XX4:=WW4>向前引用(WW4,1);
低3:向前引用(最低價,上一次條件成立位置(VV3)),COLORyellow,LINETHICK0;
低4:向前引用(最低價,上一次條件成立位置(XX3)),COLORyellow,LINETHICK0;
高3:向前引用(最高價,上一次條件成立位置(VV4)),COLORyellow,LINETHICK0;
高4:向前引用(最高價,上一次條件成立位置(XX4)),COLORyellow,LINETHICK0;
AA:=向前引用(最高價,m1)=最高值(最高價,2*m1+1);
AAA:=信號過濾(AA,m1);
BB:=向前賦值(AAA,m1+1);
CC1:=信號過濾(BB,m1);
CC:=CC1 OR 是否最後週期;
AA2:=向前引用(最低價,m1)=最低值(最低價,2*m1+1);
AAA2:=信號過濾(AA2,m1);
BB2:=向前賦值(AAA2,m1+1);
CC22:=信號過濾(BB2,m1);
CC2:=CC22 AND 求邏輯非(CC1);
EA:=向前賦值(CC,向前引用(上一次條件成立位置(CC2),1)+1);
EB:=EA>向前引用(EA,1); EE:=向前賦值(EB,2);
FF1:=EE>向前引用(EE,1);
EE2:=向前賦值(FF1 AND 統計總數(CC,向前引用(上一次條件成立位置(CC2),1)+2)=0,向前引用(上一次條件成立位置(CC2),1)+2);
FF2:=EE2>向前引用(EE2,1);
EE3:=向前賦值(FF2 AND 統計總數(CC,向前引用(上一次條件成立位置(CC2),1)+2)=0,向前引用(上一次條件成立位置(CC2),1)+2);
FF3:=EE3>向前引用(EE3,1);
JS:=條件函數(CC,統計總數(CC2,向前引用(上一次條件成立位置(CC),1)+1),0);
G1:=條件函數(JS=1 AND CC,上一次條件成立位置(FF1),0);
GA:=條件函數(CC AND 向前引用(最低價,上一次條件成立位置(FF1))>=向前引用(最低價,上一次條件成立位置(FF2)),上一次條件成立位置(FF2),上一次條件成立位置(FF1));
G2:=條件函數(JS=2 AND CC,GA,0);
G3:=條件函數(JS>=3 AND CC,條件函數(CC AND 向前引用(最低價,GA)>=向前引用(最低價,上一次條件成立位置(FF3)),上一次條件成立位置(FF3),GA),0);
GG:=G1+G2+G3;
JA:=向前賦值(CC,GG); JB:=JA>向前引用(JA,1); JJ:=向前賦值(JB,2);
LD:=JJ>向前引用(JJ,1);
LD1:=LD OR 是否最後週期;
hEA:=向前賦值(LD1,向前引用(上一次條件成立位置(CC),1)+1);
hEB:=hEA>向前引用(hEA,1); hEE:=向前賦值(hEB,2);
hFF1:=hEE>向前引用(hEE,1);
hEE2:=向前賦值(hFF1 AND 統計總數(LD1,向前引用(上一次條件成立位置(CC),1)+2)=0,向前引用(上一次條件成立位置(CC),1)+2);
hFF2:=hEE2>向前引用(hEE2,1);
hEE3:=向前賦值(hFF2 AND 統計總數(LD1,向前引用(上一次條件成立位置(CC),1)+2)=0,向前引用(上一次條件成立位置(CC),1)+2);
hFF3:=hEE3>向前引用(hEE3,1);
hJS:=條件函數(LD1,統計總數(CC1,向前引用(上一次條件成立位置(LD1),1)+1),0);
hG1:=條件函數(hJS=1 AND LD1,上一次條件成立位置(hFF1),0);
hGA:=條件函數(LD1 AND 向前引用(最高價,上一次條件成立位置(hFF1))<=向前引用(最高價,上一次條件成立位置(hFF2)),上一次條件成立位置(hFF2),上一次條件成立位置(hFF1));
hG2:=條件函數(hJS=2 AND LD1,hGA,0);
hG3:=條件函數(hJS>=3 AND LD1,條件函數(LD1 AND 向前引用(最高價,hGA)<=向前引用(最高價,上一次條件成立位置(hFF3)),上一次條件成立位置(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=向前賦值(LD1,hGG); hJB:=hJA>向前引用(hJA,1); hJJ:=向前賦值(hJB,2);
HH:=hJJ>向前引用(hJJ,1);
{
DRAWICON(HD,H*1.01,10);
DRAWICON(LD,L*0.995,11);
}
畫直線(LD,最低價,HH,最高價,0),COLORblack,LINETHICK1;
畫直線(HH,最高價,LD,最低價,0),COLORblack,LINETHICK1;
__________________
efef55e3
|