股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信多空博弈修正源码副图贴图)


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2023-10-9 11:41:28

以下是通达信多空博弈修正源码副图贴图)

该指标为参考网上的经修改优化而成,图中洋红色曲线持股,绿色持币。其他自己也能看懂。

买线:=EMA(C,2);

卖线:=EMA(SLOPE(C,21)*20+C,42);

STICKLINE(买线>=卖线,-50+REFDATE(HHV(H,0),DATE)/5,-50+REFDATE(LLV(L,0),DATE)/5,6,0),COLORLIMAGENTA;

STICKLINE(买线<卖线,-50+REFDATE(HHV(H,0),DATE)/5,-50+REFDATE(LLV(L,0),DATE)/5,6,0),COLORLIBLUE;

RSV:=((((HHV(HIGH,10) - CLOSE) / (HHV(HIGH,10) - LLV(LOW,10))) * 200) - 125);

散户:=SMA(RSV,5,1)+15{,COLORGREEN,LINETHICK1};

RSV1:=((((CLOSE - LLV(LOW,10)) / (HHV(HIGH,10) - LLV(LOW,10))) * 200) - 105);

主力:SMA(RSV1,5,1)+15,COLORLIRED,LINETHICK1;

买进:IF(主力>REF(主力,1),主力,DRAWNULL),COLORMAGENTA,LINETHICK3;

{持币:IF(散户>REF(散户,1),散户,DRAWNULL),COLORGREEN,LINETHICK3;}

持币:IF(主力<REF(主力,1),主力,DRAWNULL),COLORGREEN,LINETHICK3;

{P(10,1,100),A(5,1,100);}

SVOL:=INTPART(SUM(V,0)/CAPITAL);

TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;

S1:=BARSLAST(TJ0)+1;

TJ2:=S1<REF(S1,1);

S2:=IF(TJ2,REF(S1,1)+1,S1);

S3:=SUM(TJ2,0);

ZK1:="KD.K#WEEK"(9,3,3);

ZD2:="KD.D#WEEK"(9,3,3);

Z,1:="MACD.DIF#WEEK"(12,26,9);

ZA2:="MACD.DEA#WEEK"(12,26,9);

换手:=V/CAPITAL*100,LINETHICK0;

JCD:=FILTER(CROSS(ZK1,ZD2) AND REF(ZD2,1)<30,13),NODRAW;

取点:=BARSLAST(JCD);

吸筹区:=IF(取点>0 AND 取点<61,取点,0);

ZS1:=吸筹区;

ZS2:=吸筹区+1;

ZS3:=换手/5;

ZSA:=IF(ZS1>0,SUM((ZS3),吸筹区+1),0),NODRAW;

主力筹码%:ZSA,NODRAW;

建仓天数:ZS1,NODRAW;

阶段总额(万):=SUM(AMOUNT/10000,S2)*100,NODRAW;

阶段总量(手):=SUM(V,S2)*100,NODRAW;

阶段成本(元):(阶段总额(万)/(阶段总量(手)/100)),NODRAW;

换手冷清:STICKLINE(换手<3,-80,(换手+5-40)*2,0.0,0),COLORCYAN;

青换手冷清:(换手<3,-80,(换手-6)*4,0.0,0),COLORCYAN;

换手活跃:STICKLINE(换手>=3 AND 换手<7,-80,(换手+5-40)*2,0.0,0),COLORYELLOW;

黄换手活跃:(换手>=3 AND 换手<7,-80,(换手-6)*4,0.0,0),COLORYELLOW;

换手热烈:STICKLINE(换手>=7,-80,(换手+5-40)*2,0.5,0),COLORRED;

红换手热烈:(换手>=7,-80,(换手-6)*4,0.5,0),COLORRED;

STICKLINE(JCD,(0-6)*4,6*6,0.5,0),COLORGREEN;

DRAWTEXT(建仓天数,40,'建仓'),COLORGREEN;

LL:=REF(CLOSE,1);

MM:=SMA(MAX(CLOSE-LL,0),6,1)/SMA(ABS(CLOSE-LL),6,1)*100;

出:IF(CROSS(80,MM),90,100),COLORCYAN;

DRAWTEXT(CROSS(80,MM),MM,'卖 '),COLORWHITE;

DRAWTEXT(CROSS(主力,散户),0,'买 '),COLORRED;

AA:=(WINNER((CLOSE + ((CLOSE * 15) / 100))) * 100);

BB:=(WINNER((CLOSE + ((CLOSE * 0) / 100))) * 100);

CC:=(AA - BB);

DD:=((WINNER((CLOSE - ((CLOSE * 0.1) / 100))) - WINNER((CLOSE - ((CLOSE * 15) / 100)))) * 100);

EE:=(((CC < 3) AND (DD < 0.5)) AND (OPEN > LOW));

A1:=DYNAINFO(6);

A22:=IF((LOW > A1),0,IF((HIGH < A1),1,(((A1 - LOW) + 0.01) / ((HIGH - LOW) + 0.01))));

A3:=(VOL / WINNER(LOW));

A4:=REF(HHV(CLOSE,120),1);

A5:=REF(LLV(CLOSE,120),1);

A6:=((100 * (CLOSE - A5)) / (A4 - A5));

A7:=((A22 > 0) OR (A22 = 1));

A8:=((A7 AND ((A3 / REF(A3,3)) >= 3)) AND (A6 < 80));

A9:=(((REF(A8,1) OR REF(A8,2)) OR REF(A8,3)) OR REF(A8,4));

A10:=(A8 AND A9);

A11:=IF(FILTER(A8,3),5,0);

A12:=IF((FILTER(A10,3) OR EE),10,0);

进场:STICKLINE(A11,-48,-33,2.5,0),COLORFF7700;

加仓:STICKLINE(A12,-48,-20,2.5,0),COLORFF00FF;

STICKLINE(A11,-48,-33,2.2,0),COLORFF7700;

STICKLINE(A11,-48,-33,1.7,0),COLORFFDD00;

STICKLINE(A11,-48,-33,0.7,0),COLORFFEE00;

STICKLINE(A12,-48,-20,2.2,0),COLOR102066;

STICKLINE(A12,-48,-20,1.7,0),COLOR1020AA;

STICKLINE(A12,-48,-20,0.7,0),COLOR1020FF;

DRAWTEXT(进场=5,-33,'进场'),COLORFFFF00;

DRAWTEXT(加仓=10,-20,'加仓'),COLORFFFFFF;

VAR2L:=REF(LOW,1);

VAR3L:=SMA(ABS(LOW-VAR2L),3,1)/SMA(MAX(LOW-VAR2L,0),3,1)*110;

VAR4L:=EMA(IF(CLOSE*1.3,VAR3L*10,VAR3L/10),3);

VAR5L:=LLV(LOW,13);

VAR6L:=HHV(VAR4L,13);

VAR7L:=IF(MA(CLOSE,34),1,0);

VAR8L:=EMA(IF(LOW<=VAR5L,(VAR4L+VAR6L*2)/2,0),3)/618*VAR7L;

VAR9LL:=IF(VAR8L>110,110,VAR8L);

STICKLINE(VAR9LL<REF(VAR9LL,1),48,48+VAR9LL,0.5,0),COLORYELLOW;

RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV2,2,1);

D:=SMA(K,2,1);

J:=3*K-2*D;

J1:=REVERSE(J);

AA1:=REF(MA(C,1),10)>REF(MA(C,60),10);

买点:CROSS(J,J1) AND AA1,NODRAW;

STICKLINE(买点,0,30,5,0),COLOR0000FF;

STICKLINE(买点,30,55,3,0),COLORWHITE;

STICKLINE(买点,55,80,1,0),COLORYELLOW;

DRAWTEXT(买点,40,'庄现!'),COLORFF00FF;

买:IF(CROSS(K,D)AND AA1,10,0),COLORLIMAGENTA;





回复

举报

QQ|

GMT+8, 2024-11-18 14:55

快速回复 返回顶部 返回列表