lastjly:=REP(&JLR,2); lastyear:=YEARREP(&JLR,1);
IF(lastyear==JLR)
xxx:=0;
ELSE
xxx:=lastyear-lastjly;
净资产收益率aaa:=(xxx+JLR)/GDQYHJ;
低估PE:=100*净资产收益率aaa/1.5;
低估PB:=10*净资产收益率aaa;
aaa:=REFX(&PRE,1)/CLOSE;
价值线:低估PB*GDQYHJ/(ZGB*aaa),colorwhite,nodraw;
便宜线:低估PE*(xxx+JLR)/(ZGB*aaa),colorred,nodraw;
HORLINE(CURRBARSCOUNT+1=1,C,2,1),colorgray;
MA$1:EMA(CLOSE, N1),linethick2;
MA$2:EMA(CLOSE, N2),linethick2;
MA$3:EMA(CLOSE, N3),linethick2;
MA$4:EMA(CLOSE, N4),linethick2;
DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
AMA1:EMA(DMA(CLOSE,CQ1),2) ,colorwhite;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
AMA2:EMA(DMA(CLOSE,CQ2),2),colorgreen,LINETHICK2;
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),colorblue,LINETHICK2;
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),colorred,LINETHICK2;
RSV50=(CLOSE-LLV(LOW,N*5))/(HHV(HIGH,N*5)-LLV(LOW,N*5))*100;
a50=SMA(RSV50,10,1);
RSV100=(CLOSE-LLV(LOW,M1*5))/(HHV(HIGH,M1*5)-LLV(LOW,M1*5))*100;
a100=SMA(RSV100,10,1);
RSV200=(CLOSE-LLV(LOW,M2*5))/(HHV(HIGH,M2*5)-LLV(LOW,M2*5))*100;
a200=SMA(RSV200,10,1);
D50:=a50;
D100:=a100;
D200:=a200;
my:=(D50+D100+D200)/3;
a:=(my<10)AND(my>REF(my,1));
b:=(D50<10)AND(D50>REF(D50,1))AND(D100<10)AND(D100>REF(D100,1))AND(D200<10)AND(D200>REF(D200,1));
dlt:=CLOSE*0.005;
STICKLINE(my<10,0.9*CLOSE-dlt,0.9*CLOSE+dlt,2),colorblue;
STICKLINE(a,0.9*CLOSE-2*dlt,0.9*CLOSE+2*dlt,2),coloryellow;
STICKLINE(b,0.9*CLOSE-3*dlt,0.9*CLOSE+3*dlt,2),colorred;
|
