|
151325Q00360-5YF.jpg
P:=4;
ZT:=(C-REF(C,1))*100/REF(C,1) > =(10-1/REF(C,1)) AND
(C-REF(C,1))*100/REF(C,1) < =(10+1/REF(C,1)) AND H=C;
STICKLINE(ZT,REF(C,1),REF(C,1),12,0),COLORYELLOW;
{DRAWLINE(ZT,REF(C,BARSLAST(ZT)+1),BARSLAST(ZT) > 0,REF(C,BARSLAST(ZT)+1),1),COLORYELLOW;}
HH:=CONST(HHV(H,120));
LH:=CONST(LLV(H,120));
五:MA(C,5);
十:MA(C,10);
卅:MA(C,30);
六十:MA(C,60);
百二:MA(C,120);
T1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),STRCAT('敢死队席位：',EXTERNSTR(0,13)),'');
T2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),STRCAT('智能诊断：',EXTERNSTR(0,12)),'');
T3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),STRCAT('年报业绩：',EXTERNSTR(0,8)),'');
T4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),STRCAT('主题投资：',EXTERNSTR(0,10)),'');
T5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),STRCAT('解禁日期：',EXTERNSTR(0,15)),'');
T6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),STRCAT('千股千评：',EXTERNSTR(0,1)),'');
T7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),STRCAT('业绩预报：',EXTERNSTR(0,14)),'');
T8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),STRCAT('机构评级：',EXTERNSTR(0,11)),'');
T9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),STRCAT('中报业绩：',EXTERNSTR(0,9)),'');
N:=IF(TOTALBARSCOUNT > =120,120,TOTALBARSCOUNT);
{本输出适用于锁定K线数为120,N可改为你习惯的K线数,见下图}
HH0:=HHV(H,N);
LL0:=LLV(L,N);
MM0:=CONST((HH0+LL0)*0.5);
S01:=CONST(IF(REF(C,N-15) > MM0,1.00,-0.08));
S02:=CONST(IF(REF(C,N-15) > MM0,-1,1));
S1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),S01+(0.08*S02),S01),NODRAW;
S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.08*S02),S1),NODRAW;
S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.08*S02),S2),NODRAW;
S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.08*S02),S3);
S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.08*S02),S4);
S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.08*S02),S5);
S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.08*S02),S6);
S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.08*S02),S7);
S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.08*S02),S8);
K:=IF(S1 < =0,0.05,IF(S1 > =0,-0.05,0));
DRAWTEXT_FIX(1,0,S1+K,0,T1)COLOR00FFFF;
DRAWTEXT_FIX(1,0,S2+K,0,T2)COLORFFFFFF;
DRAWTEXT_FIX(1,0,S3+K,0,T3)COLORFF00FF;
DRAWTEXT_FIX(1,0,S4+K,0,T4)COLOR0088FF;
DRAWTEXT_FIX(1,0,S5+K,0,T5)COLOR00FF00;
DRAWTEXT_FIX(1,0,S6+K,0,T6)COLOR0000FF;
DRAWTEXT_FIX(1,0,S7+K,0,T7)COLOR00CCFF;
DRAWTEXT_FIX(1,0,S8+K,0,T8)COLORFF88FF;
DRAWTEXT_FIX(1,0,S9+K,0,T9)COLORBBFFFF;
WN:=P;{原码 N:=3;}
WA1:=REF(H,WN)=HHV(H,2*WN+1); WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);{高点}
WA2:=REF(L,WN)=LLV(L,2*WN+1); WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);{低点}
WR1:=BACKSET(ISLASTBAR,BARSLAST(WD1)+1); WS1:=WR1 > REF(WR1,1); {前一高}
WT1:=BACKSET(ISLASTBAR,BARSLAST(WD2)+1); WU1:=WT1 > REF(WT1,1); {前一低}
WR2:=BACKSET(WS1,REF(BARSLAST(WD1),1)+2); WS2:=WR2 > REF(WR2,1); {前二高}
WT2:=BACKSET(WU1,REF(BARSLAST(WD2),1)+2); WU2:=WT2 > REF(WT2,1); {前二低}
WR3:=BACKSET(WS2,REF(BARSLAST(WD1),1)+2); WS3:=WR3 > REF(WR3,1); {前三高}
WT3:=BACKSET(WU2,REF(BARSLAST(WD2),1)+2); WU3:=WT3 > REF(WT3,1); {前三低}
WR4:=BACKSET(WS3,REF(BARSLAST(WD1),1)+2); WS4:=WR4 > REF(WR4,1); {前四高}
WT4:=BACKSET(WU3,REF(BARSLAST(WD2),1)+2); WU4:=WT4 > REF(WT4,1); {前四高}
压力A:=DRAWLINE(WS2,H,WS1,H,1),COLOR0000FF; {★压力１:}
支撑A:=DRAWLINE(WU2,L,WU1,L,1),COLOR0000FF;{★支撑１:}
压力B:=DRAWLINE(WS3,H,WS2,H,1),COLOR999999; {★压力２:}
支撑B:=DRAWLINE(WU3,L, WU2,L,1),COLOR999999;{★支撑２:}
IF(BETWEEN(压力A,HH,LH),压力A,DRAWNULL),COLOR0000FF;
IF(BETWEEN(支撑A,HH,LH),支撑A,DRAWNULL),COLOR0000FF;
IF(BETWEEN(压力B,HH,LH),压力B,DRAWNULL),COLOR999999;
IF(BETWEEN(支撑B,HH,LH),支撑B,DRAWNULL),COLOR999999;
|
