价值投资宝主图源码
标签:
财经改编股票源码指标 |
分类: 指标源码 |
{大背景色}
DRAWGBK(O>C,RGB(0,0,0),RGB(0,0,0),0,'0001',0);
{筹码峰}
DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130);
DA:=IF(CURRBARSCOUNT>DA1,0,DA1);
HI:=REFDATE(HHV(H,DA),DATE);
LO:=REFDATE(LLV(L,DA),DATE);
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL);
GZ:=EXP(LN(HI/LO)/10);
LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA);
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA);
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA);
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA);
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA);
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA);
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA);
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA);
LH9:=SUM(IF(C1>=(LO*GZ) AND C1
LH10:=SUM(IF(C1>=LO AND C1
L1:=REFDATE(HHV(LH1,DA),DATE);
L2:=REFDATE(HHV(LH2,DA),DATE);
L3:=REFDATE(HHV(LH3,DA),DATE);
L4:=REFDATE(HHV(LH4,DA),DATE);
L5:=REFDATE(HHV(LH5,DA),DATE);
L6:=REFDATE(HHV(LH6,DA),DATE);
L7:=REFDATE(HHV(LH7,DA),DATE);
L8:=REFDATE(HHV(LH8,DA),DATE);
L9:=REFDATE(HHV(LH9,DA),DATE);
L10:=REFDATE(HHV(LH10,DA),DATE);
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);
STICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0),COLOR282828,LINETHICK3;
STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0),COLOR282828,LINETHICK3;
{趋势基础}
AAA:=(3*C+H+L+O)/6;
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36,COLORRED,LINETHICK2;
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
十天:=125;目标线:=1;缺口线:=1;
DRAWKLINE(H,O,L,C);
{涨幅预测}
CURR:=CURRBARSCOUNT;
BCL:=CONST(FINDLOW(L,0,十天*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
SXL:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
GTHT:=IF(DTT,DTT,DRAWNULL);
底:=IF(CURR<=GTHT AND 目标线=1,SXL,DRAWNULL) ;
一:=IF(CURR<=GTHT AND 目标线=1,SXL*1.146,DRAWNULL);
二:=IF(CURR<=GTHT AND 目标线=1,SXL*1.191,DRAWNULL);
三:=IF(CURR<=GTHT AND 目标线=1,SXL*1.236,DRAWNULL);
四:=IF(CURR<=GTHT AND 目标线=1,SXL*1.382,DRAWNULL);
五:=IF(CURR<=GTHT AND 目标线=1,SXL*1.5,DRAWNULL);
六:=IF(CURR<=GTHT AND 目标线=1,SXL*1.618,DRAWNULL);
七:=IF(CURR<=GTHT AND 目标线=1,SXL*1.764,DRAWNULL);
八:=IF(CURR<=GTHT AND 目标线=1,SXL*1.809,DRAWNULL);
九:=IF(CURR<=GTHT AND 目标线=1,SXL*1.854,DRAWNULL);
十:=IF(CURR<=GTHT AND 目标线=1,SXL*2,DRAWNULL);
起点:=STRCAT(' BASE: ',CON2STR(SXL,3));
一6:=STRCAT('19.1%: ',CON2STR(SXL*1.191,2));
二6:=STRCAT('38.2%: ',CON2STR(SXL*1.382,2));
三6:=STRCAT('50.0%: ',CON2STR(SXL*1.5,2));
四6:=STRCAT('61.8%: ',CON2STR(SXL*1.618,2));
五6:=STRCAT('80.9%: ',CON2STR(SXL*1.819,2));
六6:=STRCAT('100 %: ',CON2STR(SXL*2,2));
七6:=STRCAT('150 %: ',CON2STR(SXL*2.5,2));
八6:=STRCAT('200 %: ',CON2STR(SXL*3,2));
九6:=STRCAT('300 %: ',CON2STR(SXL*4,2));
十6:=STRCAT('400 %: ',CON2STR(SXL*5,2));
十一6:=STRCAT('500 %: ',CON2STR(SXL*6,2));
最高涨幅%:(H-SXL)/SXL*100,NODRAW,COLORLIGRAY;
DRAWBAND(底,RGB(0,120,120),底,RGB(0,0,0));
DRAWBAND(一,RGB(0,0,0),一,RGB(0,0,0)),DOTLINE,COLOR666600;
DRAWBAND(二,RGB(0,120,120),二,RGB(0,0,0));
DRAWBAND(三,RGB(0,0,0),三,RGB(0,0,0)),DOTLINE,COLOR666600;
DRAWBAND(四,RGB(0,120,120),四,RGB(0,0,0));
DRAWBAND(五,RGB(0,120,120),五,RGB(0,0,0));
DRAWBAND(六,RGB(0,120,120),六,RGB(0,0,0));
DRAWBAND(七,RGB(0,0,0),七,RGB(0,0,0)),DOTLINE,COLOR666600;
DRAWBAND(八,RGB(0,120,120),八,RGB(0,0,0));
DRAWBAND(九,RGB(0,0,0),九,RGB(0,0,0)),DOTLINE,COLOR666600;
DRAWBAND(十,RGB(0,120,120),十,RGB(0,0,0));
XJ:=STRCAT('现价:',CON2STR(C,2));
ZF1:=STRCAT(' 涨幅:',CON2STR(((C-SXL)/SXL)*100,2));
ZF2:=STRCAT(ZF1,'%');
XJZF:=STRCAT(XJ,ZF2);
DRAWTEXT_FIX(ISLASTBAR,0.48,0,0,XJZF),COLORLIGRAY;
主力成本:EMA(COST(9),250),COLORRED;
DRAWBAND(VAR1,RGB(255,250,250),VAR6,RGB(250,250,0));
DRAWTEXT(CROSS(C,VAR6) AND C/REF(C,1)>1.03,L*0.96,'弯刀'),COLORYELLOW;
DRAWBAND(MA(C,3),RGB(255,0,8),HHV(MA(C,5),10),RGB(0,100,150));
{缺口与涨停}
STICKLINE(L>REF(H,1) AND 缺口线=1,REF(H,1),L,6,-1),COLORYELLOW;
STICKLINE(H缺口线=1,REF(L,1),H,6,0),COLORBLUE;
DRAWKLINE(H,O,L,C);
下降压力线:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),COLORWHITE;
ZT:=CLOSE/REF(CLOSE,1)>=1.095;
STICKLINE(ZT AND 缺口线=1,O,C,-1,0),COLORRED;
DRAWTEXT(CURR=(GTHT) AND 目标线=1,底*1.015,STRCAT(' BASE ',CON2STR(SXL,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,一*1.014,STRCAT('14.6% ',CON2STR(SXL*1.146,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,二*1.013,STRCAT('19.1% ',CON2STR(SXL*1.191,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,三*1.012,STRCAT('23.6% ',CON2STR(SXL*1.236,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,四*1.011,STRCAT('38.2% ',CON2STR(SXL*1.382,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,五*1.01,STRCAT('50.0% ',CON2STR(SXL*1.5,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,六*1.01,STRCAT('61.8% ',CON2STR(SXL*1.628,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,七*1.01,STRCAT('76.4% ',CON2STR(SXL*1.764,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,八*1.01,STRCAT('80.9% ',CON2STR(SXL*1.809,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,九*1.01,STRCAT('85.4% ',CON2STR(SXL*1.864,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=1,十*1.01,STRCAT('100% ',CON2STR(十,2))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR ,0.0,0,0,'目标预测:'),COLORYELLOW;
DRAWTEXT(CURR=GTHT AND 目标线=0,L*1.015,' BASE'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.88,0,起点),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.80,0,一6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.72,0,二6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.64,0,三6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.56,0,四6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.48,0,五6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.40,0,六6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.32,0,七6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.24,0,八6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.16,0,九6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.08,0,十6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR ,0.06,0.0,0,十一6),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.19,0.01,0,'安全市盈率:18.59倍'),COLORGREEN;
{经营能力}
市净率:=DYNAINFO(7)/FINANCE(34);
市盈率1:=DYNAINFO(40);
市盈率2:=DYNAINFO(38);
股息率:=FINANCE(45);
净资产收益率:=FINANCE(33)/FINANCE(34)*100;
JYNLA:=STRCAT(STRCAT('滚动市盈率: ',CON2STR(市盈率1,2)),'倍');
JYNLB:=STRCAT(STRCAT('静态市盈率: ',CON2STR(市盈率2,2)),'倍');
JYNLC:=STRCAT(STRCAT('股息率DY: ',CON2STR(股息率,2)),'%');
JYNLF:=STRCAT(STRCAT('净资产收益率:【',CON2STR(净资产收益率,2)),'%】');
DRAWTEXT_FIX(ISLASTBAR AND 市净率>2,0.19,0.1,0,JYNLA),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR AND 市净率<2,0.19,0.1,0,JYNLA),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 市盈率2>18.59,0.19,0.19,0,JYNLB),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR AND 市盈率2<18.59,0.19,0.19,0,JYNLB),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 股息率>0,0.19,0.28,0,JYNLC),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 股息率<0,0.19,0.28,0,JYNLC),COLORLIBLUE;
DRAWTEXT_FIX(市净率<2 AND 市盈率2<18.59 AND 股息率>0,0.19,0.37,0,'价值投资提示:【安全区】'),COLORRED;
DRAWTEXT_FIX(市净率>2 OR 市盈率2>18.59,0.19,0.37,0,'价值投资提示:【风险区】'),COLORLIBLUE;
仓位管理:=IF(市净率>2,25,75-ABS((市净率-1)/1*50));
CWGLTS:=STRCAT(STRCAT('仓位管理提示:【',CON2STR(仓位管理,2)),'%】');
DRAWTEXT_FIX(市净率<2,0.19,0.46,0,CWGLTS),COLORRED;
DRAWTEXT_FIX(市净率>2,0.19,0.46,0,CWGLTS),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR AND 净资产收益率>5.38,0.19,0.55,0,JYNLF),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 净资产收益率<5.38,0.19,0.55,0,JYNLF),COLORLIBLUE;
毛利润率:=(FINANCE(20)-FINANCE(21))/FINANCE(20)*100;
净利润率:=FINANCE(30)/FINANCE(20)*100;
净利润增长率:=FINANCE(43);
JYNLD:=STRCAT(STRCAT('毛利润率: ',CON2STR(毛利润率,2)),'%');
JYNLE:=STRCAT(STRCAT('净利润率: ',CON2STR(净利润率,2)),'%');
JYNLH:=STRCAT(STRCAT('净利润增长率: ',CON2STR(净利润增长率,2)),'%');
DRAWTEXT_FIX(ISLASTBAR,0.19,0.64,0,JYNLD),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR,0.19,0.72,0,JYNLE),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR,0.19,0.80,0,JYNLH),COLORLIBLUE;
五日角度:=ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.142,COLORRED;
趋势变动:=五日角度-REF(五日角度,1);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.19,0.88,0,STRCAT(STRCAT('周线趋势增减:',CON2STR(趋势变动,2)),'%')),COLORRED;
M5:=MA(C,5);M10:=MA(C,10);M20:=MA(C,20);M30:=MA(C,30);M60:=MA(C,60);
D3:=MIN(MIN(M5,M10),M20)>M60;
LLM:=LLV(MACD.MACD*100,200);
HHM:=HHV(MACD.MACD*100,200);
TJA:=C>REF(C,1)*1.05;
T:=BARSLAST(C>REF(C,1)*1.095 AND C=H);
T2L:=BARSLAST(C>REF(C,1)*1.08);
T3L:=BARSLAST(C>REF(C,1)*1.07);
T4L:=BARSLAST(C>REF(C,1)*1.06);
T5L:=BARSLAST(C>REF(C,1)*1.05);
AA:=REF(T,1)>100 AND REF(T2L,1)>100 AND REF(T3L,1)>100 AND REF(T4L,1)>100 AND REF(T5L,1)>80 AND TJA;
XGT:=BARSLAST(AA AND HHM<60 AND LLM>-55);
D6:=BARSSINCEN(MIN(MIN(M5,M10),M20)>M60,XGT+1);
XG:=CROSS((XGT=0 AND D3) OR D6=0,0.5);
TJ:=COUNT(XG,30)=2 AND XG;
SR1:=REF(HIGH,10)=HHV(HIGH,2*10+1);
SR2:=FILTER(SR1,10);
SR3:=REF(SR2,10+1);
HD:=REF(SR3,10);
前高:=REF(H,BARSLAST(HD));
倍量:=VOL/REF(VOL,1)>=1.9;
突破前高:=CROSS(C,前高);
YG:= 倍量 AND 突破前高;
低2:=IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL);
SJ:=BARSLAST(YG);
DIF:=MACD.DIF;
H300:=HHVBARS(DIF,300);
AL:=BOLL.UB;
TQ:=BARSLAST(CROSS(AL>=REF(AL,1),0.5));
E25:=EXPMA(C,25);
ZF:=EVERY(RANGE(C/REF(C,1),0.97,1.05),TQ+1);
ZFF:=(HHV(H,TQ+1)-LLV(L,TQ+1))/LLV(L,TQ+1)*100;
TJQ:=EVERY(MAX(C,O)/AL<1.02 ,TQ+1);
XL:=(ATAN((E25/REF(E25,TQ)-1)*100)*180/3.1415926);
TJ1Q:=CROSS(DIF>=REF(DIF,H300),0.5) AND ZFF<17 AND ZF AND TJQ;
起程:=TJ1Q AND XL>75;
A1F:=REF(C,1);
AYFF:=REF(C,10);
A3F:=(AYFF-A1F)/A1F*100;
AA1F:=(A3F-REF(A3F,1));
选股1:=CROSS(AA1F,9.8);
A11F:=REF(V,1);
VAR8:=IF(VOL/CAPITAL>0.001,1,EXP(ABS(LOG(VOL/CAPITAL*100))))>2;
A13F:=VAR8/A11F;
AA3F:=(A13F-REF(A13F,1));
选股2:=CROSS(AA3F,500);
潜伏:=选股1 AND 选股2;
GX:=潜伏 OR 起程 OR CURRBARSCOUNT=CONST(SJ)+2 OR TJ OR (CCI<=100 AND L<=低2);
底部:=FILTER(GX=1,3);
A2A:=BARSCOUNT(C);
AH:=HHV(H,200);
A1L:=LLV(L,200);
A0:=(AH-A1L)/190;
B1:=L-A0;
STICKLINE(底部,B1,B1-0.2*A0,4,0),COLORYELLOW;
DRAWTEXT(底部,(B1-0.2*A0)*0.95, '底部涨停'),COLORFF33FF;
DRAWTEXT(起程,(B1-0.2*A0)*0.95, '起程'),COLORFF33FF;

加载中…