{千钧老师财务主图■阻力支撑源碼}
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:=(wD1ANDNOT(wD2ANDwE1>=wE2))ORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
wL1:=(wD2ANDNOT(wD1ANDwE1<wE2));
wH2:=wD1ANDNOT(wD2ANDwE1>=wE2);
wX1:=REF(BARSLAST(wH1),1)+1;wF1:=BACKSET(wH1ANDCOUNT(wL1,wX1)>0,LLVBARS(IF(wL1,LOW,10000),wX1));
wG1:=wF1>REF(wF1,1);wI1:=BACKSET(wG1,2);
wLD:=wI1>REF(wI1,1);
wL2:=wLDORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
wX2:=REF(BARSLAST(wL2),1)+1;
wF2:=BACKSET(wL2ANDCOUNT(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;
IFWS1[P]>1THENBEGIN
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>OPENorCLOSE=OPENandCLOSE>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);
市净率:=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;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
