金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 19|回复: 4

策略一直显示语句缺少分号,可以问下修改地方吗

[复制链接]

2

主题

6

帖子

6

积分

Rank: 1

等级: 新手上路

注册:
2024-12-12
曾用名:
发表于 2024-12-18 20:55 | 显示全部楼层 |阅读模式
策略一直显示语句缺少分号,可以问下修改地方吗
屏幕截图 2024-12-18 205220.png
回复

使用道具 举报

2

主题

6

帖子

6

积分

Rank: 1

等级: 新手上路

注册:
2024-12-12
曾用名:
 楼主| 发表于 2024-12-18 20:56 | 显示全部楼层
思维是,买入信号5分钟级别20根k线振幅上下百分之0.5,向上突破20根k线震荡区间最高点开多,向下突破20根k线震荡区间最低点开空,固定止损点开仓价上移50点,止盈点开仓趋势出线反方向,固定开仓手数1手,不设加仓减仓。
回复

使用道具 举报

2

主题

6

帖子

6

积分

Rank: 1

等级: 新手上路

注册:
2024-12-12
曾用名:
 楼主| 发表于 2024-12-18 20:57 | 显示全部楼层
// 全局变量
Vars
    NumericSeries UpperBand;  // 震荡区间上轨
    NumericSeries LowerBand;  // 震荡区间下轨
    NumericSeries StopLossPrice;  // 止损价格
    NumericSeries OpenPrice;  // 开仓价格
    BoolSeries UpBreakout;  // 向上突破标志
    BoolSeries DownBreakout;  // 向下突破标志
    Bool LongPosition;  // 多仓持有标志
    Bool ShortPosition;  // 空仓持有标志
Begin
    // 计算 20 根 K 线的震荡区间上下轨
    If BarPos >= 20 Then
    Begin
        UpperBand = Highest(High, 20);
        LowerBand = Lowest(Low, 20);
        // 计算振幅
        Numeric amplitude = (UpperBand - LowerBand) / Open[20];
        // 判断振幅是否在上下百分之 0.5 内
        If amplitude <= 0.005 Then
        Begin
            // 向上突破判断
            UpBreakout = Close > UpperBand[1];
            // 向下突破判断
            DownBreakout = Close < LowerBand[1];
            // 开仓逻辑
            If UpBreakout and Not(LongPosition) Then
            Begin
                OpenPrice = Close;
                StopLossPrice = OpenPrice + 50;
                TBuy(1, 1, OpenPrice);
                LongPosition = True;
            End
            Else If DownBreakout and Not(ShortPosition) Then
            Begin
                OpenPrice = Close;
                StopLossPrice = OpenPrice - 50;
                TSellShort(1, 1, OpenPrice);
                ShortPosition = True;
            End
        End
    End;

    // 止损逻辑
    If LongPosition and Low <= StopLossPrice Then
    Begin
        TSell(1, 1, Market);
        LongPosition = False;
    End
    Else If ShortPosition and High >= StopLossPrice Then
    Begin
        TBuyToCover(1, 1, Market);
        ShortPosition = False;
    End

    // 止盈逻辑(简单判断反向趋势,可优化)
    If LongPosition and Close < OpenPrice Then
    Begin
        TSell(1, 1, Market);
        LongPosition = False;
    End
    Else If ShortPosition and Close > OpenPrice Then
    Begin
        TBuyToCover(1, 1, Market);
        ShortPosition = False;
    End
End
回复

使用道具 举报

31

主题

7734

帖子

7744

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
发表于 2024-12-19 09:20 | 显示全部楼层
if barpos<20 then exit;


UpperBand := hhv(High, 20);
LowerBand := llv(Low, 20);
// 计算振幅
Numeric amplitude := (UpperBand - LowerBand) / ref(open,20);
// 判断振幅是否在上下百分之 0.5 内
ref1:=ref(UpperBand,1);
ref2:=ref(LowerBand,1);
If amplitude <:= 0.005 Then
Begin
    // 向上突破判断
    UpBreakout := Close > ref1;
    // 向下突破判断
    DownBreakout := Close < ref2;
    // 开仓逻辑
    If UpBreakout and holding=0 Then
    Begin
        OpenPrice := Close;
        StopLossPrice := OpenPrice + 50;
        Buy(1, 1, limitr,OpenPrice);

    End
    Else If DownBreakout and holding<0 Then
    Begin
        OpenPrice := Close;
        StopLossPrice := OpenPrice - 50;
        buyShort(1, 1, limitr,OpenPrice);

    End
End


// 止损逻辑
If holding>0 and Low <= StopLossPrice Then
Begin
Sell(1, 1, Market);
End
Else If holding<0 and High >= StopLossPrice Then
Begin
sellshort(1, 1, Market);
End

// 止盈逻辑(简单判断反向趋势,可优化)
If holding>0 and Close < OpenPrice Then
Begin
Sell(1, 1, Market);
End
Else If holding<0 and Close > OpenPrice Then
Begin
sellshort(1, 1, Market);
End
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

31

主题

7734

帖子

7744

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
发表于 2024-12-19 09:21 | 显示全部楼层
建议用户看下软件自带系统范例学习下金字塔的写法,直接从其他平台硬转很多时候不一定是同一个意思的
代码编写很多时候还是需要策略的拥有者自己去实现的
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 微信登录

本版积分规则

手机版|小黑屋|上海金之塔信息技术有限公司 ( 沪ICP备13035422号 )

GMT+8, 2024-12-22 17:16 , Processed in 0.239733 second(s), 24 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表