分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：收藏的分时5K,希望高手能扩充显示更多K线。

软件名称：[B]收藏的分时5K,希望高手能扩充显示更多K线。[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2017-10-29 01:14:14
软件简介:

{引用日线}
JC:C;
JO:O;
JH:H;
JL:L;
JC1:REF(C,1);
JO1:REF(O,1);
JH1:REF(H,1);
JL1:REF(L,1);
JC2:REF(C,2);
JO2:REF(O,2);
JH2:REF(H,2);
JL2:REF(L,2);
JC3:REF(C,3);
JO3:REF(O,3);
JH3:REF(H,3);
JL3:REF(L,3);
JC4:REF(C,4);
JO4:REF(O,4);
JH4:REF(H,4);
JL4:REF(L,4);
JC5:REF(C,5);
JO5:REF(O,5);
JH5:REF(H,5);
JL5:REF(L,5);
JC6:REF(C,6);
JO6:REF(O,6);
JH6:REF(H,6);
JL6:REF(L,6);
JC7:REF(C,7);
JO7:REF(O,7);
JH7:REF(H,7);
JL7:REF(L,7);
JC8:REF(C,8);
JO8:REF(O,8);
JH8:REF(H,8);
JL8:REF(L,8);
JC9:REF(C,9);
JO9:REF(O,9);
JH9:REF(H,9);
JL9:REF(L,9);
JC10:REF(C,10);
JO10:REF(O,10);
JH10:REF(H,10);
JL10:REF(L,10);

JC5:REF(C,5);
JCYC:=(HIGH+LOW+OPEN+2*CLOSE)/5;
明日阻力:=2*JCYC-LOW;
明日支撑:=2*JCYC-HIGH;
明日突破:=JCYC+(HIGH-LOW);
明日反转:=JCYC-(HIGH-LOW);
阻力:REF(明日阻力,1);
支撑:REF(明日支撑,1);
突破:REF(明日突破,1);
反转:REF(明日反转,1);
JM1:MA(C,5);
JM2:MA(C,10);

{分时5K}
INPUT: 上下调整(460,50,1000),左右调整(550,150,1000),打开关闭(3,0,3);
{日K线引用}
if 打开关闭>0 then begin
JC:="引用日线.JC#day";JO:="引用日线.JO#day";JH:="引用日线.JH#day";JL:="引用日线.JL#day";
JC1:="引用日线.JC1#day";JO1:="引用日线.JO1#day";JH1:="引用日线.JH1#day";JL1:="引用日线.JL1#day";
JC2:="引用日线.JC2#day";JO2:="引用日线.JO2#day";JH2:="引用日线.JH2#day";JL2:="引用日线.JL2#day";
JC3:="引用日线.JC3#day";JO3:="引用日线.JO3#day";JH3:="引用日线.JH3#day";JL3:="引用日线.JL3#day";
JC4:="引用日线.JC4#day";JO4:="引用日线.JO4#day";JH4:="引用日线.JH4#day";JL4:="引用日线.JL4#day";
JC5:="引用日线.JC5#day";
YT1:=JC>JC1 AND JC=JO;YT2:=JC<=JC1 AND JC=JO;YT3:=JC1>JC2 AND JC1=JO1;YT4:=JC1<=JC2 AND JC1=JO1;
YT5:=JC2>JC3 AND JC2=JO2;YT6:=JC2<=JC3 AND JC2=JO2;YT7:=JC3>JC4 AND JC3=JO3;YT8:=JC3<=JC4 AND JC3=JO3;
YT9:=JC4>JC5 AND JC4=JO4;YT10:=JC4<=JC5 AND JC4=JO4;
{昨收阳}
JJCA1:=IF(ABS(JC1-JO1)>0.015,JC1/JO1*2000-2000,5);
JJHA1:=JH1/JC1*2000-2000;
JJLA1:=JO1/JL1*2000-2000;
JWA1:=JC1-JO1>0 OR YT3>0;
if JWA1>0 then begin
DRAWRECTREL(左右调整,上下调整-JJCA1,左右调整+17,上下调整,0),COLOR4535FF;
DRAWRECTREL(左右调整+8,上下调整-JJCA1-JJHA1,左右调整+9,上下调整-JJCA1,0),COLOR5040FF;
DRAWRECTREL(左右调整+8,上下调整,左右调整+9,上下调整+JJLA1,0),COLOR5040FF;
end;
JZST:=STRFIND(stkname,'S',1) AND JC1/JC2>=1.048;
JZTB:=JC1/JC2>=1.0994 OR JZST;
if JZTB>0 then begin
DRAWRECTREL(左右调整+2,上下调整-JJCA1+2,左右调整+15,上下调整-2,RGB(255,255,0)),COLORYELLOW;
end;
{昨收阴}
JJHA2:=JH1/JO1*2000-2000;
JJLA2:=JC1/JL1*2000-2000;
JWA2:=JO1-JC1>0 OR YT4>0;
if JWA2>0 then begin
DRAWRECTREL(左右调整,上下调整,左右调整+17,上下调整-JJCA1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整+8,上下调整-JJHA2,左右调整+9,上下调整-JJCA1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整+8,上下调整-JJCA1,左右调整+9,上下调整-JJCA1+JJLA2,RGB(0,255,255)),COLORFFFF00;
end;
JZST1:=STRFIND(stkname,'S',1) AND JC1/JC2<=0.953;
JZTB1:=JC1/JC2<=0.902 OR JZST1;
if JZTB1>0 then begin
DRAWRECTREL(左右调整+2,上下调整+2,左右调整+15,上下调整-JJCA1-2,RGB(255,255,255)),COLORFFFFFF;
end;
{前收阳}
JJCB1:=IF(ABS(JC2-JO2)>0.015,JC2/JO2*2000-2000,5);
JJHB1:=JH2/JC2*2000-2000;
JJLB1:=JO2/JL2*2000-2000;
JZKB1:=JO1/JC2*2000-2000;
QSYB1:=上下调整+JZKB1;
JWB1:=(JC2-JO2>0 OR YT5>0);
if JWB1>0 then begin
DRAWRECTREL(左右调整-23,QSYB1+JJCB1,左右调整-6,QSYB1,0),COLOR4535FF;
DRAWRECTREL(左右调整-15,QSYB1-JJHB1,左右调整-14,QSYB1,0),COLOR5040FF;
DRAWRECTREL(左右调整-15,QSYB1+JJCB1+JJLB1,左右调整-14,QSYB1+JJCB1,0),COLOR5040FF;
end;
JZST2:=STRFIND(stkname,'S',1) AND JC2/JC3>=1.048;
JZTB2:=JC2/JC3>=1.0994 OR JZST2;
if JZTB2>0 then begin
DRAWRECTREL(左右调整-21,QSYB1+JJCB1-2,左右调整-8,QSYB1+2,RGB(255,255,0)),COLORYELLOW;
end;
{前收阴}
JJHB2:=JH2/JO2*2000-2000;
JJLB2:=JC2/JL2*2000-2000;
JWB2:=(JO2-JC2>0 OR YT6>0);
if JWB2>0 then begin
DRAWRECTREL(左右调整-23,QSYB1+JJCB1,左右调整-6,QSYB1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-15,QSYB1+JJCB1-JJHB2,左右调整-14,QSYB1+JJCB1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-15,QSYB1,左右调整-14,QSYB1+JJLB2,RGB(0,255,255)),COLORFFFF00;
end;
JZST3:=STRFIND(stkname,'S',1) AND JC2/JC3<=0.953;
JZTB3:=JC2/JC3<=0.902 OR JZST3;
if JZTB3>0 then begin
DRAWRECTREL(左右调整-21,QSYB1+JJCB1+2,左右调整-8,QSYB1-2,RGB(255,255,255)),COLORFFFFFF;
end;
{S前收阳}
JJCD1:=IF(ABS(JC3-JO3)>0.015,JC3/JO3*2000-2000,5);
JJHD1:=JH3/JC3*2000-2000;
JJLD1:=JO3/JL3*2000-2000;
JZKD1:=JO2/JC3*2000-2000;
QSYD1:=QSYB1+JJCB1+JZKD1;
JWD1:=(JC3-JO3>0 OR YT7>0);
if JWD1>0 then begin
DRAWRECTREL(左右调整-46,QSYD1+JJCD1,左右调整-29,QSYD1,0),COLOR4535FF;
DRAWRECTREL(左右调整-38,QSYD1-JJHD1,左右调整-37,QSYD1,0),COLOR5040FF;
DRAWRECTREL(左右调整-38,QSYD1+JJCD1+JJLD1,左右调整-37,QSYD1+JJCD1,0),COLOR5040FF;
end;
{S前收阴}
JJHD2:=JH3/JO3*2000-2000;
JJLD2:=JC3/JL3*2000-2000;
JWD2:=(JO3-JC3>0 OR YT8>0);
if JWD2>0 then begin
DRAWRECTREL(左右调整-46,QSYD1+JJCD1,左右调整-29,QSYD1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-38,QSYD1+JJCD1-JJHD2,左右调整-37,QSYD1+JJCD1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-38,QSYD1,左右调整-37,QSYD1+JJLD2,RGB(0,255,255)),COLORFFFF00;
end;
{SS前收阳}
JJCE1:=IF(ABS(JC4-JO4)>0.015,JC4/JO4*2000-2000,5);
JJHE1:=JH4/JC4*2000-2000;
JJLE1:=JO4/JL4*2000-2000;
JZKE1:=JO3/JC4*2000-2000;
QSYE1:=QSYD1+JJCD1+JZKE1;
JWE1:=(JC4-JO4>0 OR YT9>0);
if JWE1>0 then begin
DRAWRECTREL(左右调整-69,QSYE1+JJCE1,左右调整-52,QSYE1,0),COLOR4535FF;
DRAWRECTREL(左右调整-61,QSYE1-JJHE1,左右调整-60,QSYE1,0),COLOR5040FF;
DRAWRECTREL(左右调整-61,QSYE1+JJCE1+JJLE1,左右调整-60,QSYE1+JJCE1,0),COLOR5040FF;
end;
{SS前收阴}
JJHE2:=JH4/JO4*2000-2000;
JJLE2:=JC4/JL4*2000-2000;
JWE2:=(JO4-JC4>0 OR YT10>0);
if JWE2>0 then begin
DRAWRECTREL(左右调整-69,QSYE1+JJCE1,左右调整-52,QSYE1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-61,QSYE1+JJCE1-JJHE2,左右调整-60,QSYE1+JJCE1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整-61,QSYE1,左右调整-60,QSYE1+JJLE2,RGB(0,255,255)),COLORFFFF00;
end;
{今收阳}{www.70822.com}
JJCC1:=IF(ABS(JC-JO)>0.015,JC/JO*2000-2000,5);
JJHC1:=JH/JC*2000-2000;
JJLC1:=JO/JL*2000-2000;
JZKC1:=JO/JC1*2000-2000;
QSYC1:=上下调整-JJCA1-JZKC1;
JWC1:=(JC-JO>0 OR YT1>0);
if JWC1>0 then begin
DRAWRECTREL(左右调整+23,QSYC1-JJCC1,左右调整+40,QSYC1,0),COLOR4535FF;
DRAWRECTREL(左右调整+31,QSYC1-JJCC1-JJHC1,左右调整+32,QSYC1-JJCC1,0),COLOR5040FF;
DRAWRECTREL(左右调整+31,QSYC1,左右调整+32,QSYC1+JJLC1,0),COLOR5040FF;
end;
JZST4:=STRFIND(stkname,'S',1) AND JC/JC1>=1.048;
JZTB4:=JC/JC1>=1.0994 OR JZST4;
if JZTB4&
[url=http://www.70822.com/soft/sort013/sort03/down-117622.html]收藏的分时5K,希望高手能扩充显示更多K线。[/url]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明：本站所有股票公式软件资料均网上公开收集，如侵权请联系删帖。站内所有广告，均与本站无关！
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间：31.25000 毫秒