查看: 14343|回复: 79
打印 上一主题 下一主题

[公式] 基于 金字塔平台 编写的一些经典交易系统案例

  [复制链接]
跳转到指定楼层
发表于 2011-12-9 00:52:41 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 金字塔客服 于 2011-12-9 16:54 编辑

基于 金字塔 平台编写的一些经典交易系统案例
(金字塔z7c9版主原创 )

--------------------------------------
分形通道突破

runmode:0;
sfx:=ref(high,1)<ref(high,2) and ref(high,2)>ref(high,3);
xfx:= ref(low,1)>ref(low,2) and ref(low,2)<ref(low,3);

upperband:=valuewhen(sfx,ref(high,2));
lowerband:=valuewhen(xfx,ref(low,2));

exittime:=time>=150000;

if holding=0 then begin
if high>=upperband then
  buy(1,1,limitr,max(open,upperband));
end

if holding=0 then begin
if low<=lowerband then
  buyshort(1,1,limitr,min(open,lowerband));
end

if holding>0 then begin
if time>=150000 then
  sell(1,holding,limitr,close);
end

if holding<0 then begin
if time>=150000 then
  sellshort(1,holding,limitr,close);
end

盈亏:asset-50000,noaxis,colorred,linethick2;
--------------------------------
考夫曼自适应移动均线系统
runmode:0;
input:length1(10,5,60,5);
input:length2(5,5,60,5);

ama:=md(close,length1);
ama1:=ema(ama,length2);
entrylongcond:=ref(cross(ama,ama1),1);
entryshortcond:=ref(cross(ama1,ama),1);

if holding=0 then begin
if entrylongcond then
  buy(1,1,limitr,open);
end

if holding=0 then begin
if entryshortcond then
  buyshort(1,1,limitr,open);
end

if holding>0 then begin
if entryshortcond then begin
  sell(1,holding,limitr,open);
  buyshort(1,1,limitr,open);
end
end

if holding<0 then begin
if entrylongcond then begin
  sellshort(1,holding,limitr,open);
  buy(1,1,limitr,open);
end
end

盈亏:asset-50000,noaxis,colorred,linethick2;
--------------------------------
鳄鱼线与分形图
1 Y:=(H+L)/2;
2 AA:=REF((SMA(Y,5,1)),3);
3 BB:=REF((SMA(Y,8,1)),5);
4 CC:=REF((SMA(Y,13,1)),8);
5 MA1:=MA(CLOSE,5),COLORWHITE,LINETHICK3;
6 MA2:=MA(CLOSE,10),COLORYELLOW,LINETHICK3;
7 MA3:=MA(CLOSE,30),COLORDB7093,LINETHICK3;
8 鳄:CC,COLORFF6600;
9 齿:BB,COLORRED;
10 唇:AA,COLORGREEN;
11 R2:=REF(齿,5);
12 KU1:=IF(HIGH=HHV(HIGH,3),1,0);
13 KD1:=IF(LOW=LLV(LOW,3),1,0);
14 UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
15 DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
16 上分形:IF(HIGH>=R2,UL,REF(UL,BARSLAST(HIGH>R2))),POINTDOT,LINETHICK3,COLORMAGENTA;
17 下分形:IF(LOW<=R2,DL,REF(DL,BARSLAST(LOW<=R2))),POINTDOT,LINETHICK3,COLORYELLOW;
18
19 AO:=MA(Y,5)-MA(Y,34);
20 MAO:=MA(AO,5);
21 AC:=AO-MAO;
22 AC1:=REF(AC,1);
23 AO1:=REF(AO,1);
24 KAC:=IF(AC>AC1 AND AO>AO1,1,0);
25 KAO:=IF(AC<AC1 AND AO<AO1,-1,0);
26 STICKLINE(KAC=1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORRED;
27 STICKLINE(KAO=-1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORGREEN;
28 STICKLINE(KAO=0 AND KAC=0 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORDDDDDD;
29 STICKLINE(CLOSE>=OPEN,HIGH,CLOSE,0.0,1.0),COLORRED;
30 STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.0,1),COLORRED;
31 STICKLINE(KAC=1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORRED;
32 STICKLINE(KAO=-1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORGREEN;



------------------------------------

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册入住  

x

评分

3

查看全部评分






推荐
 楼主| 发表于 2011-12-9 17:27:39 | 只看该作者
两仪四象
///////////////////////////////////////////

runmode:0;

input:length(20);

variable:stopline=0;

if barpos<=30 then exit;

up:=count(close>ref(close,1),length);
down:=count(close<REF(CLOSE,1),LENGTH);
<ref(c,1),length);
entrylongcond:=up/down>=2/3;
entryshortcond:=down/up>=2/3;

upperband:=ref(hhv(high,length),1);
lowerband:=ref(llv(low,length),1);

hh:=ref(high,1);
ll:=ref(low,1);

if holding=0 then begin
if ref(entrylongcond,1) then begin
buy(1,1,limitr,open);
stopline:=lowerband;
end

if ref(entryshortcond,1) then begin
buyshort(1,1,limitr,open);
stopline:=upperband;
end
end

if holding>0 and enterbars>=1 then begin
//if lowerband>stopline then
stopline:=lowerband;

if low<=stopline then
sell(1,holding,limitr,min(open,stopline));
end

if holding<0 and enterbars>=1 then begin
//if upperband<STOPLINE
stopline:=upperband;

if high>=stopline then
sellshort(1,holding,limitr,max(open,stopline));
end

ss:stopline,linethick0;
drawicon(holding<>0,stopline,11);
盈亏:asset-500000,noaxis,coloryellow,linethick2;
//////////////////////////////////////////
回复 支持 1 反对 0

使用道具 举报

78
发表于 2016-4-2 21:42:14 | 只看该作者
这些不能拿 来就用吧?
回复 支持 反对

使用道具 举报

77
发表于 2015-9-13 17:40:38 | 只看该作者
谢谢分享!
回复

使用道具 举报

头像被屏蔽
76
发表于 2015-4-28 11:48:42 | 只看该作者

还不错 顶一个
回复 支持 反对

使用道具 举报

75
发表于 2015-3-29 11:17:29 | 只看该作者
能做成易盛的系统就好了
回复 支持 反对

使用道具 举报

74
发表于 2015-3-19 18:49:08 | 只看该作者
这些系统都可以赚到钱,(在一定的区间之内)
回复 支持 反对

使用道具 举报

73
发表于 2015-2-26 15:07:03 | 只看该作者
牛逼的金字塔客服
回复 支持 反对

使用道具 举报

72
发表于 2014-9-5 00:06:21 | 只看该作者
谢谢楼主分享
回复 支持 反对

使用道具 举报

71
发表于 2014-8-23 09:07:38 | 只看该作者
感谢版主分享!
回复 支持 反对

使用道具 举报

70
发表于 2014-8-6 11:07:05 | 只看该作者
能加个qq吗?本人不懂编程能帮我弄个简单的长线趋势跟踪的自动进出场吗?
回复 支持 反对

使用道具 举报

69
发表于 2014-6-19 21:43:00 | 只看该作者
学习,谢谢分享
回复 支持 反对

使用道具 举报

68
发表于 2014-6-19 21:42:57 | 只看该作者
学习,谢谢分享
回复 支持 反对

使用道具 举报

67
发表于 2014-6-19 11:51:01 | 只看该作者
xiefengxiang
回复 支持 反对

使用道具 举报

66
发表于 2013-10-10 12:41:41 | 只看该作者
{:soso_e142:}
65
发表于 2013-10-10 12:41:38 | 只看该作者
{:soso_e142:}
64
发表于 2013-10-10 12:41:36 | 只看该作者
{:soso_e142:}
63
发表于 2013-10-10 12:41:31 | 只看该作者
{:soso_e142:}
62
发表于 2013-6-29 15:58:55 | 只看该作者
不错,看不懂也顶你
61
发表于 2013-5-8 11:18:37 | 只看该作者
太强大了,好好研究一下{:soso_e100:}
60
发表于 2013-3-27 00:02:43 | 只看该作者
看的云里雾里
59
发表于 2012-11-23 09:03:39 | 只看该作者
谢谢分享{:soso_e183:}
您需要登录后才可以回帖 登录 | 注册入住  

本版积分规则

易家网  ©2015-2023  郑州期米信息技术有限公司版权所有  豫公网安备 41010502005136号 豫ICP备16010300号