飞狐精品主图

{飞狐精品主图}
INPUT:wN(3,1,255),p1(1,1,255);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DD0:=REF(DAY,(BARSCOUNT(CLOSE) - 1));
■上市日期:REF(YEAR,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
年:REF(MONTH,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
月:REF(DAY,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
日:0,LINETHICK0,ColorC0C0C0;
u1:=SYSPARAM(3);
u:=u1-SYSPARAM(2)+1;
hh:=HHV(HIGH,u);
ll:=LLV(LOW,u);
最高:hh[u1],ColorC0C0C0;
最低:ll[u1],ColorC0C0C0;
wA1:=REF(HIGH,wN)=HHV(HIGH,2*wN+1); wB1:=FILTER(wA1,wN);
wC1:=BACKSET(wB1,wN+1);
wD1:=FILTER(wC1,wN);{高点}
wA2:=REF(LOW,wN)=LLV(LOW,2*wN+1);
wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1);
wD2:=FILTER(wC2,wN);{低点}
wE1:=(REF(LLV(LOW,2*wN),1)+REF(HHV(HIGH,2*wN),1))/2;
wE2:=(HIGH+LOW)/2;
wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
wL1:=(wD2 AND NOT(wD1 AND wE1<wE2)); 
wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);
wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,LOW,10000),wX1));
wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2);
wLD:=wI1>REF(wI1,1);
wL2:=wLD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
wX2:=REF(BARSLAST(wL2),1)+1;
wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,HIGH,0),wX2));
wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2);
wHD:=wI2>REF(wI2,1);
wR1:=BACKSET(BARSTATUS=2,BARSLAST(wHD)+1);
wS1:=wR1>REF(wR1,1);
wT1:=BACKSET(BARSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1)+2); wU4:=wT4>REF(wT4,1); {前四低}
wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
DRAWLINE(wS2,HIGH,wS1,HIGH,1),Color008888;        
DRAWLINE(wU2,LOW,wU1,LOW,1),POINTDOT,Color008888;
DRAWLINE(wS3,HIGH,wS2,HIGH,1),Color888000;
DRAWLINE(wU3,LOW,wU2,LOW,1),POINTDOT,Color888000;       
DRAWLINE(wS4,HIGH,wS3,HIGH,1),Color0000CC;
DRAWLINE(wU4,LOW,wU3,LOW,1),POINTDOT,Color0000CC;
A:=EMA(CLOSE,3);
B:=EMA(CLOSE,5);
Z:=EMA(CLOSE,15);
D:=REF(HHV(A,B),Z);
Aa:=A;
Ab:=MA(Aa,5);
Z:=MA(Z,7);
高:=HHV(HIGH,0);
低:=LLV(LOW,0);
DCFL:=COST(95);
SCFL:=COST(55);
JCFL:=COST(15);
CH:=COST(5);
DI:=COST(0.38);
M:=58;
X:=3;
P:=SYSPARAM(1);
WS:=BARPOS;
WS1:=IF(WS<M,WS,M);
WSP:=P-WS1+1;
WSP1:=WS1-1;
H1:=HHV(HIGH,WS1);
L1:=LLV(LOW,WS1);
HP:=H1[P];
LP:=L1[P];
HLPX:=(HP-LP)/X;
IF WS1[P]>1 THEN BEGIN
DRAWSL(WS=WSP[P],HP,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP+HLPX,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP+HLPX*2,0,WSP1[P],3),LINEDOT,Color008888;
DRAWNUMBER(WS=WSP[P],HP,HP,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP,LP,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP+HLPX,LP+HLPX,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP+HLPX*2,LP+HLPX*2,2),SHIFT38,Color008888;
END;
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
市值:=CLOSE*CAPITAL*VOLUNIT/100000000;
股本:=FINANCE(1)/10000;
流通:=FINANCE(7)/10000;
股东总数:=FINANCE(50);
主营业务增长率:=FINANCE(53);
税后利润增长率:=FINANCE(54);
净利润增长率:=FINANCE(55);
人均持股:=(FINANCE( 7)/FINANCE(50))*10000;
市盈率:=DYNAINFO(39);
{飞狐精品主图 好股票网 http://www.goodgupiao.com 整理}
市净率:=CLOSE/FINANCE(34);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度:=F1;
莸利比例:=WINNER(CLOSE )*100;
日换手率:=VOL/CAPITAL*100;
净资产:=FINANCE(34);
净资收益率:=FINANCE(37);
最新收益:=FINANCE(33);
每股未分配:=FINANCE(32);
毛利润率:=FINANCE(21)/FINANCE(20)*100;
净利润率:=FINANCE(30)/FINANCE(20)*100;
股东权益比:=FINANCE(19)/FINANCE(50);
总资产增长率:=FINANCE(56);
每股公积金:=FINANCE(18);
DRAWTEXTEX(CLOSE,1,10,13,'市值:'),linethick1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,80,13,NUMTOSTR(市值,2)+'亿元'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,220,13,'股本:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,290,13,NUMTOSTR(股本,2)+'亿股'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,430,13,'流通:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,500,13,NUMTOSTR(流通,2)+'亿股'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,620,13,'市盈率:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,720,13,NUMTOSTR(市盈率,2)+''),ColorFF0000;
DRAWTEXTEX(CLOSE,1,830,13,'市净率:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,920,13,NUMTOSTR(市净率,2)+''),ColorFF0000;
DRAWTEXTEX(CLOSE,1,10,85,'成本集中度:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,160,85,NUMTOSTR(成本集中度,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,300,85,'莸利比例:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,410,85,NUMTOSTR(莸利比例,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,620,85,'日换手率:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,730,85,NUMTOSTR(日换手率,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,830,85,'净资产:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,920,85,NUMTOSTR(净资产,2)+''),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,10,585,'净资收益率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,585,NUMTOSTR(净资收益率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,157,'最新收益:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,157,NUMTOSTR(最新收益,2)+''),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,375,'每股未分配:'),LINETHICK2,ColorFF0080;
DRAWTEXTEX(CLOSE,1,160,375,NUMTOSTR(每股未分配,2)+''),ColorFF0080;
DRAWTEXTEX(CLOSE,1,10,445,'毛利润率:'),LINETHICK2,COLORFFEEBB;
DRAWTEXTEX(CLOSE,1,160,445,NUMTOSTR(毛利润率,2)+'%'),COLORFFEEBB;
DRAWTEXTEX(CLOSE,1,10,515,'净利润率:'),LINETHICK2,Color007DFF;
DRAWTEXTEX(CLOSE,1,160,515,NUMTOSTR(净利润率,2)+''),Color007DFF;
DRAWTEXTEX(CLOSE,1,10,229,'股东权益比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,229,NUMTOSTR(股东权益比,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,301,'每股公积金:'),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(CLOSE,1,160,301,NUMTOSTR(每股公积金,2)+''),ColorFFFF00;
DRAWTEXTEX(CLOSE,1,10,655,'股东总数:'),LINETHICK2,ColorFF80FF;
DRAWTEXTEX(CLOSE,1,160,655,NUMTOSTR(股东总数,0)+''),ColorFF80FF;
DRAWTEXTEX(CLOSE,1,10,725,'人均持股:'),LINETHICK2,ColorFFFFFF;
DRAWTEXTEX(CLOSE,1,160,725,NUMTOSTR(人均持股,0)+''),ColorFFFFFF;
DRAWTEXTEX(CLOSE,1,300,157,'主营业务增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,490,157,NUMTOSTR(主营业务增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,620,157,'净利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,780,157,NUMTOSTR(净利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,300,227,'税后利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,490,227,NUMTOSTR(税后利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,620,227,'总资产增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,780,227,NUMTOSTR(总资产增长率,2)+'%'),Color00FFFF;