咨詢內容：

請老師幫忙修改

AMV0:=VOL*(O+C)/2;
TY:=C;
AMOUNT:=AVPRICE*V;
A1:=REF(TY,10)=HHV(TY,2*10+1);?
B1:=FILTER(A1,10);?
C1:=BACKSET(B1,10+1);?
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);?
B2:=FILTER(A2,10);?
C2:=BACKSET(B2,10+1);?
LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD));?
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(T1,A,A),COLORFF00FF,POINTDOT;
STICKLINE(T1,A,A,9,0),COLORFF00FF;
波谷:IF(T2,B,B),COLOR80FF00,POINTDOT;
STICKLINE(T2,B,B,9,0),COLOR80FF00;
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIGZAG(C,6,1)>REF(ZIGZAG(C,6,1),1) AND REF(ZIGZAG(C,6,1),1)<=REF(ZIGZAG(C,6,1),2) AND REF(ZIGZAG(C,6,1),2)<=REF(ZIGZAG(C,6,1),3);
VAR12:=ZIGZAG(C,6,1)<REF(ZIGZAG(C,6,1),1) AND REF(ZIGZAG(C,6,1),1)>=REF(ZIGZAG(C,6,1),2) AND REF(ZIGZAG(C,6,1),2)>=REF(ZIGZAG(C,6,1),3);
VAR13:=ZIGZAG(C,22,1)>REF(ZIGZAG(C,22,1),1) AND REF(ZIGZAG(C,22,1),1)<=REF(ZIGZAG(C,22,1),2) AND REF(ZIGZAG(C,22,1),2)<=REF(ZIGZAG(C,22,1),3);
VAR14:=ZIGZAG(C,22,1)<REF(ZIGZAG(C,22,1),1) AND REF(ZIGZAG(C,22,1),1)>=REF(ZIGZAG(C,22,1),2) AND REF(ZIGZAG(C,22,1),2)>=REF(ZIGZAG(C,22,1),3);
VAR15:=ZIGZAG(C,51,1)>REF(ZIGZAG(C,51,1),1) AND REF(ZIGZAG(C,51,1),1)<=REF(ZIGZAG(C,51,1),2) AND REF(ZIGZAG(C,51,1),2)<=REF(ZIGZAG(C,51,1),3);
VAR16:=ZIGZAG(C,51,1)<REF(ZIGZAG(C,51,1),1) AND REF(ZIGZAG(C,51,1),1)>=REF(ZIGZAG(C,51,1),2) AND REF(ZIGZAG(C,51,1),2)>=REF(ZIGZAG(C,51,1),3);
VAR17:=ZIGZAG(C,72,1)>REF(ZIGZAG(C,72,1),1) AND REF(ZIGZAG(C,72,1),1)<=REF(ZIGZAG(C,72,1),2) AND REF(ZIGZAG(C,72,1),2)<=REF(ZIGZAG(C,72,1),3);
VAR18:=ZIGZAG(C,72,1)<REF(ZIGZAG(C,72,1),1) AND REF(ZIGZAG(C,72,1),1)>=REF(ZIGZAG(C,72,1),2) AND REF(ZIGZAG(C,72,1),2)>=REF(ZIGZAG(C,72,1),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'買'),COLORRED;
DRAWTEXT(賣１>0,HIGH*1.02,'賣'),COLORGREEN;//S:
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
X1:=(C+L+H)/3;?
X2:=EMA(X1,6);?
X3:=EMA(X2,5);?
L2:=13;
BIAS2 := (CLOSE-MA(CLOSE,L2))/MA(CLOSE,L2)*100;
GR1:=BARSLAST(BETWEEN(BIAS2,0,5));
AA1:=MA(C,5);
BB1:=MA(C,15);
AF:=CROSS(AA1,BB1);
STICKLINE1(AF,LLV(L,4),LLV(L,4),50,1),COLORRED,LINETHICK3;
DRAWTEXT(AF,LLV(L,4),'止損線'),COLORYELLOW;
VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR02:=HIGH-REF(HIGH,1);
VAR03:=REF(LOW,1)-LOW;
VAR04:=SUM(IF(VAR02>0 AND VAR02>VAR03,VAR02,0),25);
VAR05:=SUM(IF(VAR03>0 AND VAR03>VAR02,VAR03,0),25);
VAR06:=VAR04*100/VAR01;
VAR07:=VAR05*100/VAR01;
VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15);
VAR09:=(VAR08+REF(VAR08,15))/2;
LC:=REF(CLOSE,1);
RSI:=SMA(ABS(CLOSE-LC),4.1,1)*100;
//DRAWICON(CROSS(84,RSI) ,H*1.03,5);
//DRAWICON(CROSS(RSI,11) ,L*0.99,4);
VAR27:=REF(CLOSE,1);
VAR28:=MAX(CLOSE-VAR27,0)/SMA(ABS(CLOSE-VAR27),6,1)*100;
//DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5);
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'☆'),LINETHICK7 , COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS),H*1.02,'賣'),LINETHICK7,COLORGREEN;
VAR31:=ZIGZAG(C,10,1)<REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)>REF(ZIGZAG(C,10,1),2);
VAR32:=ZIGZAG(C,10,1)>REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)<REF(ZIGZAG(C,10,1),2);
STICKLINE1(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;
STICKLINE1(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;
STICKLINE1(VAR31,H,L,1,0),COLORYELLOW,LINETHICK2;
STICKLINE1(VAR32,C,O,1,0),COLORFF00FF;
DRAWCOLORKLINE(ISUP,COLORRED,1);//收盤價大于開盤價，繪制紅色空心K線
DRAWCOLORKLINE(ISDOWN,COLORCYAN,0);//收盤價小于開盤價，繪制青色實心K線
DRAWCOLORKLINE(ISEQUAL,COLORWHITE,1);//收盤價等于開盤價，繪制白色十字線
?

?

?來源:程序化99網（ www.tumamayizhan.com ）

博易技術人員： AMV0:=VOL*(O+C)/2;
TY:=C;
AMOUNT1:=DYNAINFO(11)*V;
A1:=REF(TY,10)=HHV(TY,2*10+1);?
B1:=FILTER(A1,10);?
C1:=BACKSET(B1,10+1);?
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);?
B2:=FILTER(A2,10);?
C2:=BACKSET(B2,10+1);?
LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD));?
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(T1,A,A),COLORFF00FF,POINTDOT;
STICKLINE(T1,A,A,9,0),COLORFF00FF;
波谷:IF(T2,B,B),COLOR80FF00,POINTDOT;
STICKLINE(T2,B,B,9,0),COLOR80FF00;
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(C,6,1)>REF(ZIG(C,6,1),1) AND REF(ZIG(C,6,1),1)<=REF(ZIG(C,6,1),2) AND REF(ZIG(C,6,1),2)<=REF(ZIG(C,6,1),3);
VAR12:=ZIG(C,6,1)<REF(ZIG(C,6,1),1) AND REF(ZIG(C,6,1),1)>=REF(ZIG(C,6,1),2) AND REF(ZIG(C,6,1),2)>=REF(ZIG(C,6,1),3);
VAR13:=ZIG(C,22,1)>REF(ZIG(C,22,1),1) AND REF(ZIG(C,22,1),1)<=REF(ZIG(C,22,1),2) AND REF(ZIG(C,22,1),2)<=REF(ZIG(C,22,1),3);
VAR14:=ZIG(C,22,1)<REF(ZIG(C,22,1),1) AND REF(ZIG(C,22,1),1)>=REF(ZIG(C,22,1),2) AND REF(ZIG(C,22,1),2)>=REF(ZIG(C,22,1),3);
VAR15:=ZIG(C,51,1)>REF(ZIG(C,51,1),1) AND REF(ZIG(C,51,1),1)<=REF(ZIG(C,51,1),2) AND REF(ZIG(C,51,1),2)<=REF(ZIG(C,51,1),3);
VAR16:=ZIG(C,51,1)<REF(ZIG(C,51,1),1) AND REF(ZIG(C,51,1),1)>=REF(ZIG(C,51,1),2) AND REF(ZIG(C,51,1),2)>=REF(ZIG(C,51,1),3);
VAR17:=ZIG(C,72,1)>REF(ZIG(C,72,1),1) AND REF(ZIG(C,72,1),1)<=REF(ZIG(C,72,1),2) AND REF(ZIG(C,72,1),2)<=REF(ZIG(C,72,1),3);
VAR18:=ZIG(C,72,1)<REF(ZIG(C,72,1),1) AND REF(ZIG(C,72,1),1)>=REF(ZIG(C,72,1),2) AND REF(ZIG(C,72,1),2)>=REF(ZIG(C,72,1),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'買'),COLORRED;
DRAWTEXT(賣１>0,HIGH*1.02,'賣'),COLORGREEN;//S:
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
X1:=(C+L+H)/3;?
X2:=EMA(X1,6);?
X3:=EMA(X2,5);?
L2:=13;
BIAS2 := (CLOSE-MA(CLOSE,L2))/MA(CLOSE,L2)*100;
GR1:=BARSLAST(BETWEEN(BIAS2,0,5));
AA1:=MA(C,5);
BB1:=MA(C,15);
AF:=CROSS(AA1,BB1);
STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),COLORRED,LINETHICK3;
DRAWTEXT(AF,LLV(L,4),'止損線'),COLORYELLOW;
VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR02:=HIGH-REF(HIGH,1);
VAR03:=REF(LOW,1)-LOW;
VAR04:=SUM(IF(VAR02>0 AND VAR02>VAR03,VAR02,0),25);
VAR05:=SUM(IF(VAR03>0 AND VAR03>VAR02,VAR03,0),25);
VAR06:=VAR04*100/VAR01;
VAR07:=VAR05*100/VAR01;
VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15);
VAR09:=(VAR08+REF(VAR08,15))/2;
LC:=REF(CLOSE,1);
RSI:=SMA(ABS(CLOSE-LC),4.1,1)*100;
//DRAWICON(CROSS(84,RSI) ,H*1.03,5);
//DRAWICON(CROSS(RSI,11) ,L*0.99,4);
VAR27:=REF(CLOSE,1);
VAR28:=MAX(CLOSE-VAR27,0)/SMA(ABS(CLOSE-VAR27),6,1)*100;
//DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5);
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'☆'),LINETHICK7 , COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS),H*1.02,'賣'),LINETHICK7,COLORGREEN;
VAR31:=ZIG(C,10,1)<REF(ZIG(C,10,1),1) AND REF(ZIG(C,10,1),1)>REF(ZIG(C,10,1),2);
VAR32:=ZIG(C,10,1)>REF(ZIG(C,10,1),1) AND REF(ZIG(C,10,1),1)<REF(ZIG(C,10,1),2);
STICKLINE(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR31,H,L,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR32,C,O,1,0),COLORFF00FF;
DRAWKLINEEX(ISUP,H,O,L,C),COLORRED;//收盤價大于開盤價，繪制紅色空心K線
DRAWKLINEEX(ISDOWN,H,O,L,C),COLORCYAN;//收盤價小于開盤價，繪制青色實心K線
DRAWKLINEEX(ISEQUAL,H,O,L,C),COLORWHITE;//收盤價等于開盤價，繪制白色十字線 來源 程序化久久網