查看完整版本: 如何写“分时副图”指标

zcx88 2006-3-7 09:59

谢谢老大，很不错

东南人氏 2006-3-7 10:09

谢谢

zcx88 2006-3-7 10:10

按小键盘上的＊

bajatje 2006-3-9 08:43

对小振幅时，出现的显示位置偏离　修正


[code]q:=datacount;
r:=DYNAINFO(3);
hh:=DYNAINFO( 5);
LL:=DYNAINFO( 6);
f:=max(hh-r,r-LL);
ff:=f/r*100;//最大半振幅
q1:=if(ff<1,0.9898*r,r-f*1.01);//主图下边线
q2:=if(ff<1,0.9798*r,r-2*f*1.007);//副图1下边线(0位线)
q3:=if(ff<1,0.9697*r,r-3*f*1.009);//副图2下边线(0位线)
{有了Q1、Q2、Q3，叠加副图指标也就容易了}
//在副图1叠加kd
k:="kdj.k";
d:="kdj.d";
kh:=hhv(max(d,k),0);
kL:=LLv(min(k,d),0);
kb:=(q1-q2)/(kh-kL);
ky:=(q1+q2-kb*(kh+kL))/2;
k*kb[q]+ky[q],colormagenta;
d*kb[q]+ky[q];
ab:=(q1-q2)/100;
ay:=(q1+q2-ab*100)/2;
50*ab+ay,COLORGRAY;
20*ab+ay,COLORGRAY;
80*ab+ay,COLORGRAY;
//在副图2叠加RSI
r:="rsi.rsi1";
rh:=hhv(r,0);
rL:=LLv(r,0);
rb:=(q2-q3)/(rh-rL);
ry:=(q2+q3-rb*(rh+rL))/2;
r*rb[q]+ry[q],COLORRED;[/code]

杨跃进 2006-3-15 21:25

谢谢老大，不错.

zyk2005 2006-3-19 11:15

q:=datacount;
r:=DYNAINFO(3);
hh:=DYNAINFO( 5);
LL:=DYNAINFO( 6);
f:=max(hh-r,r-LL);
ff:=f/r*100;//最大半振幅
q1:=if(ff<1,0.9898*r,r-f*1.01);//主图下边线
q2:=if(ff<1,0.9798*r,r-2*f*1.007);//副图1下边线(0位线)
q3:=if(ff<1,0.9697*r,r-3*f*1.009);//副图2下边线(0位线)
{有了Q1、Q2、Q3，叠加副图指标也就容易了}
//在副图1叠加kd
k:="kdj.k";
d:="kdj.d";
kh:=hhv(max(d,k),0);
kL:=LLv(min(k,d),0);
kb:=(q1-q2)/(kh-kL);
ky:=(q1+q2-kb*(kh+kL))/2;
k*kb[q]+ky[q],colormagenta;
d*kb[q]+ky[q];
ab:=(q1-q2)/100;
ay:=(q1+q2-ab*100)/2;
50*ab+ay,COLORGRAY;
20*ab+ay,COLORGRAY;
80*ab+ay,COLORGRAY;
//在副图2叠加RSI
r:="rsi.rsi1";
rh:=hhv(r,0);
rL:=LLv(r,0);
rb:=(q2-q3)/(rh-rL);
ry:=(q2+q3-rb*(rh+rL))/2;
r*rb[q]+ry[q],COLORRED;

czhao 2006-3-19 18:15

个人感觉分时对T+0挺有用.

林青 2006-3-25 09:53

谢谢  学习中.....

杨跃进 2006-4-2 06:59

谢谢

股市骑兵00 2006-4-3 09:50

谢谢！我也学习一下！:clap:

muxiaojun 2006-4-3 23:05

学习，非常谢谢。

lingfang 2006-4-8 22:39

谢谢  学习中.....

岩松 2006-4-22 17:08

飞狐你是最好的软件，我只是提了一句话。谢谢！！谢谢！！谢谢！！

xyg3069 2006-5-10 14:34

[quote]原帖由 [i]bajatje[/i] 于 2005-11-21 12:12 发表

现在的版本都不支持 [/quote]
:thinking: 不支持？

ycpyj 2006-5-16 20:17

:bhuhhh:

[[i] 本帖最后由 pengyou 于 2007-9-17 16:40 编辑 [/i]]

bbl 2006-5-17 21:04

q:=datacount;
r:=DYNAINFO(3);
hh:=DYNAINFO( 5);
LL:=DYNAINFO( 6);
f:=max(hh-r,r-LL);
ff:=f/r*100;//最大半振幅
q1:=if(ff<1,0.9898*r,r-f*1.01);//主图下边线
q2:=if(ff<1,0.9798*r,r-2*f*1.007);//副图1下边线(0位线)
q3:=if(ff<1,0.9697*r,r-3*f*1.009);//副图2下边线(0位线)
{有了Q1、Q2、Q3，叠加副图指标也就容易了}
//在副图1叠加kd
k:="kdj.k";
d:="kdj.d";
kh:=hhv(max(d,k),0);
kL:=LLv(min(k,d),0);
kb:=(q1-q2)/(kh-kL);
ky:=(q1+q2-kb*(kh+kL))/2;
k*kb[q]+ky[q],colormagenta;
d*kb[q]+ky[q];
ab:=(q1-q2)/100;
ay:=(q1+q2-ab*100)/2;
50*ab+ay,COLORGRAY;
20*ab+ay,COLORGRAY;
80*ab+ay,COLORGRAY;
//在副图2叠加RSI
r:="rsi.rsi1";
rh:=hhv(r,0);
rL:=LLv(r,0);
rb:=(q2-q3)/(rh-rL);
ry:=(q2+q3-rb*(rh+rL))/2;
r*rb[q]+ry[q],COLORRED;

何红 2006-5-28 23:03

谢谢!

shujenwen 2006-6-4 07:08

3q!

3q3q3q!
巧思!

[[i] 本帖最后由 shujenwen 于 2006-6-4 07:40 编辑 [/i]]

老杨哥 2006-6-6 10:57

能不能把字打上去呀

zhangcharlie 2006-6-20 22:25

懒汉爷爷:能不能把分时图上的即时黄色均线叠加到一分钟K(或者5分钟)K线图上?

zrt9 2006-7-1 18:05

謝謝

xyg3069 2006-9-3 16:44

进来学习，支持。

shangjing558 2006-10-13 20:23

[quote]原帖由 [i]bajatje[/i] 于 2005-11-21 12:12 发表


按小键盘上的＊ [/quote]

请问我的是笔记本怎么操作？

chenjiaq 2006-10-27 08:08

谢谢提供分享

绿色通道 2006-12-3 16:32

谢谢  学习中.....

top_01 2006-12-27 09:37

谢谢提供分享

nxw 2007-1-10 02:40

巧妙构思！

zn2677 2007-1-16 21:49

谢谢！！

我爱小金鱼 2007-1-19 23:34

呵呵！！！好哦！！！！谢谢............

figopan123 2007-2-15 17:28

好文  谢谢  学习中.....

zgj195711 2007-2-19 02:47

非常感谢！

梦寐以求，有添锐器。忠心感谢！！！！！！

sllsll 2007-2-28 22:26

厉害,高手! :clap::clap:

nonoaka 2007-3-17 15:41

引用您的原码,显示成功.但还是没有掌握不会应用.请楼主就以下原码做个示例;

{出入财神}
LC:= REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
快:=EMA(RSI1,5);{,COLORgreen}

{★千堆雪}
ys1:=(HIGH+LOW+CLOSE*2)/4;
rk3:=EMA(ys1,10);
rk4:=STD(ys1,10);
rk5:=(ys1-rk3)*100/rk4;
rk6:=EMA(rk5,5);
rk7:=EMA(rk6,10);
七:(EMA(rk6,10)+100)/2-5,colorred;
彩:EMA(七,2),COLORffaa00;
虹:EMA(七,4),COLOR008F00;

Va1:=LLV(LOW,21);
Va2:=HHV(HIGH,21);
q:=EMA((CLOSE-Va1)/(Va2-Va1)*100,5);
趋:ma(q,15),color0099ff,pointdot;

ar5:=(CLOSE-LLV(LOW, 100))/(HHV(HIGH, 100)-LLV(LOW, 100))*200;
ar6:=SMA(ar5, 3, 1);
ar7:=SMA(ar6, 3, 1);
ar8:=3*ar6-2*ar7;
ar11:=EMA((CLOSE-LLV(LOW, 5))/(HHV(HIGH, 5)-LLV(LOW, 5))*100, 4)*2;
ar12:=EMA(0.667*REF(ar11, 1)+0.333*ar11, 2);
ar13:=3*ar11-2*ar12;
ar14:=POW(MA(CLOSE, 5), 2)+MA(CLOSE, 5);
ar15:=POW(MA(LOW, 5), 2)+MA(LOW, 5);
ar16:=POW(MA(HIGH, 5), 2)+MA(HIGH, 5);
ar17:=(ar14-LLV(ar15, 64))/(HHV(ar16, 64)-LLV(ar15, 64))*150+65-10;
ar18:=SMA(ar17, 3, 1)*1.5-100;
ar19:=SMA(ar18, 3, 1);
ar20:=3*ar18-2*ar19;
ar21:=(HIGH+LOW+CLOSE*2)/4;
ar22:=EMA(ar21, 13);
ar23:=STD(ar21, 13);
ar24:=(ar21-ar22)*100/ar23;
ar25:=EMA(ar24, 5);
ar27:=EMA(ar25, 13)+200-100;
ar28:=EMA(ar27, 10);
ar29:=3*ar27-2*ar28;
ar30:=ar6+ar11+ar18+ar27;
ar31:=ar7+ar12+ar19+ar28;
ar32:=ar8+ar13+ar20+ar29;
ar33:=(HIGH+LOW+CLOSE)/3;
ar34:=AMOUNT/VOL/100;
ar35:=SUM(AMOUNT, 5)/SUM(VOL, 5)/100;
ar36:=(ar33-MA(ar33, 34))/(0.015*AVEDEV(ar33, 34));
ar41:=(ar33-EMA(ar33, 24))/STD(ar33, 24)*100;
ar42:=(ar33-MA(ar33, 24))/(0.015*AVEDEV(ar33, 24));
ar43:=EMA(ar41, 5);
ar44:=(ar34-MA(ar34, 21))/(0.015*AVEDEV(ar34, 21));
ar45:=(ar35-MA(ar35, 90))/(0.015*AVEDEV(ar35, 90));
ar46:=((ar45+ar44+ar43+ar42+ar36)/5+165)/4;
ar47:=(EMA(EMA(EMA(ar46, 15), 10), 5)-25)*2+DMA(AMOUNT/VOL/100, VOL/CAPITAL);
ar48:=(ar30+ar31+ar32*30)/32/5-15;
ar49:=EMA(ar48, 13);
ar51:=(ar47+ar49)/2;
ar52:=EMA(ar51, 1);
势:EMA(ar52, 2),Color00C9F8;

RSV5:= (CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*10;
FASTK:=MA(RSV5,1);
L1:=MA(FASTK,1)*10;
趋势:=(MA(L1,34));

cys5:=100*(c-"cyc@cyc5")/"cyc@cyc5";
cys13:=100*(c-"cyc@cyc13")/"cyc@cyc13";
cys34:=100*(c-"cyc@cyc34")/"cyc@cyc34";
vv1:=cys34>0 and cys34>cys5 and cys34>cys13;
kk:=cys13;
P:=sma(kk,3,1);
J:=3*Kk-2*P;
回调:(j>=0 and h=hhv(h,21))*(-8),stick,colorcyan;

顶:(SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100>78 AND ((CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100)<REF
(((CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100),1) OR ((CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100)>20)*(-15),stick,ColorD6914A;

Var90:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA
      (SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VarC0:=100-Var90;
a:((-1)*(EMA(VarC0,12)-50)+50),colorcccccc;  

STICKLINE(CLOSE<MA(CLOSE,13),100,103,10,1),color889900;
STICKLINE(CLOSE>=MA(CLOSE,13),100,103,8,0),COLORred;

{屠龙刀}
Vav2:=MA(CLOSE,30);
Vav3:=(CLOSE-Vav2)/vav2*100;
Vav4:=MA(Vav3,3);
Vav5:=BARSLAST(CROSS(-10,Vav4)=1);
C1:= IF(Vav4<-10 AND Vav5>=5,Vav4,0);
zx:=c1 and vol>ma(vol,20) and ma(vol,5)>ma(vol,10);
底:=stickline(zx,100,105,8,0);

V3:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
V4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
V5:=SMA(V4,13,8);
V6:=SMA(V3,21,8);
动向:=CEILING(SMA(V5,13,8));
底来临:STICKLINE(动向-v6<-65,100,103,8,1),coloryellow;

Var3C:=(HIGH+LOW+CLOSE*2)/4;
Var3D:=EMA(Var3C,21);
Var3E:=STD(Var3C,21);
Var3F:=((Var3C-Var3D)/Var3E*100+200)/4;
Var40:=(EMA(Var3F,5)-25)*1.56;
Var41:=EMA(Var40,2)*1.22;
AJD:=EMA(Var41,2);
AJJ:=3*Var41-2*AJD;
卖:STICKLINE(AJJ>100,100,103,8,1),colorwhite;

d:=CEILING(SMA(V5,13,8));
抛:STICKLINE(d-V6>85,100,103,8,0),colorffaa00;

VarC:=CLOSE*50/100;
VarD:=MA(VarC,30)*0.83;
VarE:=MA(VarC/VarD,3);
IF(VarE<1.04,0,-20),Color989093;

谢谢为先

13579 2007-3-18 22:14

hao dddddddddddd

lisiben 2007-3-28 13:40

[quote]原帖由 [i]老实和尚[/i] 于 2005-11-3 18:26 发表


原来是设置问题，谢谢 [/quote]


请问是如何原设置的第加的？

zhangmeng 2007-5-13 13:39

谢谢  学习中.....

shenguang 2007-5-19 14:29

请问是如何原设置的叠加的？

zdq18201 2007-5-23 16:10

谢谢，学习了

zdq18201 2007-5-25 19:58

谢谢老大，很不错

zhyulc 2007-8-11 22:02

xiexie

gl542400 2007-8-22 23:25

謝謝您的教學
謝謝您的教學

靓月 2007-10-16 19:08

看不明白

sss888xyz 2007-12-7 00:21

88888888888888888

mowtu 2007-12-22 10:01

謝謝！！謝謝！！謝謝！！

凌空之鹰 2007-12-25 10:22

不错的构思，楼主真聪明！！

lyq6223 2008-1-8 14:56

:clap:

haiyang 2008-1-16 19:39

好文  谢谢  学习中.....

imsea 2008-2-20 00:08

非常感谢
页: 1 [2] 3
查看完整版本: 如何写“分时副图”指标