input:N(10,1,100),P(3,1,100),N1(30,1,100),M(0,0,20);
VAR1:=(DATE < 1090601);{把VAR1:=(DATE < 1040601);改成 VAR1:=1;}MID:=MA(CLOSE,N);
UPPER:=(MID + (P * STD(CLOSE,N)));
LOWER:=(MID - (P * STD(CLOSE,N)));
D2:=("BBI" * VAR1);
BBI:=D2;
UPR:=(BBI + (P * STD(BBI,N)));
DWN:=(BBI - (P * STD(BBI,N)));
高界:(UPPER * VAR1);
低界:(LOWER * VAR1),colorFFFF00;
BB:=(UPR - DWN);
CC:=((BBI * (1 + N1)) - (BBI * (1 - N1)));
A:=IF(((CLOSE > BBI) AND (CLOSE < UPR)),BBI,IF((CLOSE > UPR),UPR,IF((CLOSE < DWN),DWN,BBI)));
A1:=IF(((CLOSE > BBI) AND (CLOSE < UPR)),UPR,IF((CLOSE > UPR),UPPER,IF((CLOSE < DWN),LOWER,DWN)));
A3:=((A + A1) / 2);
A2:=IF(((A1 > (A * 0.1)) OR (A1 < (A * 0.9))),A3,A1);
AB1:=UPR;
上界:(((2 * AB1) - REF(AB1,1)) + (((M / 100) * (AB1 - REF(AB1,1))) * VAR1)),SHIFT1,LINETHICK2,colorFF00FF;
AB:=BBI;
中轨:(((2 * AB) - REF(AB,1)) + (((M / 100) * (AB - REF(AB,1))) * VAR1)),SHIFT1,LINETHICK2,colorFF00;
AB2:=DWN;
下界:(((2 * AB2) - REF(AB2,1)) + (((M / 100) * (AB2 - REF(AB2,1))) * VAR1)),SHIFT1,LINETHICK2,colorFFFF;
AB3:=MA(CLOSE,3);
WW:=(((2 * AB3) - REF(AB3,1)) + ((M / 100) * (AB3 - REF(AB3,1))));
DRAWNUMBER(ISLASTBAR,上界,上界,2),SHIFT1,colorFFFFFF;
DRAWNUMBER(ISLASTBAR,中轨,中轨,2),SHIFT1,colorFFFFFF;
DRAWNUMBER(ISLASTBAR,下界,下界,2),SHIFT1,colorFFFFFF;
PARTLINE((CLOSE >= REF(中轨,1)),中轨),SHIFT1,LINETHICK2,colorFF;
PARTLINE((CLOSE >= REF(上界,1)),上界),SHIFT1,LINETHICK2,colorFF;
PARTLINE((CLOSE <= REF(下界,1)),下界),SHIFT1,LINETHICK2,colorFF00;
DRAWICON(CROSS(CLOSE,REF(下界,1)),REF(下界,1),10);
DRAWICON(CROSS(REF(上界,1),CLOSE),REF(上界,1),11);
DRAWICON((CROSS(REF(中轨,1),CLOSE) OR CROSS(CLOSE,REF(中轨,1))),REF(中轨,1),12);{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
