DRAWGBK(CLOSE>0,COLORRGB(1,777,777),COLORRGB(1,222,444),1); J5:MA(CLOSE,5),colorCCFFFF; J10:MA(CLOSE,10),colorFFFF; J20:MA(CLOSE,20),colorF00FF0; J30:MA(CLOSE,30),colorFF00; J60:MA(CLOSE,60),colorFFAA00; J120:MA(CLOSE,120),color9900; J250:MA(CLOSE,250),colorFF0000; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),color9900FF; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorCC00FF; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),colorFF00FF; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),colorFF66FF; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),colorFF99FF; STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),colorFFCCFF; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),colorFF0033; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,7,0),colorFF3333; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),colorFF6633; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),colorFF9933; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),colorFFCC33; STICKLINE(CLOSE<=OPEN,HIGH,LOW,1,0),colorFFFF33; AA:=SYSPARAM(1); CC:=SYSPARAM(2); DD:=AA-CC; IF DD=1 THEN BEGIN DRAWGBK(DD=1,COLORRGB(255,125,0),COLORRGB(255,255,0),1); STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,9,0),colorAAAAAA; STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,6,0),colorBBBBBB; STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,2.4,0),colorCCCCCC; STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,1.1,0),colorDDDDDD; STICKLINE(CLOSE>OPEN,OPEN,CLOSE,9,0),color6666CC; STICKLINE(CLOSE>OPEN,OPEN,CLOSE,6,0),color7777DD; STICKLINE(CLOSE>OPEN,OPEN,CLOSE,2.4,0),color8888EE; STICKLINE(CLOSE>OPEN,OPEN,CLOSE,1.1,0),color9999FF; STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),color1199FF; STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),color1199FF; STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),colorCCCCCC; STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),colorCCCCCC; FH:=HIGH; FL:=LOW; SELL:=0*FH; BUY:=SELL; SIGNAL:=SELL; BOXH:SELL,LINETHICK0; BOXL:SELL,LINETHICK0; VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1]; FOR I=1 TO DATACOUNT DO BEGIN IF HC>1 THEN BEGIN IF LC>2 AND BT<=FH[I] THEN BEGIN BUY[I]:=1; FOR J=I-1 DOWNTO I-HC DO BEGIN BOXH[J]:FH[I-HC],LINETHICK0; BOXL[J]:FL[I-LC],LINETHICK0; END; HC:=0; LC:=0; END; IF BT>FH[I] THEN BEGIN IF LC>2 THEN BEGIN IF BB>=FL[I] THEN BEGIN SELL[I]:=1; FOR J=I-1 DOWNTO I-HC DO BEGIN BOXH[J]:FH[I-HC],LINETHICK0; BOXL[J]:FL[I-LC],LINETHICK0; END; HC:=-1; LC:=0; END;ELSE BEGIN BOXH[I]:FH[I-HC],LINETHICK0; BOXL[I]:FL[I-LC],LINETHICK0; END; END; HC:=HC+1; IF LC>1 THEN BEGIN IF BB<FL[I] THEN BEGIN LC:=LC+1; IF LC=3 THEN BEGIN SIGNAL[I-HC+1]:=1; FOR J=I DOWNTO I-HC+1 DO BEGIN BOXH[J]:FH[I-HC+1],LINETHICK0; BOXL[J]:FL[I-LC+1],LINETHICK0; END; END; END;ELSE LC:=0; END;ELSE IF LC=1 THEN BEGIN IF BB<FL[I] THEN BEGIN LC:=LC+1; END;ELSE LC:=0; END; IF LC=0 AND HC>1 THEN BEGIN BB:=FL[I]; LC:=LC+1; END; END;ELSE BEGIN HC:=0; LC:=0; END; END;ELSE IF HC=1 THEN BEGIN IF BT>FH[I] THEN HC:=HC+1;ELSE BEGIN HC:=0; LC:=0; END; END; IF HC=0 THEN BEGIN BT:=FH[I]; HC:=HC+1; END; END; PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),colorFFFF; PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),colorFFFF; STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),colorFFFF; DRAWICON(BUY,LOW*0.98,4); DRAWICON(SELL,HIGH*1.02,5); END; IF DD=2 THEN BEGIN DRAWGBK(DD=2,COLORRGB(1,888,888),COLORRGB(1,222,444),1); MA3:MA(CLOSE,3); MA5:MA(CLOSE,5),colorFFFF; MA21:MA(CLOSE,21); AA:=REF(HIGH,12)=HHV(HIGH,2*12+1); BB:=BACKSET(AA,12+1); CC:=FILTER(BB,12) AND HIGH=HHV(HIGH,12+1); DRAWICON(CC AND ISLASTBAR=1,HIGH*1.01,10); AA2:=REF(LOW,12)=LLV(LOW,2*12+1); BB2:=BACKSET(AA2,12+1); CC2:=FILTER(BB2,12) AND LOW=LLV(LOW,12+1); DRAWICON(CC2 AND ISLASTBAR=1,LOW*0.998,11); GG:=ISLASTBAR=1 AND REF(CC,BARSLAST(CC)); HH:=BACKSET(GG,BARSLAST(CC)+1); II:=HH>REF(HH,1); JJ:=REF(BARSLAST(CC),1); KK:=BACKSET(II,JJ+2); LL:=KK>REF(KK,1); DRAWLINE(LL,HIGH,II,HIGH,1),colorFF; GG2:=ISLASTBAR=1 AND REF(CC2,BARSLAST(CC2)); HH2:=BACKSET(GG2,BARSLAST(CC2)+1); II2:=HH2>REF(HH2,1); JJ2:=REF(BARSLAST(CC2),1); KK2:=BACKSET(II2,JJ2+2); LL2:=KK2>REF(KK2,1); DRAWLINE(LL2,LOW,II2,LOW,1),colorFF00; LA1:=LLVBARS(LOW,30); LA2:=BACKSET(ISLASTBAR,LA1+1); LA:=FILTER(LA2,30); DRAWICON(LA,LOW,10); LB1:=LLVBARS(LOW,60); LB2:=BACKSET(ISLASTBAR,LB1+1); LB:=FILTER(LB2,60); DRAWICON(LB,LOW,10); LC1:=LLVBARS(LOW,120); LC2:=BACKSET(ISLASTBAR,LC1+1); LC:=FILTER(LC2,120); DRAWICON(LC,LOW,10); LD1:=LLVBARS(LOW,250); LD2:=BACKSET(ISLASTBAR,LD1+1); LD:=FILTER(LD2,250); DRAWICON(LD,LOW,10); LINEVALUE(LD,LOW,LC,LOW,0,0),colorFFFF; LINEVALUE(LC,LOW,LB,LOW,0,0),colorFF9000; LINEVALUE(LB,LOW,LA,LOW,0,0),colorFF00; VAR1:=(2*CLOSE+HIGH+LOW)/4; VAR2:=MA(VAR1,5); VAR3:=MA(VAR1,21); VAR4:=MA(VAR1,60); STICKLINE(VAR1>=VAR2,CLOSE,OPEN,6,0),colorFF00FF; STICKLINE(VAR1>=VAR2,HIGH,LOW,0,0),colorFF00FF; STICKLINE(VAR1<VAR2,CLOSE,OPEN,6,0),colorFFFFFF; STICKLINE(VAR1<VAR2,HIGH,LOW,0,0),colorFFFFFF; STICKLINE(VAR1<=VAR3 AND VAR1>OPEN,CLOSE,OPEN,6,0),colorFFFF; STICKLINE(VAR1<=VAR3 AND VAR1>OPEN,HIGH,LOW,0,0),colorFFFF; STICKLINE(VAR1>=VAR4 AND VAR1>OPEN,CLOSE,OPEN,6,0),colorFF; STICKLINE(VAR1>=VAR4 AND VAR1>OPEN,HIGH,LOW,0,0),colorFF; STICKLINE(VAR1>=VAR4 AND VAR1<OPEN,CLOSE,OPEN,6,0),color646464; STICKLINE(VAR1>=VAR4 AND VAR1<OPEN,HIGH,LOW,0,0),color646464; A3:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1)); B3:=REF(CLOSE,A3+1)>CLOSE AND REF("MACD.DIFF",A3+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA"); DRAWTEXT(FILTER(B3>0,5),LOW-0.38,'MACD底背'),colorFF00; C3:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)); D3:=REF(CLOSE,C3+1)>CLOSE AND REF("KDJ.K",C3+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"); DRAWTEXT(FILTER(D3>0,5),LOW-0.39,'KDJ底背'),colorFFFF; 短线2:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)); 短线1:=REF(CLOSE,短线2+1)>CLOSE AND REF("RSI.RSI1",短线2+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2"); DRAWTEXT(FILTER(短线1>0,5),LOW,'RSI底背'),colorFFFF00; MA10:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1)); VARA:=REF(CLOSE,MA10+1)<CLOSE AND REF("MACD.DIFF",MA10+1)>"MACD.DIFF" AND CROSS("MACD.DEA","MACD.DIFF"); DRAWTEXT(FILTER(VARA>0,5),HIGH+0.08,'MACD顶背'),colorFFF |
