DRAWTEXT_FIX(ISLASTBAR,0,0,0,VARCAT('概念:',GNBLOCK));{風格-概念}HYZF0:=(HY_INDEXC-REF(HY_INDEXC,1))/REF(HY_INDEXC,1)*100; A0:=STRSPACE(VAR2STR(HYZF0,2));HYZF1:=(REF(HY_INDEXC,1)-REF(HY_INDEXC,2))/REF(HY_INDEXC,2)*100;A1:=STRSPACE(VAR2STR(HYZF1,2));HYZF2:=(REF(HY_INDEXC,2)-REF(HY_INDEXC,3))/REF(HY_INDEXC,3)*100;A2:=STRSPACE(VAR2STR(HYZF2,2));HYZF3:=(REF(HY_INDEXC,3)-REF(HY_INDEXC,4))/REF(HY_INDEXC,4)*100;A3:=STRSPACE(VAR2STR(HYZF3,2));HYZF4:=(REF(HY_INDEXC,4)-REF(HY_INDEXC,5))/REF(HY_INDEXC,5)*100;A4:=STRSPACE(VAR2STR(HYZF4,2));A43:=VARCAT(A4,A3);A21:=VARCAT(A2,A1);A4321:=VARCAT(A43,A21);A43210:=VARCAT(A4321,A0);DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,VARCAT('行業(yè):', VARCAT(STRSPACE(HYZSCODE), VARCAT(STRSPACE(HYBLOCK), A43210)))) COLOR0000FF;{所屬行業(yè)及近五日漲幅}DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,VARCAT('風格:',FGBLOCK));DRAWTEXT_FIX(ISLASTBAR,0,0.15,0,VARCAT('地區(qū):', DYBLOCK));DRAWTEXT_FIX(ISLASTBAR,0,0.2,0,VARCAT('選股:',ZDBLOCK));買線:=EMA(C,2);賣線:=EMA(SLOPE(C,21)*20+C,42);BU:=CROSS(買線,賣線);SEL:=CROSS(賣線,買線);STICKLINE(買線>=賣線,LOW,HIGH,0.0,1),COLORRED;STICKLINE(買線>=賣線,CLOSE,OPEN,3,1),COLORRED;STICKLINE(買線>=賣線 AND C<O,CLOSE,OPEN,3,0),COLORRED;STICKLINE(買線<賣線,LOW,HIGH,0.0,1),COLOR228822;STICKLINE(買線<賣線,CLOSE,OPEN,3,1),COLOR228822;STICKLINE(買線<賣線 AND C<O,CLOSE,OPEN,3,0),COLOR228822;JJ:=(L+HIGH+C)/3; A:=EMA(JJ,10); B:=REF(A,1); STICKLINE(A>B ,A ,B ,-1 ,0 ),COLOR00AAFF; STICKLINE(A<B ,B ,A ,-1 ,0 ),COLORBLUE;MA5Q:=MA(CLOSE,5);DIR2:=ABS(CLOSE-REF(CLOSE,30));VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),30);ER2:=DIR2/VIR2;CS2:=ER2*(0.8-2/24)+2/24;CQ2:=CS2*CS2;AA1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,20))/EMA(CLOSE,20));AA2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),AA1);牛魔王:EMA(AA2,200)*1.118 ,LINETHICK5,COLORD30094;STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW; DRAWTEXT(BU,LOW,'買'),COLORMAGENTA,LINETHICK2; DRAWTEXT(SEL,1.01*HIGH,'賣'),COLORGREEN,LINETHICK2; W00:=COST(1); W10:=COST(10); W20:=COST(20); W30:=COST(30); W40:=COST(40); W50:=COST(50); W60:=COST(60); W70:=COST(70); W80:=COST(80); W90:=COST(90); W100:=COST(99); W5:=COST(5); W15:=COST(15); W25:=COST(25); W35:=COST(35); W45:=COST(45); W55:=COST(55); W65:=COST(65); W75:=COST(75); W85:=COST(85); W95:=COST(95); C5:=W5-W00; C10:=W10-W5; C15:=W15-W10; C20:=W20-W15; C25:=W25-W20; C30:=W30-W25; C35:=W35-W30; C40:=W40-W35; C45:=W45-W40; C50:=W50-W45; C55:=W55-W50; C60:=W60-W55; C65:=W65-W60; C70:=W70-W65; C75:=W75-W70; C80:=W80-W75; C85:=W85-W80; C90:=W90-W85; C95:=W95-W90; C100:=W100-W95; ZX:=MIN(C5,MIN(C10,MIN(C15,MIN(C20,MIN(C25,MIN(C30,MIN(C35,MIN(C40,MIN(C45,MIN(C50,MIN(C55,MIN(C60,MIN(C65,MIN(C70,MIN(C75,MIN(C80,MIN(C85,MIN(C90,MIN(C95,C100))))))))))))))))))); STICKLINE(ZX=C5,W00,W5,5,0),COLORFF8800; STICKLINE(ZX=C10,W10,W5,5,0),COLORFF8800; STICKLINE(ZX=C15,W15,W10,5,0),COLORFF8800; STICKLINE(ZX=C20,W20,W15,5,0),COLORFF8800; STICKLINE(ZX=C25,W25,W20,5,0),COLORFF8800; STICKLINE(ZX=C30,W30,W25,5,0),COLORFF8800; STICKLINE(ZX=C35,W35,W30,5,0),COLORFF8800; STICKLINE(ZX=C40,W40,W35,5,0),COLORFF8800; STICKLINE(ZX=C45,W45,W40,5,0),COLORFF8800; STICKLINE(ZX=C50,W50,W45,5,0),COLORFF8800; STICKLINE(ZX=C55,W55,W50,5,0),COLORFF8800; STICKLINE(ZX=C60,W60,W55,5,0),COLORFF8800; STICKLINE(ZX=C65,W65,W60,5,0),COLORFF8800; STICKLINE(ZX=C70,W70,W65,5,0),COLORFF8800; STICKLINE(ZX=C75,W75,W70,5,0),COLORFF8800; STICKLINE(ZX=C80,W80,W75,5,0),COLORFF8800; STICKLINE(ZX=C85,W85,W70,5,0),COLORFF8800; STICKLINE(ZX=C90,W90,W85,5,0),COLORFF8800; STICKLINE(ZX=C95,W95,W90,5,0),COLORFF8800; STICKLINE(ZX=C100,W100,W95,5,0),COLORFF8800; {彩色K線} TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3); TYX4:=MA((C+L+O+H)/4,13); |
|