吃肉植物7 发表于 2018-1-27 21:13:32

任意股票叠加

在实时图叠加股票在参数输入代码后,应点“设为缺省参数”才能变换叠加的股票,否则叠加的是公式设定的'1A0001',在其他分析周期输入代码后点确定即可。
引用公式 “001”

c1:c;
o1:o;
h1:h;
l1:l;
rc:DYNAINFO(3);
vv:v;
jh:AMOUNT/10000;
hs:v/CAPITAL*100;
z:(c/ref(c,1)-1)*100;
T:DATE;
//////////////////////////////////////////////

“任意股票叠加”
INPUT:代码(0,0,999999);
X:='a';
IF 代码<10 THEN
   X:='00000';
IF 代码>10 THEN
   X:='0000';
IF 代码>100 THEN
   X:='000';
IF 代码>1000 THEN
   X:='00';
IF 代码>10000 THEN
   X:='0';
IF 代码<=99999 THEN
   x:=x+NUMTOSTR(代码,0);
IF 代码>99999 THEN
   x:=NUMTOSTR(代码,0);
IF 代码=0THEN
   x:='1A0001';
DRAWTEXT(SYSPARAM(2)=BARPOS,h,'叠加:'+x+' '+STKNAMEEX(x))ALIGN4,COLORWHITE;
T:=BARSLAST(SYSPARAM(2)=BARPOS);
T1:=STKINDI(x,'001.T',0,DATAPERIOD);
T2:=BARSLAST(T1=DATE);
开:STKINDI(x,'001.o1',0,DATAPERIOD),LINETHICK;
高:STKINDI(x,'001.h1',0,DATAPERIOD),LINETHICK;
低:STKINDI(x,'001.l1',0,DATAPERIOD),LINETHICK;
收:STKINDI(x,'001.c1',0,DATAPERIOD),LINETHICK;
涨:STKINDI(x,'001.z',0,DATAPERIOD),LINETHICK,PRECISION2;
换:STKINDI(x,'001.hs',0,DATAPERIOD),LINETHICK,PRECISION2,COLORGRAY;
量:=STKINDI(x,'001.vv',0,DATAPERIOD),LINETHICK,PRECISION0,COLORGRAY;
额:=STKINDI(x,'001.jh',0,DATAPERIOD),LINETHICK,PRECISION0,COLORGRAY;
C1:=REF(C,T);
CC:=IF(T1=DATE,(收/REF(收,T)-1)*C1+C1,REF((收/REF(收,T)-1)*C1+C1,T2));
OO:=IF(T1=DATE,(开/REF(收,T)-1)*C1+C1,REF((收/REF(收,T)-1)*C1+C1,T2));
HH:=IF(T1=DATE,(高/REF(收,T)-1)*C1+C1,REF((收/REF(收,T)-1)*C1+C1,T2));
LL:=IF(T1=DATE,(低/REF(收,T)-1)*C1+C1,REF((收/REF(收,T)-1)*C1+C1,T2));

k:=BARPOS;
k1:=k;
zrc:=STKINDI(x,'001.rc',0,DATAPERIOD);
grc1:=DYNAINFO(3);
go:=DYNAINFO(4);
gf1:=abs(DYNAINFO(14)*100);
grc:=if(k1=1 OR gf1>=11,go,grc1);
gfh:=(h/grc-1)*100;
gfl:=abs((l/grc-1)*100);
gf2:=hhv(abs(max(gfh,gfl)),0);
zfh:=(收/zrc-1)*100;
zfl:=abs((收/zrc-1)*100);
zf1:=hhv(abs(max(zfh,zfl)),0);
gf1:=if(gf1>=11,min(gf1,gf2),max(gf1,gf2));
gf:=gf1;
Zf:=Zf1;
bl:=gf/zf;
zs:=(1+(收/zrc-1)*bl)*grc;
jj1:=sum(zs*量,0)/sum(量,0);
jj2:=(1+(sum(额,0)/sum(量,0)*100/zrc-1)*bl)*grc;
jj:=IF(代码=0 OR 代码=399001,jj1,jj2);
m5:ma(收,5),PRECISION2,LINETHICK;
m10:ma(收,10),PRECISION2,LINETHICK;
m30:ma(收,30),PRECISION2,LINETHICK;
m60:ma(收,60),PRECISION2,LINETHICK;
if(DATATYPE>=0 and DATATYPE<=12,ma(cc,5),zs)PRECISION2;
if(DATATYPE>=0 and DATATYPE<=12,ma(cc,10),jj)PRECISION2,COLORMAGENTA;
kxx:=(zs>=ref(zs,1));
PARTLINE(kxx,zs),COLORMAGENTA;
PARTLINE(not(kxx),zs),COLORGREEN;
if DATATYPE>=0 and DATATYPE<=12 then begin
kx:=(CC>OO or CC=OO and CC>ref(CC,1));
stickline(kx,HH,LL,0.1,1),COLORRED;
stickline(kx,CC,OO,8,1),COLORRED;
stickline(not(kx),HH,LL,0.1,0),COLORCYAN;
stickline(not(kx),CC,OO,8,0),COLORCYAN;
ma(cc,5);
ma(cc,10);
ma5:ma(c,5);
ma10:ma(c,10);
ma30:ma(c,30);
end;


4409070 发表于 2018-1-27 21:28:25

楼主怎么不上一个图呀,这样更明了

cokietemp 发表于 2018-1-28 05:45:18

很不幸的又给干下去了

novade 发表于 2018-1-28 19:00:50

看起来好~~像啊~~~~~

dkaiod 发表于 2018-1-28 20:29:34

嘿嘿...没事我才不骂人呢...

lkauey 发表于 2018-1-28 22:47:43

我怎么说那?~!

dk32kdk 发表于 2018-1-29 01:44:16

下流~~~~加~~~~~至极~~~~~~

kakjseq 发表于 2018-1-29 22:55:56

我去看看 网络上的事 我不是很会 哎

kidkaj 发表于 2018-1-30 03:14:22

回复一下................

kidkaj 发表于 2018-1-30 04:13:52

谢谢分享了!

cokietemp 发表于 2018-1-30 08:36:49

我不知道他说的是什么啊~~

fengjunchaofjc 发表于 2018-2-23 03:12:09

哦，了解了谢谢

newtown 发表于 2018-2-23 08:21:18

感谢提供！

j131125 发表于 2018-3-12 08:06:17

说的是什么啊~~

其其其其1 发表于 2018-3-22 10:04:40


谢谢分享了

fengjunchaofjc 发表于 2018-12-9 21:49:50

谢谢分享了

Explore_kAHcb 发表于 2021-12-26 23:47:14

谢谢分享 谢谢分享

Explore_kAHcb 发表于 2022-2-20 22:45:04

谢谢分享 谢谢分享

ice 发表于 2022-10-31 16:35:51


礼貌顶帖 文明拿分
页: [1]
查看完整版本: 任意股票叠加