换手率大，K线的宽度越大，原有的K线不显示，怎样编写?

本贴由 欣儿 于 2005-8-31 18:26 最后编辑

听你的意思就是等量K线，以前帮朋友做过个的，你看看：

复制内容到剪贴板

代码:

//打开光标K线宽度自动调节！
INPUT:N(9),M(2);//N为最大K线宽度调节，M为最小K线宽度调节。
收盘:c,linethick0;
换手:VOL/CAPITAL*100,linethick0;
XX1:=HHV(V,SYSPARAM(3)-SYSPARAM(2)+1);
XX2:=LLV(V,SYSPARAM(3)-SYSPARAM(2)+1);
G1:=XX1[SYSPARAM(3)];G2:=XX2[SYSPARAM(3)];
II:=N*(V-G2)/(G1-G2)+M;
D:=MAX(C,O);X:=MIN(C,O);

STICKLINE(C>=O,C,O,II,1),Color0000FF;
STICKLINE(C>=O,H,D,0.5,0),Color0000FF;
STICKLINE(C>=O,L,X,0.5,0),Color0000FF;

STICKLINE(C<O,C,O,II,0),Color00FF00;
STICKLINE(C<O,H,D,0.5,0),Color00FF00;
STICKLINE(C<O,L,X,0.5,0),Color00FF00;

引用:

吕鹤 于 2005-1-22 12:51 PM 写道:
换手率大，K线的宽度越大，原有的K线不显示，怎样编写?

复制内容到剪贴板

代码:

hs:VOL/CAPITAL*100,linethick0;
XX1:=HHV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
XX2:=LLV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
G1:=XX1[SYSPARAM(3)];
G2:=XX2[SYSPARAM(3)];
hsl:=(12*(hs-G2)/(G1-G2)+2);
STICKLINE( c>open,c,o,hsl ,1),COLORRED;
STICKLINE( c<open,c,o,hsl ,1),COLORWHITE;
STICKLINE( c=open and c>ref(c,1),c,o,hsl ,1),COLORRED;
STICKLINE( c=open and c<ref(c,1),c,o,hsl ,1),COLORWHITE;;
STICKLINE( c>o ,h,l,0.1,0),COLORRED;
stickline( c<o,h,l,0.1,0),colorgreen;

我转一下骑兵版主在别的论坛,所做的等量换手率公式!!!
宽度及颜色可自调!!

dingdingding!!!!!!!!!!!!!!!!!!!!!!!!!

收入整理,谢谢。

引用:

股市骑兵00 于 2005-1-22 03:54 PM 写道:
听你的意思就是等量K线，以前帮朋友做过个的，你看看：
[code]
//打开光标K线宽度自动调节！
INPUT:N(9),M(2);//N为最大K线宽度调节，M为最小K线宽度调节。
收盘:c,linethick0;
换手:VOL/CAPITAL*100,linethi ...

谢谢版主，怎么去除原有的K线呢？

引用:

吕鹤 于 2005-1-23 06:25 PM 写道:
谢谢版主，怎么去除原有的K线呢？

不客气，我飞狐刚用不久，功能没搞清楚，请HX817老师来看看吧！

引用:

kjyhao 于 2005-1-22 04:00 PM 写道:
[code]
hs:VOL/CAPITAL*100,linethick0;
XX1:=HHV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
XX2:=LLV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
G1:=XX1[SYSPARAM(3)];
G2:=XX2[SYSPARAM(3)];
hsl:=(12*(hs-G2)/(G1-G2)+2);
...

谢谢好朋友帮忙！(h)

引用:

吕鹤 于 2005-1-23 06:25 PM 写道:
谢谢版主，怎么去除原有的K线呢？

在公式编辑框中 钩上  主图叠加  和  主图

引用:

bajatje 于 2005-1-23 07:27 PM 写道:
在公式编辑框中 钩上  主图叠加  和  主图

谢谢， bajatje大哥有空常来看我呀！

引用:

bajatje 于 2005-1-23 07:27 PM 写道:
在公式编辑框中 钩上  主图叠加  和  主图

谢谢bajatje ，的确如此

不錯看  也是學習 ...

收藏！谢谢！

DD

不用