查看完整版本: 1分钟K线图副图中显示5、15、30、60分钟K线

jesse_huch 2005-7-16 15:22

1分钟K线图副图中显示5、15、30、60分钟K线

先编写公式:“HQSJ”,其中CC=C,OO=O,HH=H,LL=L;使用公式时将默认周期设在1分钟。
INPUT:N(2,2,5)
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQSJ.OO',0,N);
CC:=STKINDI('','HQSJ.CC',0,N);
HH:=STKINDI('','HQSJ.HH',0,N);
LL:=STKINDI('','HQSJ.LL',0,N);
STICKLINE(CC>=OO AND WAR02=WAR03,HH,LL,N,0),COLORRED;
STICKLINE(CC<OO AND WAR02=WAR03,HH,LL,N,0),COLORCYAN;
STICKLINE(CC>=OO,OO,CC,10,0),COLORRED;
STICKLINE(CC<OO,OO,CC,10,0),COLORCYAN;
MA1:MA(STKINDI('','MA.MA1',0,N),5),COLORWHITE;
MA2:MA(STKINDI('','MA.MA2',0,N),5),COLORYELLOW;
MA3:MA(STKINDI('','MA.MA3',0,N),5),COLORRED;
MA4:MA(STKINDI('','MA.MA4',0,N),5),COLORGREEN;
DRAWTEXT(N=2 AND BARPOS=SYSPARAM(2),H,'5分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=3 AND BARPOS=SYSPARAM(2),H,'15分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=4 AND BARPOS=SYSPARAM(2),H,'30分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=5 AND BARPOS=SYSPARAM(2),H,'60分钟K线'),ALIGN4,COLORYELLOW;

joneslee 2005-7-16 17:30

传说中的沙发!!!!!

joneslee 2005-7-16 17:35

老兄好!

股市骑兵00 2005-7-16 18:35

谢谢,支持原码!
顶一下~~

林枫 2005-7-16 18:51

[quote]Originally posted by [i]jesse_huch[/i] at 2005-7-16 03:22 PM:
先编写公式:“HQSJ”,其中CC=C,OO=O,HH=H,LL=L;使用公式时将默认周期设在1分钟。
INPUT:N(2,2,5)
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAS ... [/quote]
怎么会这样????

joneslee 2005-7-16 21:53

第一行加个“;”号。

ligenghua 2005-7-17 09:28

请教1K线-Windowst图片和传真查看器怎么使用?

我下载"1分钟K线副图看5,15,30,60分K线",导入公式没有成功,在下载处找不到文件,但我查看D盘见到了该文件及图标,请问接下来我该如何操作.
谢谢!

zzgzzg 2005-8-6 16:30

谢谢,非常好!

liuxiang 2005-8-6 21:08

请问为和不显示

{多周期K线(一分钟)}
INPUT:N(2,2,5);
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQSJ.OO',0,N);
CC:=STKINDI('','HQSJ.CC',0,N);
HH:=STKINDI('','HQSJ.HH',0,N);
LL:=STKINDI('','HQSJ.LL',0,N);
STICKLINE(CC>=OO AND WAR02=WAR03,HH,LL,N,0),COLORRED;
STICKLINE(CC<OO AND WAR02=WAR03,HH,LL,N,0),COLORCYAN;
STICKLINE(CC>=OO,OO,CC,10,0),COLORRED;
STICKLINE(CC<OO,OO,CC,10,0),COLORCYAN;
MA1:MA(STKINDI('','MA.MA1',0,N),5),COLORWHITE;
MA2:MA(STKINDI('','MA.MA2',0,N),5),COLORYELLOW;
MA3:MA(STKINDI('','MA.MA3',0,N),5),COLORRED;
MA4:MA(STKINDI('','MA.MA4',0,N),5),COLORGREEN;
DRAWTEXT(N=2 AND BARPOS=SYSPARAM(2),H,'5分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=3 AND BARPOS=SYSPARAM(2),H,'15分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=4 AND BARPOS=SYSPARAM(2),H,'30分钟K线'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=5 AND BARPOS=SYSPARAM(2),H,'60分钟K线'),ALIGN4,COLORYELLOW;

{HQSJ}
CC:C;
OO:O;
HH:H;
LL:L;

以上均设立为一分钟.

liuxiang 2005-8-6 23:54

解决了.默认周期设为一分钟.禁用周期不设置.谢谢!!!:D

xxllxxll 2005-8-7 10:00

谢谢

hero999 2005-8-7 10:51

bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

林枫 2005-8-7 13:57

[quote]Originally posted by [i]liuxiang[/i] at 2005-8-6 11:54 PM:
解决了.默认周期设为一分钟.禁用周期不设置.谢谢!!!:D [/quote]
不显示 ???????????

liuxiang 2005-8-7 14:59

[quote]Originally posted by [i]林枫[/i] at 2005-8-7 13:57:

不显示 ??????????? [/quote]

还应建立这个公式:
{HQSJ}
CC:C;
OO:O;
HH:H;
LL:L;

以上均设立为一分钟. :smokin:

林枫 2005-8-7 16:26

[quote]Originally posted by [i]liuxiang[/i] at 2005-8-7 02:59 PM:


还应建立这个公式:
{HQSJ}
CC:C;
OO:O;
HH:H;
LL:L;

以上均设立为一分钟. :smokin: [/quote]
??????????

林枫 2005-8-7 16:27

[quote]Originally posted by [i]林枫[/i] at 2005-8-7 04:26 PM:

?????????? [/quote]
????????

mydg 2005-8-7 18:30

[quote]Originally posted by [i]liuxiang[/i] at 2005-8-6 09:08 PM:
{多周期K线(一分钟)}
INPUT:N(2,2,5);
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQS ... [/quote]


:cool:源码通不过,你的是对的。谢谢你!

gz_songwb 2005-8-8 03:10

学习

gkorange 2005-8-10 00:09

多谢分享了

快乐人生 2005-8-15 13:13

不错的东

LMW 2005-8-16 08:50

OK!不错!不错!不错的东东!!!!!!!

汉子 2005-8-20 14:14

烦请将公式做成文件,方便不熟悉者导入

jsw945 2005-10-1 10:11

是啊,我也引进不能显示,也已建立hqsj公式,但还是说没有此公式。请老师指教!谢谢!

liws 2005-11-22 21:27

好东东:D

shujenwen 2006-3-18 09:16

3q!

{HQSJ1分-K-5153060K}
INPUT:N(2,2,5);
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQSJ.OO',0,N);
CC:=STKINDI('','HQSJ.CC',0,N);
HH:=STKINDI('','HQSJ.HH',0,N);
LL:=STKINDI('','HQSJ.LL',0,N);
STICKLINE(CC>=OO AND WAR02=WAR03,HH,LL,N,0),COLORff99ff;
STICKLINE(CC<OO AND WAR02=WAR03,HH,LL,N,0),COLORff9900;
STICKLINE(CC>=OO,OO,CC,10,0),COLORff99ff;
STICKLINE(CC<OO,OO,CC,10,0),COLORff9900;
MA1:MA(STKINDI('','MA.MA1',0,N),5),COLORWHITE;
MA2:MA(STKINDI('','MA.MA2',0,N),5),COLORYELLOW;
MA3:MA(STKINDI('','MA.MA3',0,N),5),COLORRED;
MA4:MA(STKINDI('','MA.MA4',0,N),5),COLORGREEN;
DRAWTEXT(N=2 AND BARPOS=SYSPARAM(2),H,'5分K'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=3 AND BARPOS=SYSPARAM(2),H,'15分K'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=4 AND BARPOS=SYSPARAM(2),H,'30分K'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=5 AND BARPOS=SYSPARAM(2),H,'60分K'),ALIGN4,COLORYELLOW;
aa1:=ma(c,3);
ax1:=ref(aa1,1);
STICKLINE(aa1>=ax1,HIGH,LOW,2,0),colorred;
STICKLINE(aa1<ax1,HIGH,LOW,2,0),colorgreen;
STICKLINE(aa1>=ax1,CLOSE,OPEN,8,0),colorred;
STICKLINE(aa1<ax1,CLOSE,OPEN,8,0),colorgreen;

tzwxlj1 2006-7-5 15:32

多谢分享了

tzwxlj1 2006-7-5 16:25

多谢分享了

sxsy 2006-10-15 16:10

传说中的沙发!!!!!




什么是沙发?

用户名: 2007-1-12 10:49

[quote]原帖由 [i]liuxiang[/i] 于 2005-8-7 14:59 发表


还应建立这个公式:
{HQSJ}
CC:C;
OO:O;
HH:H;
LL:L;

以上均设立为一分钟. :smokin: [/quote]
哈哈,不错的东东

shangjing558 2007-3-2 19:09

请问哪位老师能帮忙做一个分笔状态引入一分钟和5分钟的指标,先谢谢了!!

xiaoleixu 2007-12-13 00:46

怎么会这样?

我按上面的公式输入,怎么会在第一行的N 处显示无定议标识符啊

蓝筹股 2008-1-15 08:09

不成呀

在主图上显示出了这么一句话,“1分钟K线图副图中显示指标引用的公式在系统中不存在”的,请问如何来解决?

cyzpp 2008-4-13 16:40

回复 1楼 的帖子

:plain: :plain:
页: [1]
查看完整版本: 1分钟K线图副图中显示5、15、30、60分钟K线