金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 1661|回复: 2

麻烦老师帮忙修改下

[复制链接]

21

主题

58

帖子

58

积分

等级: 免费版

注册:
2022-8-25
曾用名:
发表于 2024-3-5 11:17 | 显示全部楼层 |阅读模式
variable:HH1=0;//上一个高点
variable:LL1=0;//上一个低点
variable:TURN=0;//最近的转折点
variable:DIR=0;//当前方向
variable:DIST=0;//距离上一个转折点的距离

BOX : n1 * mindiff, linethick0,colorYellow;

//barcnt := barslast(date<>ref(date,1) or barstatus=1)+1;
IF barstatus=1 THEN BEGIN
//IF barcnt=1 THEN BEGIN
    HH1  := close;
    LL1  := close;
    TURN := close;
    DIR  := 0;
    DIST := 0;
END
ELSE BEGIN
    //上涨
    IF DIR>0 THEN BEGIN                       
        IF TURN=LL1 THEN BEGIN
            DIST := close - TURN;
                IF DIST>=0 THEN BEGIN
                    IF DIST>=BOX THEN BEGIN
                        TURN := close;
                END
                END
                ELSE BEGIN
                    DIR   := -1;
                    DIST  := HH1 - close;
                    IF DIST>=BOX THEN BEGIN
                        TURN := close;
                END
                END
        END
        ELSE BEGIN
            DIST := close - TURN;
                IF DIST>=0 THEN BEGIN
                IF close>TURN THEN BEGIN
                    TURN := close;
                END
                END
                ELSE BEGIN
                    DIR  := -1;
                    HH1  := TURN;
                    DIST := HH1 - close;
                    IF DIST>=BOX THEN BEGIN
                        TURN := close;
                END
                END
        END
    END
    //下跌
    ELSE BEGIN
        IF TURN=HH1 THEN BEGIN
            DIST := TURN - close;
                IF DIST>=0 THEN BEGIN
                    IF DIST>=BOX THEN
                        TURN := close;
                END
                ELSE BEGIN
                    DIR  := 1;
                    DIST := close - LL1;
                    IF DIST>=BOX THEN
                        TURN := close;
                END
        END
        ELSE BEGIN
            DIST := TURN - close;
                IF DIST>=0 THEN BEGIN
                IF close<TURN THEN
                    TURN := close;
                END
                ELSE BEGIN
                    DIR  := 1;
                    LL1  := TURN;
                    DIST := close - TURN;
                    IF DIST>=BOX THEN
                        TURN := close;
                END
        END
    END
END

高点1:HH1,linedot,colorRed;
低点1:LL1,linedot,colorGreen;
转折点:TURN,linethick0;
方向:DIR,linethick0;
距离:DIST,linethick0;
下距:HH1-box,linedot,colorBrown;
上距:ll1+box,linedot,colorBlue;

如果现价从高位向下交叉转折点开空,从低位向上 上穿转折点 平空单 开多单

回复

使用道具 举报

21

主题

1万

帖子

1万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
FireScript
发表于 2024-3-5 11:28 | 显示全部楼层
补上下面代码:
kd:cross(c,转折点);
kk:cross(转折点,c);
sellshort(kd,holding,market);
buy(holding=0 and kd,1,market);

sell(kk,holding,market);
buyshort(holding=0 and kk,1,market);
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

21

主题

58

帖子

58

积分

等级: 免费版

注册:
2022-8-25
曾用名:
 楼主| 发表于 2024-3-5 13:54 | 显示全部楼层
好的 感谢老师
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-8-1 18:30 , Processed in 0.097613 second(s), 22 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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