查看完整版本: 大盘分时线自适应叠加&证券交割计算

cwy 2006-12-29 21:47

大盘分时线自适应叠加&证券交割计算

元旦.春节快要到了,祝各位朋友新的一年 财源滚滚  身体健康 万事如意 ！！！  

送上二个自己为交易权证编写的公式，当然也可用于其他，都需引用公式。
飞狐：
1：大盘分时线自适应叠加
此式用于判断买卖时机，适合盘感较佳的人

2:证券交割计算
交易品种计算为股票，基金，权证，如需要其他的品种，可自行添加，佣金率根据自己实际的佣金率调整。
[code]
引用公式 01
rc:DYNAINFO(3);
C1:C;

1：大盘分时线自适应叠加
k:=BARPOS;
k1:=k[datacount];
sc:=STRCMP(MARKETLABEL, 'SH')=0;
shC:=STKINDI('1A0001','01.rc',0,DATAPERIOD);
szC:=STKINDI('399001','01.rc',0,DATAPERIOD);
zrc:=if(sc,shc,szc);
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:=(INDEXh/zrc-1)*100;
zfl:=abs((INDEXl/zrc-1)*100);
zf1:=hhv(abs(max(zfh,zfl)),0);
gf1:=if(gf1>=11,min(gf1,gf2),max(gf1,gf2));
gf:=gf1[datacount];
Zf:=Zf1[datacount];
bl:=gf/zf;
zs:(1+(INDEXC/zrc-1)*bl)*grc,COLORGREEN;

2：证券交割计算
INPUT:买入日期(0,0,1381231),交易代码(1,0,999999),买入股数(0,0,999999), 买入价格(0,0,1000),卖出股数(0,0,999999),卖出价格(0,0,1000);
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);

szag:=交易代码>=1 and 交易代码<2200;
szbg:=交易代码>=200000 and 交易代码<201000;
shag:=交易代码>=600000 and 交易代码<602000;
shbg:=交易代码>=900901 and 交易代码<901000;
szgp:=szag or szbg;
shgp:=shag or shbg;
gp:=szag or szbg or shag or shbg;
szqz:=交易代码>=30001 and 交易代码<38100;
szjj:=交易代码>=184688 and 交易代码<184700;
shqz:=交易代码>=580000 and 交易代码<582300;
shjj:=交易代码>=500001 and 交易代码<500100;
qz:=szqz or szjj or shqz or shjj;
佣金率:=if(qz,0.003,if(gp,0.0026,0));{股票=0.0026,基金.权证=0.003,起点5元,根据自己的佣金率调整}
买佣金:=if(买入股数>0 and 买入价格>0,if(买入价格*买入股数*佣金率<5,5,买入价格*买入股数*佣金率),0);
买过户费:=if(买入股数>0 and 买入价格>0,if(szgp,0,if(shgp and 买入股数*0.001<1,1,买入股数*0.001)),0);{上海股票=0.001,起点1元}
买印花税:=买入价格*买入股数*0.001;{印花税=0.001}
买金额:=买入价格*买入股数+买佣金+买过户费+买印花税;
卖佣金:=if(卖出股数>0 and 卖出价格>0,if(卖出价格*卖出股数*佣金率<5,5,卖出价格*卖出股数*佣金率),0);
卖过户费:=if(卖出股数>0 and 卖出价格>0,买过户费,0);
卖印花税:=卖出价格*卖出股数*0.001;
卖金额:=卖出价格*卖出股数-卖佣金-卖过户费-卖印花税;
交易盈亏:if(卖出股数>0 and 卖出价格>0,卖金额-买金额,0),PRECISION2,LINETHICK0;
cc:=STKINDI(x,'01.c1',0,DATAPERIOD)PRECISION3;
w:=BARSSINCE(date=买入日期)*0;
动态盈亏:(if(买金额>0,cc*买入股数-买金额-if(cc*买入股数*佣金率<5,5,cc*买入股数*佣金率)-if(szgp,0,if(shgp and 买入股数*0.001<1,1,买入股数*0.001))-cc*买入股数*0.001,0)+w),COLORWHITE;
POLYLINE(C,w);
佣金:if(买入股数>0 and 买入价格>0,if(买入价格*买入股数*2*((佣金率)/(1-(佣金率)))<10,10,买入价格*买入股数*2*((佣金率)/(1-(佣金率)))),0)/买入股数,PRECISION3,LINETHICK0;
过户:if(买入股数>0 and 买入价格>0,if(szgp,0,if(shgp and 买入股数*2*0.001<2,2,买入股数*2*0.001)),0)/买入股数,PRECISION3,LINETHICK0;
印花:if(买入股数>0 and 买入价格>0,买入价格*买入股数*2*((0.001)/(1-(0.001))),0)/买入股数,PRECISION3,LINETHICK0;
保本价:买入价格+佣金+过户+印花,PRECISION3,LINETHICK0;
DRAWTEXT(SYSPARAM(2)=BARPOS,0,'股票代码:'+x+' '+STKNAMEEX(x)+' '+'买入价格'+NUMTOSTR(买入价格,3)+' '+'买入股数'+NUMTOSTR(买入股数,0)+' '+'佣金(买)'+NUMTOSTR(买佣金,2)+' '+'过户费(买)'+' '+NUMTOSTR(买过户费,2)+' '+'印花税(买)'+' '+NUMTOSTR(买印花税,2)+' '+'金额(买)'+' '+NUMTOSTR(买金额,2)
+' '+'\n                         卖出价格'+NUMTOSTR(卖出价格,3)+' '+'卖出股数'+NUMTOSTR(卖出股数,0)+' '+'佣金(卖)'+NUMTOSTR(卖佣金,2)+' '+'过户费(卖)'+' '+NUMTOSTR(卖过户费,2)+' '+'印花税(卖)'+' '+NUMTOSTR(卖印花税,2)+' '+'金额(卖)'+' '+NUMTOSTR(卖金额,2)),COLORWHITE,ALIGN4;
[/code]

[[i] 本帖最后由 cwy 于 2006-12-29 21:50 编辑 [/i]]

peter109 2006-12-29 22:27

您辛苦了
先收下

yngs 2006-12-30 02:10

[quote]原帖由 [i]cwy[/i] 于 2006-12-29 21:47 发表
元旦.春节快要到了,祝各位朋友新的一年 财源滚滚  身体健康 万事如意 ！！！  

送上二个自己为交易权证编写的公式，当然也可用于其他，都需引用公式。
飞狐：
1：大盘分时线自适应叠加
此式用于判断买卖时机 ... [/quote]
两个东西都好玩:clap::D

ysmygsyk 2006-12-30 11:44

好东西，谢谢分享！

随风1216 2006-12-30 12:44

谢谢,虽然用不上,新年好!!!

诚信为本 2006-12-30 13:12

xiexie

vivaxie 2006-12-30 19:08

不错，祝狐友们来年继续行大运，发大财~~
谢谢公式团

vivaxie 2006-12-31 00:06

第一个公式不错，第二个感觉太麻烦了，还不如自己用vb写个小程序来者

sllsll 2006-12-31 00:47

谢谢,虽然用不上,新年好!!!

chenjiaq 2006-12-31 16:01

谢谢提供分享

xggs 2007-1-1 22:14

谢谢提供分享

joneslee 2007-1-2 09:55

引入指标。没有引用指标？

zxc123 2007-1-4 19:38

谢谢提供分享

千里快哉风 2007-1-9 01:21

真是太好了！非常感谢

sunmoon 2007-1-12 17:16

好思路   你们的脑袋长什么样？

绿色通道 2007-1-13 11:13

谢谢提供分享

Aptiva 2007-1-14 19:36

"jgb.HD"     jgb  指标不存在，请提示。

谢谢！

fh8856 2007-1-16 14:41

您辛苦了

sddup 2008-5-25 20:51

这个不错 收藏了

大盘分时线自适应叠加&证券交割计算
元旦.春节快要到了,祝各位朋友新的一年 财源滚滚  身体健康 万事如意 ！！！  

送上二个自己为交易权证编写的公式，当然也可用于其他，都需引用公式。
飞狐：
1：大盘分时线自适应叠加
此式用于判断买卖时机，适合盘感较佳的人

2:证券交割计算
交易品种计算为股票，基金，权证，如需要其他的品种，可自行添加，佣金率根据自己实际的佣金率调整。
复制内容到剪贴板代码:
引用公式 01
rc:DYNAINFO(3);
C1:C;

1：大盘分时线自适应叠加
k:=BARPOS;
k1:=k[datacount];
sc:=STRCMP(MARKETLABEL, 'SH')=0;
shC:=STKINDI('1A0001','01.rc',0,DATAPERIOD);
szC:=STKINDI('399001','01.rc',0,DATAPERIOD);
zrc:=if(sc,shc,szc);
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:=(INDEXh/zrc-1)*100;
zfl:=abs((INDEXl/zrc-1)*100);
zf1:=hhv(abs(max(zfh,zfl)),0);
gf1:=if(gf1>=11,min(gf1,gf2),max(gf1,gf2));
gf:=gf1[datacount];
Zf:=Zf1[datacount];
bl:=gf/zf;
zs:(1+(INDEXC/zrc-1)*bl)*grc,COLORGREEN;

2：证券交割计算
INPUT:买入日期(0,0,1381231),交易代码(1,0,999999),买入股数(0,0,999999), 买入价格(0,0,1000),卖出股数(0,0,999999),卖出价格(0,0,1000);
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);

szag:=交易代码>=1 and 交易代码<2200;
szbg:=交易代码>=200000 and 交易代码<201000;
shag:=交易代码>=600000 and 交易代码<602000;
shbg:=交易代码>=900901 and 交易代码<901000;
szgp:=szag or szbg;
shgp:=shag or shbg;
gp:=szag or szbg or shag or shbg;
szqz:=交易代码>=30001 and 交易代码<38100;
szjj:=交易代码>=184688 and 交易代码<184700;
shqz:=交易代码>=580000 and 交易代码<582300;
shjj:=交易代码>=500001 and 交易代码<500100;
qz:=szqz or szjj or shqz or shjj;
佣金率:=if(qz,0.003,if(gp,0.0026,0));{股票=0.0026,基金.权证=0.003,起点5元,根据自己的佣金率调整}
买佣金:=if(买入股数>0 and 买入价格>0,if(买入价格*买入股数*佣金率<5,5,买入价格*买入股数*佣金率),0);
买过户费:=if(买入股数>0 and 买入价格>0,if(szgp,0,if(shgp and 买入股数*0.001<1,1,买入股数*0.001)),0);{上海股票=0.001,起点1元}
买印花税:=买入价格*买入股数*0.001;{印花税=0.001}
买金额:=买入价格*买入股数+买佣金+买过户费+买印花税;
卖佣金:=if(卖出股数>0 and 卖出价格>0,if(卖出价格*卖出股数*佣金率<5,5,卖出价格*卖出股数*佣金率),0);
卖过户费:=if(卖出股数>0 and 卖出价格>0,买过户费,0);
卖印花税:=卖出价格*卖出股数*0.001;
卖金额:=卖出价格*卖出股数-卖佣金-卖过户费-卖印花税;
交易盈亏:if(卖出股数>0 and 卖出价格>0,卖金额-买金额,0),PRECISION2,LINETHICK0;
cc:=STKINDI(x,'01.c1',0,DATAPERIOD)PRECISION3;
w:=BARSSINCE(date=买入日期)*0;
动态盈亏:(if(买金额>0,cc*买入股数-买金额-if(cc*买入股数*佣金率<5,5,cc*买入股数*佣金率)-if(szgp,0,if(shgp and 买入股数*0.001<1,1,买入股数*0.001))-cc*买入股数*0.001,0)+w),COLORWHITE;
POLYLINE(C,w);
佣金:if(买入股数>0 and 买入价格>0,if(买入价格*买入股数*2*((佣金率)/(1-(佣金率)))<10,10,买入价格*买入股数*2*((佣金率)/(1-(佣金率)))),0)/买入股数,PRECISION3,LINETHICK0;
过户:if(买入股数>0 and 买入价格>0,if(szgp,0,if(shgp and 买入股数*2*0.001<2,2,买入股数*2*0.001)),0)/买入股数,PRECISION3,LINETHICK0;
印花:if(买入股数>0 and 买入价格>0,买入价格*买入股数*2*((0.001)/(1-(0.001))),0)/买入股数,PRECISION3,LINETHICK0;
保本价:买入价格+佣金+过户+印花,PRECISION3,LINETHICK0;
DRAWTEXT(SYSPARAM(2)=BARPOS,0,'股票代码:'+x+' '+STKNAMEEX(x)+' '+'买入价格'+NUMTOSTR(买入价格,3)+' '+'买入股数'+NUMTOSTR(买入股数,0)+' '+'佣金(买)'+NUMTOSTR(买佣金,2)+' '+'过户费(买)'+' '+NUMTOSTR(买过户费,2)+' '+'印花税(买)'+' '+NUMTOSTR(买印花税,2)+' '+'金额(买)'+' '+NUMTOSTR(买金额,2)
+' '+'\n                         卖出价格'+NUMTOSTR(卖出价格,3)+' '+'卖出股数'+NUMTOSTR(卖出股数,0)+' '+'佣金(卖)'+NUMTOSTR(卖佣金,2)+' '+'过户费(卖)'+' '+NUMTOSTR(卖过户费,2)+' '+'印花税(卖)'+' '+NUMTOSTR(卖印花税,2)+' '+'金额(卖)'+' '+NUMTOSTR(卖金额,2)),COLORWHITE,ALIGN4;
页: [1]
查看完整版本: 大盘分时线自适应叠加&证券交割计算