咨詢內容：

老師好，幫忙改一下指標

?

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

博易技術人員： VARA:=LLV(LOW,30);
VARB:=HHV(HIGH,30);
VARC:=EMA((CLOSE-VARA)/(VARB-VARA)*4,4)*25;
QS:=VARC,COLORWHITE;
STICKLINE(VARC<10 && 100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))>97,0,25,10,0),COLORYELLOW;
STICKLINE(VARC>90,100,85,10,0),COLORRED;
VARD:=87.5;VARA:=LLV(LOW,35);

VARE:=(VARC-LLV(VARC,4))/(HHV(VARC,4)-LLV(VARC,4))*4*25;
DRAWTEXT(IF(CROSS(QS,VARD) && VARE=100,50,0),56,'目標');
DRAWTEXT(IF(CROSS(VARD,QS),87,0),85,'跑');
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR8:=LLV(LOW,30);
VARAA:=HHV(HIGH,30);
B:=EMA((VAR6-VAR8)/(VARAA-VAR8)*100,8);
B1:=EMA(B,5);
STICKLINE(B>0 && B-B1>=0,79,80,10,0),COLORGREEN;
STICKLINE(B>0 && B-B1<0,79,80,10,0),COLORGREEN;
STICKLINE(B>0 && B-B1>=0,49,50,10,0),COLORRED;
STICKLINE(B>0 && B-B1<0,49,50,10,0),COLORRED;
STICKLINE(B>0 && B-B1>=0,19,20,10,0),COLORGREEN;
STICKLINE(B>0 && B-B1<0,19,20,10,0),COLORGREEN;
STICKLINE(B-B1>0,B,B1,10,1),COLORRED;
STICKLINE(B-B1<0,B,B1,10,1),COLORCYAN;
V1:=(2*CLOSE+HIGH+LOW)/4;?
V2:=LLV(LOW,21);
VA:=HHV(HIGH,34);
FB:=EMA((V1-V2)/(VA-V2)*100,13);
FBB:=EMA((0.667*REF(FB,1)+0.333*FB),2);
ZLX:EMA(0.382*REF(FB,2)+0.618*FB,12),COLORYELLOW; 謝謝老師，還有一個文華的主圖指標，不能用，也得麻煩改一下
?
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA120:=MA(CLOSE,120);
HIGHN:=10;
LOWN:=10;
HIGHDISPLAY:=0;
LOWDISPLAY:=0;
ZGDISPLAY:=0;
MADISPLAY:=0;
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN)ANDH=HHV(H,HIGHN+1);
//DRAWICON(CROSS(CC,0.5),H,'ICO156');
DDD:=BARSLAST(CC);
CURRBARSCOUNT:=DATACOUNT-BARPOS;
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);
{頂部}DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=REFX1(DINGBUTS,10000);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=REFX1(DINGBUTS1,10000);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高點壓力:TRENDLINES(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H),RGB(0,255,64),DOT;
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN)ANDL=LLV(L,LOWN+1);
//DRAWICON(CROSS(CC1,0.5),L,'ICO155');
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=REFX1(DDTS1,10000);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=REFX1(DDTS2,10000);
低點支撐:TRENDLINES(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L),COLORRED,DOT;
ZGSTAR:=(高點壓力+低點支撐)/2;
ZGEND:=REFX1((高點壓力+低點支撐)/2,10000);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
操盤線:EMA(EMA(C,10),10),RGB(255,0,128),LINETHICK3;
B:=操盤線>REF(操盤線,1);
IF(B-1,操盤線,NULL),RGB(0,128,255),LINETHICK3;
AAA:=EMA(C,5)>EMA(C,20);
BB:=EMA(C,5)<EMA(C,20);
CCA:=EMA(C,5)>EMA(C,10);
CC1A:=EMA(C,5)<EMA(C,10);
DD:=CLOSE<OPEN;


EMA(CLOSE,90),RGB(0,255,0),LINETHICK3;
DRAWCOLORLINE(EMA(C,90)>REF(EMA(C,90),1),EMA(C,90),COLORRED,RGB(0,255,0)),LINETHICK3;

EMA30:EMA(CLOSE,0);//定義30周期收盤價的指數平滑移動平均值。
TMP:=CLOSE-EMA2(CLOSE,30);
//PLAYSOUND(TMP>0.1&&REF(TMP<=0.1,1)||TMP<=0.1&&REF(TMP>0.1,1),'A');
DRAWLINE(TMP>0.1&&C<=O,LOW,TMP>0.1,HIGH,COLORRED);
DRAWLINE(TMP<=0.1&&C<=O,LOW,TMP<=0.1,HIGH,COLORGREEN);
STICKLINE(TMP>0&&C<=O,OPEN,CLOSE,COLORRED,0);
STICKLINE(TMP<=0&&C<=O,OPEN,CLOSE,COLORGREEN,0);
DRAWLINE(TMP>0.1&&C>=O,LOW,TMP>0.1,O,COLORRED);
DRAWLINE(TMP>0.1&&C>=O,H,TMP>0.1,C,COLORRED);
DRAWLINE(TMP<=0.1&&C>=O,LOW,TMP<=0.1,O,COLORGREEN);
DRAWLINE(TMP<=0.1&&C>=O,H,TMP<=0.1,C,COLORGREEN);
STICKLINE(TMP>0&&C>=O,OPEN,CLOSE,COLORRED,1);
STICKLINE(TMP<=0&&C>=O,OPEN,CLOSE,COLORGREEN,1);


N:=1;
N1:=1;
N2:=1;
HH:=HHV(HIGH,1)/5+HHV(HIGH,2)/5+HHV(HIGH,2)/5+HHV(HIGH,5)/5+HHV??(HIGH,8)/5;
LL:=LLV(LOW,1)/5+LLV(LOW,2)/5+LLV(LOW,2)/5+LLV(LOW,5)/5+LLV(LOW,8)/5;
H1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
L1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
GG:=IFELSE(K2=1,H2,L2);
GG1:=VALUEWHEN(ISLASTBAR,GG);
TMP1:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
DRAWTEXT(CROSS(TMP1,0),HH,'賣↓'),COLORGREEN;
DRAWTEXT(CROSS(0,TMP1),LL,'買↑'),COLORYELLOW;
OCH:=MAX(OPEN,CLOSE);
OCL:=MIN(OPEN,CLOSE);
? 來源 程序化久久網