主图均线: KEY:=DATE<=1900731; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); ZHE:=EMA(EMA(EMA(EMA(ZHC,2),2),5),5); C1:=SMA(EMA(ZHE,1),2,1); C3:=SMA(EMA(ZHE,3),2,1); C6:=SMA(EMA(ZHE,6),2,1); C7:=SMA(EMA(ZHE,7),2,1); IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN STICKLINE(C1>=C6,C1,C6,8,1),colorFF00FF; STICKLINE(C1>=C6,C7,C3,8,0),colorFF00FF; STICKLINE(C1<=C6,C1,C6,8,1),colorFF00; STICKLINE(C1<=C6,C7,C3,8,0),colorFF00; 中线:=MA(ZHE,N),LINEDOT,colorBROWN; 阻力:=中线+P*STD(ZHE,N),LINEDOT,color808080; 支撑:=中线-P*STD(ZHE,N),LINEDOT,color808080; 成本价:"AMOUNT#day"/"VOL#day"/100*KEY,LINETHICK0,PRECISION2,COLORGREEN; 分水岭:EMA(EMA(EMA(EMA((MA(ZHC,3)+MA(ZHC,6)+MA(ZHC,12)+MA(ZHC,24))/4,2),2),5),5),colorFFFF00; //趋势线:ZHE,LINETHICK2,PRECISION2,colorFFFF00;趋势线:ZHE,LINETHICK2,PRECISION2,colorFFFF00; 生命线:EMA(EMA(EMA(EMA(MA(ZHC,60),2),2),5),5),colorFF; 主力:EMA(EMA(EMA(EMA(MA(ZHC,103),2),2),5),5),colorFF00FF; 年线:EMA(EMA(EMA(EMA(MA(ZHC,453),2),2),5),5),colorFFFF; 获利盘:=WINNER(成本价)*100; 集中度:=(COST(95)-COST(5))/(COST(95)+COST(5))*100*KEY; DRAWTEXTEX(KEY,1,18,0,'当前获利盘比例:'+NUMTOSTR(获利盘,1)+'% 筹码集中度:'+NUMTOSTR(集中度,1)+'%'),colorFF00FF; IF DATATYPE=1 OR DATATYPE=2 OR DATATYPE=3 OR DATATYPE=4 OR DATATYPE=5 THEN VERTLINE(TIME=150000),POINTDOT,color80;ELSE IF DATATYPE=11 THEN VERTLINE(TIME=140000),POINTDOT,color80; PARTLINE(KEY,分水岭),LINETHICK2,colorFFFF00; PARTLINE(KEY,生命线),LINETHICK2,colorFF; PARTLINE(KEY,主力),LINETHICK2,colorFF00FF; PARTLINE(KEY,年线),LINETHICK3,colorFFFF; BC:=ZHC>分水岭 AND ZHC>中线; SC:=ZHC<分水岭 AND ZHC<中线; STICKLINE(BC,LOW,HIGH,0.1,1),colorFFFF; STICKLINE(BC AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFFFF; STICKLINE(BC AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF; STICKLINE(SC,LOW,HIGH,0.1,1),colorFF00; STICKLINE(SC AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF00; STICKLINE(SC AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFF00; END;ELSE BEGIN END; 主图均线: KEY:=DATE<=1900731; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); ZHE:=EMA(EMA(EMA(EMA(ZHC,2),2),5),5); FSL:=EMA(EMA(EMA(EMA((MA(ZHC,3)+MA(ZHC,6)+MA(ZHC,12)+MA(ZHC,24))/4,2),2),5),5); MAINX:=EMA(EMA(EMA(EMA(MA(ZHC,60),2),2),5),5); FSLMAINX:=EMA(FSL-MAINX,3); 涨停板:=IF(KEY,CLOSE/REF(CLOSE,1)>1.097,0); 跌停板:=IF(KEY,REF(CLOSE,1)/CLOSE>1.097,0); 涨停板ST:=IF(KEY,CLOSE/REF(CLOSE,1)>1.049,0); 跌停板ST:=IF(KEY,REF(CLOSE,1)/CLOSE>1.049,0); ST0:=STRNCMP(STKNAME,'S',1)=0; ST1:=STRNCMP(STKNAME,'ST',2)=0; ST2:=STRNCMP(STKNAME,'*ST',3)=0; ST3:=STRNCMP(STKNAME,'SST',3)=0; ST4:=STRNCMP(STKNAME,'S*ST',4)=0; C1:=SMA(EMA(ZHE,1),2,1); C3:=SMA(EMA(ZHE,3),2,1); C6:=SMA(EMA(ZHE,6),2,1); C7:=SMA(EMA(ZHE,7),2,1); IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN STICKLINE(C1>=C6,C1,C6,8,1),colorFF00FF; STICKLINE(C1>=C6,C7,C3,8,0),colorFF00FF; STICKLINE(C1<=C6,C1,C6,8,1),colorFF00; STICKLINE(C1<=C6,C7,C3,8,0),colorFF00; 中线:MA(ZHE,N),colorBROWN; 阻力:中线+P*STD(ZHE,N),color808080; 支撑:中线-P*STD(ZHE,N),color808080; 成本价:"AMOUNT#day"/"VOL#day"/100*KEY,LINETHICK0,PRECISION2,COLORGREEN; 获利盘:=WINNER(成本价)*100; 集中度:=(COST(95)-COST(5))/(COST(95)+COST(5))*100*KEY; DRAWTEXTEX(KEY,1,18,0,'当前获利盘比例:'+NUMTOSTR(获利盘,1)+'% 筹码集中度:'+NUMTOSTR(集中度,1)+'%'),colorFF00FF; 趋势线:ZHE,LINETHICK2,PRECISION2,colorFFFF00; 生命线:MAINX,LINETHICK2,PRECISION2,colorFF; 分水岭:FSL,LINETHICK2,PRECISION2,colorFFFF; TA:=REF(趋势线,1)<趋势线; TB:=REF(趋势线,1)>趋势线; TD:=趋势线>生命线 AND FSLMAINX>0; TK:=趋势线<生命线 AND FSLMAINX<0; PARTLINE(TD AND TA,趋势线),LINETHICK2,colorFFFF; PARTLINE(TK AND TB,趋势线),LINETHICK2,colorFFFF00; IF DATATYPE=1 OR DATATYPE=2 OR DATATYPE=3 OR DATATYPE=4 OR DATATYPE=5 THEN VERTLINE(TIME=150000),POINTDOT,color80;ELSE IF DATATYPE=11 THEN VERTLINE(TIME=140000),POINTDOT,color80; PARTLINE(KEY,分水岭),LINETHICK2,colorFFFF; PARTLINE(KEY,生命线),LINETHICK2,colorFF; BC:=ZHC>分水岭 AND ZHC>中线; SC:=ZHC<分水岭 AND ZHC<中线; STICKLINE(BC,LOW,HIGH,0.1,1),colorFFFF; STICKLINE(BC AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFFFF; STICKLINE(BC AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF; STICKLINE(SC,LOW,HIGH,0.1,1),colorFF00; STICKLINE(SC AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF00; STICKLINE(SC AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFF00; END;ELSE EXIT; IF DATATYPE=6 THEN IF ST0 OR ST1 OR ST2 OR ST3 OR ST4 THEN BEGIN DRAWICON(涨停板ST,生命线,10); DRAWICON(跌停板ST,生命线,11); END;ELSE BEGIN DRAWICON(涨停板,生命线,10); DRAWICON(跌停板,生命线,11); EXIT; END; 副图Boll:(N:26 P:2) KEY:=DATE<=1900731; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); ZHE:=EMA(EMA(EMA(EMA(ZHC,2),2),5),5); C1:=SMA(EMA(ZHE,1),2,1); C3:=SMA(EMA(ZHE,3),2,1); C6:=SMA(EMA(ZHE,6),2,1); C7:=SMA(EMA(ZHE,7),2,1); IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN STICKLINE(C1>=C6,C1,C6,8,0),colorFF; STICKLINE(C1>=C6,C7,C3,0,0),colorFF; STICKLINE(C1<=C6,C1,C6,8,0),colorFF00; STICKLINE(C1<=C6,C7,C3,0,0),colorFF00; KMA:=MA(ZHC,5); PARTLINE(KEY,KMA),colorFFFF; MID:=MA(ZHE,N); PARTLINE(KEY,MID),colorFFFFFF; PARTLINE(KEY,MA(MID,55)),LINEDASH,colorFF00FF; UPPER:=MID+P*STD(ZHE,N); PARTLINE(KEY,UPPER),POINTDOT,color808080; LOWER:=MID-P*STD(ZHE,N); PARTLINE(KEY,LOWER),POINTDOT,color808080; IF DATATYPE=4 OR DATATYPE=5 THEN VERTLINE(TIME=150000),POINTDOT,color3333;ELSE BEGIN END; END;ELSE 副图筹码集中度: KEY:=DATE<=1900731; ZHM:="AMOUNT#day"/"VOL#day"/100*KEY; CM1:=SMA(EMA(ZHM,1),2,1); CM3:=SMA(EMA(ZHM,3),2,1); CM6:=SMA(EMA(ZHM,6),2,1); CM7:=SMA(EMA(ZHM,7),2,1); CMM:=(CM1+CM3+CM6+CM7)/4; IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN 获利盘:WINNER(ZHM)*100,LINETHICK0,PRECISION1,colorFF; 筹码集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100*KEY,LINETHICK0,PRECISION1,colorFFFF; STICKLINE(CM1>=CM6,CM1,CM6,8,0),colorFF; STICKLINE(CM1>=CM6,CM7,CM3,0,0),colorFF; STICKLINE(CM1<=CM6,CM1,CM6,8,0),colorFF00; STICKLINE(CM1<=CM6,CM7,CM3,0,0),colorFF00; CMX1:=SMA(EMA(COST(1),21),2,1); CMX2:=SMA(EMA(COST(10),21),2,1); CMX3:=SMA(EMA(COST(30),21),2,1); CMX4:=SMA(EMA(COST(50),21),2,1); CMX5:=SMA(EMA(COST(70),21),2,1); CMX6:=SMA(EMA(COST(90),21),2,1); CMX7:=SMA(EMA(COST(99),21),2,1); PARTLINE(KEY,CMX1),colorCC; PARTLINE(KEY,CMX2),color33CC; PARTLINE(KEY,CMX3),color66CC; PARTLINE(KEY,CMX4),color99CC; PARTLINE(KEY,CMX5),colorCCCC; PARTLINE(KEY,CMX6),colorFFCC; PARTLINE(KEY,CMX7),colorFF; END;ELSE BEGIN END; 副图多空线: KEY:=DATE<=1900731; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); DMZ:=IF(HIGH+LOW<=REF(HIGH,1)+REF(LOW,1),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); DMF:=IF(HIGH+LOW>=REF(HIGH,1)+REF(LOW,1),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); ADMZ:=IF(KEY,MA(DMZ,10),0); ADMF:=IF(KEY,MA(DMF,10),0); STZ0:=IF(ADMZ>ADMF,(ADMZ-ADMF)/ADMZ,IF(ADMZ=ADMF,0,(ADMZ-ADMF)/ADMF)); STZ:=(IF(ADMZ>ADMF,(ADMZ-ADMF)/ADMZ,IF(ADMZ=ADMF,0,(ADMZ-ADMF)/ADMF)))*(60); ASTZ:=SMA(STZ0,30,1)*60; IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN 波动线:STZ,PRECISION0,colorFFFFFF; 多空线:ASTZ,PRECISION0,colorFFFF; 主力线:EMA(EMA(EMA(EMA(MA(ASTZ,60),2),2),5),5),PRECISION0,colorFF00FF; PARTLINE(KEY,-30),LINETHICK2,colorFF00; PARTLINE(KEY,0),LINETHICK2,color80; PARTLINE(KEY,30),LINETHICK2,colorFF; END;ELSE BEGIN END; 副图FT: KEY:=DATE<=1900731; STICKLINE(CLOSE>=OPEN,LOW,HIGH,0.1,1),colorFF; STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF; STICKLINE(CLOSE>=REF(CLOSE,1) AND CLOSE=OPEN,LOW,HIGH,0.1,1),colorFF; STICKLINE(CLOSE>=REF(CLOSE,1) AND CLOSE=OPEN,OPEN,CLOSE,8,1),colorFF; STICKLINE(CLOSE<OPEN,LOW,HIGH,0.1,0),colorFFFF00; STICKLINE(CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF00; STICKLINE(CLOSE<REF(CLOSE,1) AND CLOSE=OPEN,LOW,HIGH,0.1,0),colorFFFF00; STICKLINE(CLOSE<REF(CLOSE,1) AND CLOSE=OPEN,OPEN,CLOSE,8,0),colorFFFF00; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); ZHQS:=EMA(EMA(EMA(EMA(ZHC,2),2),5),5); MAINX:=EMA(EMA(EMA(EMA(MA(ZHC,60),2),2),5),5); FSL:=EMA(EMA(EMA(EMA((MA(ZHC,3)+MA(ZHC,6)+MA(ZHC,12)+MA(ZHC,24))/4,2),2),5),5); IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN 趋势线:ZHQS,LINETHICK2,PRECISION0,colorFFFF00; 生命线:MAINX,LINETHICK2,PRECISION0,colorFF; 分水岭:FSL,LINETHICK2,PRECISION0,colorFFFF; END;ELSE BEGIN END; 主图均线: KEY:=DATE<=1900601; STICKLINE(CLOSE>=OPEN,LOW,HIGH,0.1,1),colorFF; STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF; STICKLINE(CLOSE>=REF(CLOSE,1) AND CLOSE=OPEN,LOW,HIGH,0.1,1),colorFF; STICKLINE(CLOSE>=REF(CLOSE,1) AND CLOSE=OPEN,OPEN,CLOSE,8,1),colorFF; STICKLINE(CLOSE<OPEN,LOW,HIGH,0.1,0),colorFFFF00; STICKLINE(CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF00; STICKLINE(CLOSE<REF(CLOSE,1) AND CLOSE=OPEN,LOW,HIGH,0.1,0),colorFFFF00; STICKLINE(CLOSE<REF(CLOSE,1) AND CLOSE=OPEN,OPEN,CLOSE,8,0),colorFFFF00; ST0:=STRNCMP(STKNAME,'S',1)=0; ST1:=STRNCMP(STKNAME,'ST',2)=0; ST2:=STRNCMP(STKNAME,'*ST',3)=0; ST3:=STRNCMP(STKNAME,'SST',3)=0; ST4:=STRNCMP(STKNAME,'S*ST',4)=0; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); 涨停板:=IF(KEY,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>9.95,0); 跌停板:=IF(KEY,(REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*100>9.95,0); 涨停板ST:=IF(KEY,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>4.95,0); 跌停板ST:=IF(KEY,(REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*100>4.95,0); ZHQS:=EMA(EMA(EMA(EMA(ZHC,2),2),5),5); FSL:=EMA(EMA(EMA(EMA((MA(ZHC,3)+MA(ZHC,6)+MA(ZHC,12)+MA(ZHC,24))/4,2),2),5),5); MAINX:=EMA(EMA(EMA(EMA(MA(ZHC,60),2),2),5),5); FSLMAINX:=EMA(FSL-MAINX,3); IF NOT(STKTYPE=6 OR STKTYPE=7 AND STKTYPE=8) THEN BEGIN 成本价:"AMOUNT#day"/"VOL#day"/100*KEY,LINETHICK0,PRECISION2,colorFFFF; 获利盘:=WINNER(成本价)*100; 集中度:=(COST(95)-COST(5))/(COST(95)+COST(5))*100*KEY; DRAWTEXTEX(KEY,1,18,0,'当前获利盘比例:'+NUMTOSTR(获利盘,1)+'% 筹码集中度:'+NUMTOSTR(集中度,1)+'%'),colorFF00FF; LA1:=LLVBARS(LOW,17); LA2:=BACKSET(ISLASTBAR,LA1+1); LA:=FILTER(LA2,17); DRAWICON(LA,LOW*0.998,4); DRAWNUMBER(LA,LOW*0.994,LOW,2),colorFFFFFF; LB1:=LLVBARS(LOW,144); LB2:=BACKSET(ISLASTBAR,LB1+1); LB:=FILTER(LB2,144); DRAWICON(LB,LOW*0.996,4); DRAWNUMBER(LB,LOW*0.99,LOW,2),colorFFFFFF; LC1:=LLVBARS(LOW,453); LC2:=BACKSET(ISLASTBAR,LC1+1); LC:=FILTER(LC2,453); DRAWICON(LC,LOW*0.992,4); DRAWNUMBER(LC,LOW*0.986,LOW,2),colorFFFFFF; HA1:=HHVBARS(HIGH,17); HA2:=BACKSET(ISLASTBAR,HA1+1); HA:=FILTER(HA2,17); DRAWICON(HA,HIGH*1.002,5); DRAWNUMBER(HA,HIGH*1.006,HIGH,2),colorFFFFFF; HB1:=HHVBARS(HIGH,144); HB2:=BACKSET(ISLASTBAR,HB1+1); HB:=FILTER(HB2,144); DRAWICON(HB,HIGH*1.004,5); DRAWNUMBER(HB,HIGH*1.008,HIGH,2),colorFFFFFF; LINEVALUE(LB,LOW,LA,LOW,0,0),LINETHICK2,colorFF; LINEVALUE(LC,LOW,LB,LOW,0,0),LINETHICK2,color66FF; LINEVALUE(HB,HIGH,HA,HIGH,0,0),LINETHICK2,color33CC00; TA:=REF(ZHQS,1)<ZHQS; TB:=REF(ZHQS,1)>ZHQS; TD:=ZHQS>MAINX AND FSLMAINX>0; TK:=ZHQS<MAINX AND FSLMAINX<0; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA,HIGH,LOW,0.5,0),colorFFFF; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFFFF; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB,HIGH,LOW,0.5,0),colorCCCCCC; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorCCCCCC; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorCCCCCC; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD,HIGH,LOW,0.5,0),colorFFFF; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF; STICKLINE(CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFFFF; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB AND TK,HIGH,LOW,0.5,0),colorCCCCCC; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB AND TK AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorCCCCCC; STICKLINE((OPEN<ZHQS OR OPEN<MAINX) AND TB AND TK AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorCCCCCC; STICKLINE((NOT(CLOSE>ZHQS AND OPEN>ZHQS AND TA OR CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD OR (OPEN<ZHQS OR OPEN<MAINX) AND TB)) AND CLOSE<OPEN,HIGH,LOW,0.5,0),colorFFFF00; STICKLINE((NOT(CLOSE>ZHQS AND OPEN>ZHQS AND TA OR CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD OR (OPEN<ZHQS OR OPEN<MAINX) AND TB)) AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF00; STICKLINE((NOT(CLOSE>ZHQS AND OPEN>ZHQS AND TA OR CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD OR (OPEN<ZHQS OR OPEN<MAINX) AND TB)) AND CLOSE>=OPEN,HIGH,LOW,0.5,0),colorFF; STICKLINE((NOT(CLOSE>ZHQS AND OPEN>ZHQS AND TA OR CLOSE>ZHQS AND OPEN>ZHQS AND TA AND TD OR (OPEN<ZHQS OR OPEN<MAINX) AND TB)) AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF; STICKLINE(BARSCOUNT(CLOSE)<=5 AND CLOSE<OPEN,HIGH,LOW,0.5,0),colorFFFF00; STICKLINE(BARSCOUNT(CLOSE)<=5 AND CLOSE<OPEN,OPEN,CLOSE,8,0),colorFFFF00; STICKLINE(BARSCOUNT(CLOSE)<=5 AND CLOSE>=OPEN,HIGH,LOW,0.5,0),colorFF; STICKLINE(BARSCOUNT(CLOSE)<=5 AND CLOSE>=OPEN,OPEN,CLOSE,8,1),colorFF; IF DATATYPE=4 OR DATATYPE=5 THEN BEGIN TC1:=MA(ZHC,55); TC2:=MA(ZHC,103); TC3:=MA(ZHC,453); PARTLINE(KEY,EMA(EMA(EMA(EMA(TC1,2),2),5),5)),colorFFFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC3,2),2),5),5)),colorFF00FF; VERTLINE(TIME=150000),POINTDOT,color3333; END;ELSE BEGIN IF DATATYPE=11 THEN BEGIN TC1:=MA(ZHC,55); TC2:=MA(ZHC,103); TC3:=MA(ZHC,453); PARTLINE(KEY,EMA(EMA(EMA(EMA(TC1,2),2),5),5)),colorFFFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC3,2),2),5),5)),colorFF00FF; VERTLINE(TIME=140000),POINTDOT,color3333; END;ELSE BEGIN IF DATATYPE=6 THEN BEGIN IF ST0 OR ST1 OR ST2 OR ST3 OR ST4 THEN BEGIN DRAWICON(涨停板ST,HIGH*1.02,10); DRAWICON(跌停板ST,LOW*0.98,11); END;ELSE BEGIN DRAWICON(涨停板,HIGH*1.05,10); DRAWICON(跌停板,LOW*0.95,11); END; TC1:=MA(ZHC,14); TC2:=MA(ZHC,25); TC3:=MA(ZHC,99); PARTLINE(KEY,EMA(EMA(EMA(EMA(TC1,2),2),5),5)),colorFFFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC3,2),2),5),5)),colorFF00FF; END;ELSE BEGIN IF DATATYPE=7 THEN BEGIN TC1:=MA(ZHC,33); TC2:=MA(ZHC,99); TC3:=MA(ZHC,181); TC4:=MA(ZHC,272); 发财线:EMA(EMA(EMA(EMA(TC1,2),2),5),5),LINETHICK2,PRECISION2,colorFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFFFF; 牛熊界:EMA(EMA(EMA(EMA(TC3,2),2),5),5),LINETHICK2,PRECISION2,colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC4,2),2),5),5)),colorFF00FF; END;ELSE BEGIN IF DATATYPE=2 OR DATATYPE=3 THEN BEGIN TC1:=MA(ZHC,55); TC2:=MA(ZHC,103); TC3:=MA(ZHC,453); PARTLINE(KEY,EMA(EMA(EMA(EMA(TC1,2),2),5),5)),colorFFFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC3,2),2),5),5)),colorFF00FF; VERTLINE(TIME=150000),POINTDOT,color3333; END;ELSE BEGIN IF DATATYPE=1 THEN BEGIN VERTLINE(TIME=150000),POINTDOT,color33CC; END;ELSE BEGIN IF DATATYPE=8 THEN BEGIN TC1:=MA(ZHC,20); TC2:=MA(ZHC,40); TC3:=MA(ZHC,60); TC4:=MA(ZHC,80); TC5:=MA(ZHC,100); TC6:=MA(ZHC,120); TC7:=MA(ZHC,140); PARTLINE(KEY,EMA(EMA(EMA(EMA(TC1,2),2),5),5)),colorFFFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC2,2),2),5),5)),colorFFFF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC3,2),2),5),5)),colorFF00FF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC4,2),2),5),5)),colorCC00FF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC5,2),2),5),5)),color9900FF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC6,2),2),5),5)),color6600FF; PARTLINE(KEY,EMA(EMA(EMA(EMA(TC7,2),2),5),5)),color3300FF; END;ELSE BEGIN END; END; END; END; END; END; END; END;ELSE WX:=MA(CLOSE,0); M1:MA(CLOSE,P1); M2:MA(CLOSE,P2)*(IF(N<2,WX,1)); M3:MA(CLOSE,P3)*(IF(N<3,WX,1)); M4:MA(CLOSE,P4)*(IF(N<4,WX,1)); M5:MA(CLOSE,P5)*(IF(N<5,WX,1)); M6:MA(CLOSE,P6)*(IF(N<6,WX,1)); M7:MA(CLOSE,P7)*(IF(N<7,WX,1)); M8:MA(CLOSE,P8)*(IF(N<8,WX,1)); 副图MACD: KEY:=DATE<=1900731; PARTLINE(KEY,0),LINETHICK2,color99; VAR1:=IF(KEY,EMA(EMA(EMA((OPEN+HIGH+LOW+CLOSE)/4,13),13),13),0); VAR2:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1; 智能DIFF:VAR2*100,PRECISION2; 智能DEA:EMA(VAR2,21)*100,PRECISION2; 智能MACD:VAR2*100,COLORSTICK,PRECISION2; 副图能量线: KEY:=DATE<=1900701; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); VAR1:=REF(ZHC,1); VAR2:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100); VAR3:=(CLOSE-VAR1)*VAR2; VAR4:=SUM(VAR3,0); VAR5:=SMA(VAR4,5,1); VAR6:=SMA(VAR4,8,1); ZHSC0:=IF(KEY,VAR5-VAR6,0); ZHSC:=ZHSC0/10; ZHD:=(SUM(IF(ZHSC>0,ZHSC*1.003,ZHSC*1.003>0),34))/(34); ZHE:=(SUM(IF(ZHSC<=0,ZHSC*0.97,ZHSC*0.97<0),34))/(34); 能量:ZHSC,COLORSTICK,PRECISION1,colorFF; PARTLINE(KEY,ZHD),LINETHICK2,colorFFFF; PARTLINE(KEY,ZHE),LINETHICK2,colorFF00; PARTLINE(KEY,0),LINETHICK2,colorFFFFFF; 副图成交量: KEY:=DATE<=1900731; 总股本:=FINANCE(1); 净利润:=FINANCE(30); 每股收益:=净利润*1000/(总股本*10000); 流通盘:=CAPITAL; 每股净资:=FINANCE(34); 市盈率:=CLOSE/每股收益; 换手率:=VOL/CAPITAL*100; 流通市值:=CAPITAL*VOLUNIT*CLOSE; 均量10:=MA(VOL,10); 均量20:=MA(VOL,20); 均量40:=MA(VOL,40); 涨跌幅:(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100; 成交手数:VOL,VOLSTICK; DRAWTEXTEX(KEY,0,0,0,STKNAME+'('+STKLABEL+') 流通盘:'+NUMTOSTR(流通盘/100,0)+'万股 市盈率:'+NUMTOSTR(市盈率,0)+'倍 每股净资:'+NUMTOSTR(每股净资,2)+'元 流通市值:'+NUMTOSTR(流通市值/10000,2)+'万元 成交额:'+NUMTOSTR(AMOUNT/10000,2)+'万元 换手率:'+NUMTOSTR(换手率,2)+'%'),color66FF; PARTLINE(KEY,均量10),colorFF00; PARTLINE(KEY,均量20),colorFFFF; PARTLINE(KEY,均量40),colorFFFFFF; ⑤%:CAPITAL*5/100,linedot; 交易分钟数:=if(CURRENTTIME>93000 and CURRENTTIME<150000, if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60, if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240); 预测量:IF(BARSTATUS=2,VOL/交易分钟数*240,VOL),COLOR00FFFF,LINETHICK0; {预测量2:IF(BARSTATUS=2,VOL*240/OPENMINUTES(CURRENTTIME),VOL),COLOR00FF00,LINETHICK0;} STICKLINE(BARSTATUS=2,0,预测量,8,1),COLOR00FFFF,LINEDOT 副图位置: KEY:=DATE<=1900731; VAR3:=LLV(LOW,33); VAR4:=HHV(HIGH,21); VAR5:=IF(KEY,EMA((CLOSE-VAR3)/(VAR4-VAR3)*100,20)*0.998,0); PARTLINE(KEY,20),LINETHICK2,color808080; PARTLINE(KEY,50),LINETHICK2,colorFFFFFF; PARTLINE(KEY,80),LINETHICK2,colorFF00FF; 技术位:EMA(0.667*REF(VAR5,1)+0.333*VAR5,1),CIRCLEDOT,PRECISION1,colorFF00; MACD选股: 智能DIFF:="ZNMACD.智能DIFF"; 智能DEA:="ZNMACD.智能DEA"; BUY:=LONGCROSS(智能DIFF,智能DEA,N) AND BETWEEN(智能DEA,-0.05,0.35); BARSLAST(BUY)<=X; 筹码选股: KEY:=DATE<=1900731; ZHM:="AMOUNT#DAY"/"VOL#DAY"/100*KEY; CM1:=SMA(EMA(ZHM,1),2,1); CM3:=SMA(EMA(ZHM,3),2,1); CM6:=SMA(EMA(ZHM,6),2,1); CM7:=SMA(EMA(ZHM,7),2,1); CMM:=(CM1+CM3+CM6+CM7)/4; CMX:=SMA(EMA(COST(59),21),2,1); LONGCROSS(CMM,CMX,25); 多空选股: KEY:=DATE<=1900731; ZHC:=IF(KEY,(OPEN+HIGH+LOW+CLOSE)/4,0); DMZ:=IF(HIGH+LOW<=REF(HIGH,1)+REF(LOW,1),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); DMF:=IF(HIGH+LOW>=REF(HIGH,1)+REF(LOW,1),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); ADMZ:=IF(KEY,MA(DMZ,10),0); ADMF:=IF(KEY,MA(DMF,10),0); STZ0:=IF(ADMZ>ADMF,(ADMZ-ADMF)/ADMZ,IF(ADMZ=ADMF,0,(ADMZ-ADMF)/ADMF)); STZ:=(IF(ADMZ>ADMF,(ADMZ-ADMF)/ADMZ,IF(ADMZ=ADMF,0,(ADMZ-ADMF)/ADMF)))*(60); ASTZ:=SMA(STZ0,30,1)*60; BUY:=ALL(ASTZ<26,120) AND ASTZ>-5 AND ASTZ<15 AND CROSS(STZ,ASTZ); BARSLAST(BUY)<=X; |
|