麻煩老師，把通達信BKD主圖指標加載到文華，謝謝。

作者：文華財經來源：cxh99.com 發布時間：2018年08月28日

咨詢內容： ?{BKD主圖}
{N:=31}
J5:MA(C,5),COLORRED,LINETHICK1;
Z5:=REF(MA(C,5),1);
IF(J5>=Z5,J5,DRAWNULL),COLORWHITE,LINETHICK1;
IF(J5<Z5,J5,DRAWNULL),COLORGRAY ,LINETHICK1;
J250:MA(C,250),COLORRED,LINETHICK2;
Z250:=REF(MA(C,250),1);
IF(J250>=Z250,J250,DRAWNULL),COLOR0000FF,LINETHICK2;
IF(J250<Z250,J250,DRAWNULL),COLORBLUE,LINETHICK2;
MA1:=MA(CLOSE,7);
MA2:=MA(CLOSE,13);
MA3:=MA(CLOSE,34);
MA4:=MA(CLOSE,50);
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)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
B:=IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'入',COLORRED;
S:=IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
DRAWTEXT(賣１>0,HIGH*1.02,'出',COLORGREEN;
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));
BOLL:MA(CLOSE,N),COLORBROWN;
UB:BOLL+2*STD(CLOSE,N),LINETHICK1,COLORYELLOW;
LB:BOLL-2*STD(CLOSE,N),LINETHICK1,COLORMAGENTA;
DRAWICON(CURRBARSCOUNT=N,H*1.03,14);
DRAWICON(CURRBARSCOUNT=250,H*1.03,25);
上升:IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),LINETHICK3,COLORRED;
下降:IF(BOLL<=REF(BOLL,1),BOLL,DRAWNULL),LINETHICK3,COLORGREEN;
?
?來源:程序化99
文華技術人員： ?參考：
N:=31; J5:MA(C,5),COLORRED,LINETHICK1; Z5:=REF(MA(C,5),1); IF(J5>=Z5,J5,NULL),COLORWHITE,LINETHICK1; IF(J5<Z5,J5,NULL),COLORGRAY ,LINETHICK1; J250:MA(C,250),COLORRED,LINETHICK2; Z250:=REF(MA(C,250),1); IF(J250>=Z250,J250,NULL),COLOR0000FF,LINETHICK2; IF(J250<Z250,J250,NULL),COLORBLUE,LINETHICK2; MA1:=MA(CLOSE,7); MA2:=MA(CLOSE,13); MA3:=MA(CLOSE,34); MA4:=MA(CLOSE,50); 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 &&HIGH>L&&REF(ZIGZAG(C,6,1),1)<=REF(ZIGZAG(C,6,1),2)&&REF(ZIGZAG(C,6,1),2)<=REF(ZIGZAG(C,6,1),3),1,0); 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) && REF(ZIGZAG(C,72,1),1)<=REF(ZIGZAG(C,72,1),2) &&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); //B:=IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW; //DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'入',COLORRED; S:=IF(賣１>0,HIGH*1.01,NULL),CROSSDOT,LINETHICK3,COLORGREEN; DRAWTEXT(賣１>0,HIGH*1.02,'出',COLORGREEN; 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)); BOLL1:MA(CLOSE,N),COLORCYAN; UB:BOLL1+2*STD(CLOSE,N),LINETHICK1,COLORYELLOW; LB:BOLL1-2*STD(CLOSE,N),LINETHICK1,COLORMAGENTA; CURRBARSCOUNT:=DATACOUNT-BARPOS; DRAWICON(CURRBARSCOUNT=N,H*1.03,14); DRAWICON(CURRBARSCOUNT=250,H*1.03,25); 上升:IF(BOLL1>REF(BOLL1,1),BOLL1,NULL),LINETHICK3,COLORRED; 下降:IF(BOLL1<=REF(BOLL1,1),BOLL1,NULL),LINETHICK3,COLORGREEN;