加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

价值投资宝主图源码

(2019-07-14 14:35:40)
标签:

财经

改编

股票

源码

指标

分类: 指标源码
闲话少说,先看主图指标的效果图
价值投资宝主图源码
该指标融合了多个知名的指标,比如明月弯刀,比如涨跌百分比,源码如下:

{大背景色}

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;

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有