参考进出 - 分析家公式网

分析家公式网,提供指标公式,股票软件用户登录 |

首页 ┆ 软件中心 ┆ 备用域名gspt.com ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：参考进出

软件名称：[B]参考进出[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：17.0 KB
官方主页：Home Page
更新时间：2011-11-21 03:27:14
软件简介:

{买入卖出及时直观柱图}
开盘价:open,PRECIS2,linethick0;
最高价:high,PRECIS2,linethick0;
最低价:low,PRECIS2,linethick0;
收盘价:CLOSE,PRECIS2,linethick0;
开盘价1:REF(open,1),PRECIS2,linethick0;
最高价1:REF(high,1),PRECIS2,linethick0;
最低价1:REF(low,1),PRECIS2,linethick0;
收盘价1:REF(CLOSE,1),PRECIS2,linethick0;
{引用昨买今卖}
预测低一:"昨买今卖.预测低一",PRECIS2,linethick0;
预测低二:"昨买今卖.预测低二",PRECIS2,linethick0;
平均价一:="昨买今卖.平均价一";{强势高价}
平均价二:="昨买今卖.平均价二";{弱势高价}
{及时行情动态直观图主图}
DRAWRECTREL(50,400,110,600,rgb(255,97,0));
DRAWRECTREL(50,600,110,800,rgb(255,0,255));
DRAWRECTREL(110,400,170,600,rgb(255,153,18));
DRAWRECTREL(110,600,170,800,rgb(255,153,18));
DRAWRECTREL(170,400,230,600,rgb(255,215,0));
DRAWRECTREL(170,600,230,800,rgb(255,215,0));
DRAWRECTREL(230,400,290,600,rgb(255,255,0));
DRAWRECTREL(230,600,290,800,rgb(255,255,0));
DRAWRECTREL(290,400,350,600,rgb(127,255,212));
DRAWRECTREL(290,600,350,800,rgb(127,255,212));
DRAWRECTREL(350,400,410,600,rgb(64,224,208));
DRAWRECTREL(350,600,410,800,rgb(64,224,208));
DRAWRECTREL(410,400,470,600,rgb(0,255,127));
DRAWRECTREL(410,600,470,800,rgb(0,255,127));
DRAWRECTREL(470,400,530,600,rgb(0,255,0));
DRAWRECTREL(470,600,530,800,rgb(255,0,255));
DRAWTEXTREL(50,450,'   最高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(55,650,' '+NUMTOSTRN(h,2)),colorwhite,linethick4;
DRAWTEXTREL(110,450,' 强势高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(115,650,' '+NUMTOSTRN(平均价一,2)),colorblack,linethick4;
DRAWTEXTREL(170,450,' 弱势高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(175,650,' '+NUMTOSTRN(平均价二,2)),colorblack,linethick4;
DRAWTEXTREL(230,450,'   中间价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(290,450,' 《昨收'),COLORblack,linethick2,layer0;
DRAWTEXTREL(295,650,' '+NUMTOSTRN(收盘价1,2)),colorblack,linethick4;
DRAWTEXTREL(350,450,' 预测低二'),COLORblack,linethick2,layer0;
DRAWTEXTREL(355,650,' '+NUMTOSTRN(预测低二,2)),colorblack,linethick4;
DRAWTEXTREL(410,450,' 预测低一'),COLOrblack,linethick2,layer0;
DRAWTEXTREL(415,650,' '+NUMTOSTRN(预测低一,2)),colorblack,linethick4;
DRAWTEXTREL(470,450,'   最低价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(475,650,' '+NUMTOSTRN(l,2)),colorffffff,linethick4;
{低买高卖及时行情动态直观图,区间划分可按自己要求分,模式如下}
mr0:=c > 平均价一*1.006 ;
mr1:=平均价一<= c ;
mr2:=平均价二<= c ;
IF BARSTATUS=2 AND mr0 THEN BEGIN
DRAWRECTREL(50,200,110,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(60,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr1 THEN BEGIN
DRAWRECTREL(110,200,170,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(120,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr2 THEN BEGIN
DRAWRECTREL(170,200,230,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(180,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mr3:预测低二<c and c<平均价二 ,PRECIS2,linethick0;
IF BARSTATUS=2 AND mr3 THEN BEGIN
DRAWRECTREL(230,200,290,400,rgb(255,0,0));
DRAWTEXTREL(240,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mr4:=收盘价1>c;
IF BARSTATUS=2 AND mr4 THEN BEGIN
DRAWRECTREL(290,200,350,400,rgb(0,255,0)),layer1;
DRAWTEXTREL(300,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END;
mr5:(预测低二>c or 预测低二=c) and 预测低一<c,PRECIS2,linethick0;
mr6:=预测低一>c or 预测低一=c;
mr7:=预测低一*0.994 >c;
IF BARSTATUS=2 AND mr5 THEN BEGIN
DRAWRECTREL(350,200,410,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(360,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr6 THEN BEGIN
DRAWRECTREL(410,200,470,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr7 THEN BEGIN
DRAWRECTREL(470,200,530,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(480,220,NUMTOSTRN(c,2)),colorred,linethick5;
END
{卖出及时直观柱图}
DRAWRECTREL(590,400,650,600,rgb(255,97,0));
DRAWRECTREL(590,600,650,800,rgb(255,97,0));
DRAWRECTREL(650,400,710,600,rgb(255,97,0));
DRAWRECTREL(650,600,710,800,rgb(255,97,0));
DRAWRECTREL(710,400,770,600,rgb(255,153,18));
DRAWRECTREL(710,600,770,800,rgb(255,153,18));
DRAWRECTREL(770,400,830,600,rgb(255,215,0));
DRAWRECTREL(770,600,830,800,rgb(255,215,0));
DRAWRECTREL(830,400,890,600,rgb(255,255,0));
DRAWRECTREL(830,600,890,800,rgb(255,255,0));
DRAWRECTREL(890,400,950,600,rgb(0,255,127));
DRAWRECTREL(890,600,950,800,rgb(0,255,127));
DRAWTEXTREL(590,650,' 》5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(650,650,' 4～5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(710,650,' 3～4%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(770,650,' 2～3%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(830,650,' 1～2%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(890,650,'   1%'),COLORblack,linethick3,layer0;
{显示买卖价青铜湖先生的在主图上显示投资记录}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
SALEPRICE:="SHOWINV@SALEPRICE"(1);
iF BUYPRICE> 0 THEN BBP:=BUYPRICE;
{显示标题}
{DRAWTEXTrel(10,60,' 【日期：'+NUMTOSTR(day)+'日】'), COLORwhite,LINETHICK3;}
DRAWTEXTREL(100,60,'         【低买高卖及时行情动态直观图】' ),colorffff80,linethick4;
DRAWTEXTREL(400,60,'                         【昨买今卖及时行情动态直观图】' ),coloryellow,linethick4;
DRAWTEXTREL(620,60,'                           买入价：'+NUMTOSTRn(BBP,2)+'元'),colorffffff,linethick4;
{显示获利情形}{卖出及时直观柱图2}
DRAWTEXTREL(595,450,' '+NUMTOSTRN(BBP*1.051,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(655,450,' '+NUMTOSTRN(BBP*1.05,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(715,450,' '+NUMTOSTRN(BBP*1.04,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(775,450,' '+NUMTOSTRN(BBP*1.03,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(835,450,' '+NUMTOSTRN(BBP*1.02,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(895,450,' '+NUMTOSTRN(BBP*1.01,2)),COLORblack,linethick3,layer0;
{卖出及时跳动行情}
mc0:=c >BBP*1.051;
mc1:=c<BBP*1.05 and c> BBP*1.04;
mc2:=c<BBP*1.04 and c> BBP*1.03;
IF BARSTATUS=2 AND mc0 THEN BEGIN
DRAWRECTREL(590,200,650,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(600,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc1 THEN BEGIN
DRAWRECTREL(650,200,710,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(660,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc2 THEN BEGIN
DRAWRECTREL(710,200,770,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(720,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END

mc3:=c<BBP*1.03 and c> BBP*1.02;
mc4:=c<BBP*1.02 and c> BBP*1.01;
mc5:=c<BBP;
IF BARSTATUS=2 AND mc3 TH
[url=http://www.70822.com/soft/sort013/sort03/down-41192.html]参考进出[/url]