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

软件名称:[B]开拓者thermostat系统源码[/B]
软件类型:国产软件
运行环境:Win2000/WinXP/Win2003/WinVista
软件语言:简体中文
授权方式:共享软件
软件大小:0 Bytes
官方主页:Home Page
更新时间:2013-03-08 07:05:04
软件简介:

  • 源码内容:

    inputs:
            bollingerlengths(50),
            trendliqlength(50),
            numstddevs(2),
    swingprcnt1(0.50),
    swingprcnt2(0.75),
    atrlength(10),
    swingtrendswitch(20);
    vars:
            cmival(0),
            buyeasierday(0),
            selleasierday(0),
            trendlokbuy(0),
    trendloksell(0),
    keyofday(0),
    swingbuypt(0),
    swingsellpt(0),
    trendbuypt(0),
    trendsellpt(0),
    swingprotstop(0);

    cmival=choppymarketindex(30);
    buyeasierday=0;
    selleasierday=0;

    trendlokbuy=average(low,3);
    trendloksell=average(high,3);

    keyofday=(high+low+close)/3;
    if(close>keyofday) then selleasierday=1;
    if(close<=keyofday) then buyeasierday=1;

    if(buyeasierday=1) then
    begin
       swingbuypt=open of tomorrow + swingprcnt1*avgtruerange(atrlength);
       swingsellpt=open of tomorrow - swingprcnt2*avgtruerange(atrlength);
    end;
    if(selleasierday=1) then
    begin
       swingbuypt=open of tomorrow + swingprcnt2*avgtruerange(atrlength);
       swingsellpt=open of tomorrow - swingprcnt1*avgtruerange(atrlength);
    end;

    swingbuypt=maxlist(swingbuypt,trendlokbuy);
    swingsellpt=minlist(swingsellpt,trendloksell);

    trendbuypt=bollingerband(close,bollingerlengths,numstddevs);
    trendsellpt=bollingerband(close,bollingerlengths,-numstddevs);

    if(cmival<swingtrendswitch) then
    begin
        if(marketposition<>1) then buy("swingbuy") next bar at swingbuypt
           stop;
        if(marketposition<>-1) then sellshort("swingsell") next bar at
           swingsellpt stop;
    end
    else
    begin
       swingprotstop=3*avgtruerange(atrlength);
       buy("trendbuy") next bar at trendbuypt stop;
       sellshort("trendsell") next bar at trendsellpt stop;
       sell from entry("trendbuy") next bar at average(close,trendliqlenth)
          stop;
       buytocover from entry("trendsell") next bar at
          average(close,trendliqlength) stop;
       sell from entry("swingbuy") next bar at entryprice - swingprotstop
          stop;
       buytocover from entry("swingsell") next bar at entryprice +
          swingprotstop stop;
    end;

     

[url=http://www.70822.com/soft/sort013/sort083/down-59414.html]开拓者thermostat系统源码[/url]

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