[求助]請老師把公式改文華的

作者：文華財經來源：cxh99.com 發布時間：2020年06月07日

咨詢內容： ?

tja:=(2*C+H+L)/4;
tjb:=LLV(L,9);
tja1:=HHV(H,9);
BX:=EMA((tja-tjb)/(tja1-tjb)*100,8);
BX1:=EMA(BX,5);
PARTLINE(bX>BX1,2),COLOR0000FF,LINETHICK5;DRAWTEXT(ISLASTBAR,2,'短波段',ColorYellow;
PARTLINE(BX<=BX1,2),ColorGreen,LINETHICK5;
Mm1:=EMA(C,7);Mm2:=EMA(C,21);
MD1:= Mm1-Mm2;
MM:=EMA(MD1,5);
PARTLINE( MD1>=MM AND MD1<0,1.5),COLORMAGENTA, LINETHICK5;DRAWTEXT(ISLASTBAR,1.5,'短線',COLORRED;
PARTLINE( MD1>=MM AND MD1>=0,1.5),COLORRED, LINETHICK5;
PARTLINE( MD1<MM AND MD1>=0,1.5), COLORGREEN, LINETHICK5;
PARTLINE( MD1<MM AND MD1<0,1.5),COLORWHITE, LINETHICK5;
?
EME13:=EMA(EMA(C,21),21);
XLPL:=(EME13-REF(EME13,1))/REF(EME13,1)*1000;
XLM5:=(MA(C,5)/REF(MA(C,5),1)-1)*1000;
MV10:=MA(V,90);
var1:=ref(v,1)>MV10 and ref(v,2)>MV10 and ref(v,3)>MV10;
VAR2:=(ref(v,1)+ref(v,2)+ref(v,3))/3;
PARTLINE(XLPL<0 AND XLM5>0,1),COLORFF00FF,LINETHICK5;DRAWTEXT(ISLASTBAR,1,'量線',COLORFFFF00;
PARTLINE(VAR2>=1.0*MV10 and VAR2<1.3*MV10,1),COLORFF00FF,LINETHICK5;
PARTLINE(XLPL>=0 AND XLM5>0,1),COLORRED,LINETHICK5;
PARTLINE(VAR2>=1.3*MV10,1),COLORred,LINETHICK5;
PARTLINE(XLPL>=0 AND XLM5<=0,1),COLORGREEN,LINETHICK5;
PARTLINE(VAR2<1.0*MV10,1),ColorGreen,LINETHICK5;
PARTLINE(XLPL<0 AND XLM5<=0,1),COLORWHITE,LINETHICK5;
PARTLINE(XLPL<0 AND XLM5>0,0.5),COLORFF00FF,LINETHICK5;
DRAWTEXT(ISLASTBAR,0.5,'中線',COLORFFFFFF;
PARTLINE(XLPL>=0 AND XLM5>0,0.5),COLORRED,LINETHICK5;
PARTLINE(XLPL>=0 AND XLM5<=0,0.5),COLORGREEN,LINETHICK5;
PARTLINE(XLPL<0 AND XLM5<=0,0.5),COLORWHITE,LINETHICK5;
MIB:=(2*CLOSE+LOW+OPEN+HIGH)/5;
長線:=(20*MIB+19*REF(MIB,1)+18*REF(MIB,2)+17*REF(MIB,3)+16*REF(MIB,4)+15*REF(MIB,5)+14*REF(MIB,6)+13*REF(MIB,7)+12*REF(MIB,8)+11*REF(MIB,9)+
10*REF(MIB,10)+9*REF(MIB,11)+8*REF(MIB,12)+7*REF(MIB,13)+6*REF(MIB,14)+5*REF(MIB,15)+4*REF(MIB,16)+3*REF(MIB,17)+2*REF(MIB,18)+REF(MIB,20))/210;
PARTLINE(長線>REF(長線,1),0),LINETHICK5,COLORRED;DRAWTEXT(ISLASTBAR,-0.2,'nbsp; 長線',COLORFF00FF;
PARTLINE(長線<REF(長線,1),0),LINETHICK5,COLORGREEN;
?
?來源:程序化99
文華技術人員： ?參考：
TJA:=(2*C+H+L)/4; TJB:=LLV(L,9); TJA1:=HHV(H,9); BX:=EMA((TJA-TJB)/(TJA1-TJB)*100,8); BX1:=EMA(BX,5); PARTLINE1(BX>BX1,2),COLOR0000FF,LINETHICK5; DRAWTEXT(ISLASTBAR,2,'短波段',COLORYELLOW; PARTLINE1(BX<=BX1,2),COLORGREEN,LINETHICK5;
MM1:=EMA(C,7); MM2:=EMA(C,21); MD1:= MM1-MM2; MM:=EMA(MD1,5); PARTLINE1( MD1>=MM AND MD1<0,1.5),COLORMAGENTA, LINETHICK5; DRAWTEXT(ISLASTBAR,1.5,'短線',COLORRED; PARTLINE1( MD1>=MM AND MD1>=0,1.5),COLORRED, LINETHICK5; PARTLINE1( MD1<MM AND MD1>=0,1.5), COLORGREEN, LINETHICK5; PARTLINE1( MD1<MM AND MD1<0,1.5),COLORWHITE, LINETHICK5; ? EME13:=EMA(EMA(C,21),21); XLPL:=(EME13-REF(EME13,1))/REF(EME13,1)*1000; XLM5:=(MA(C,5)/REF(MA(C,5),1)-1)*1000; MV10:=MA(V,90); VAR1:=REF(V,1)>MV10 AND REF(V,2)>MV10 AND REF(V,3)>MV10; VAR2:=(REF(V,1)+REF(V,2)+REF(V,3))/3; PARTLINE1(XLPL<0 AND XLM5>0,1),COLORFF00FF,LINETHICK5; DRAWTEXT(ISLASTBAR,1,'量線',COLORFFFF00; PARTLINE1(VAR2>=1.0*MV10 AND VAR2<1.3*MV10,1),COLORFF00FF,LINETHICK5; PARTLINE1(XLPL>=0 AND XLM5>0,1),COLORRED,LINETHICK5; PARTLINE1(VAR2>=1.3*MV10,1),COLORRED,LINETHICK5; PARTLINE1(XLPL>=0 AND XLM5<=0,1),COLORGREEN,LINETHICK5; PARTLINE1(VAR2<1.0*MV10,1),COLORGREEN,LINETHICK5; PARTLINE1(XLPL<0 AND XLM5<=0,1),COLORWHITE,LINETHICK5;
PARTLINE1(XLPL<0 AND XLM5>0,0.5),COLORFF00FF,LINETHICK5; DRAWTEXT(ISLASTBAR,0.5,'中線',COLORFFFFFF; PARTLINE1(XLPL>=0 AND XLM5>0,0.5),COLORRED,LINETHICK5; PARTLINE1(XLPL>=0 AND XLM5<=0,0.5),COLORGREEN,LINETHICK5; PARTLINE1(XLPL<0 AND XLM5<=0,0.5),COLORWHITE,LINETHICK5;
MIB:=(2*CLOSE+LOW+OPEN+HIGH)/5; 長線:=(20*MIB+19*REF(MIB,1)+18*REF(MIB,2)+17*REF(MIB,3)+16*REF(MIB,4)+15*REF(MIB,5)+14*REF(MIB,6)+13*REF(MIB,7)+12*REF(MIB,8)+11*REF(MIB,9)+ 10*REF(MIB,10)+9*REF(MIB,11)+8*REF(MIB,12)+7*REF(MIB,13)+6*REF(MIB,14)+5*REF(MIB,15)+4*REF(MIB,16)+3*REF(MIB,17)+2*REF(MIB,18)+REF(MIB,20))/210; PARTLINE1(長線>REF(長線,1),0),LINETHICK5,COLORRED; DRAWTEXT(ISLASTBAR,-0.2,'nbsp; 長線',COLORFF00FF; PARTLINE1(長線<REF(長線,1),0),LINETHICK5,COLORGREEN;