金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 1763|回复: 3

老师帮忙改一下

[复制链接]

4

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-4-19
曾用名:
发表于 2023-4-19 22:21 | 显示全部楼层 |阅读模式
如题
麻烦老师帮忙看下这个代码哪里有错,帮忙给修改下
N:=5;
{用于满足阈值的阳性数量}
TH:=3; {斜率阈值}
SLOPE_TH:=0.02; {最大与最小连续斜率相差阈值}
MIN_DIFF_TH:=0.001; {寻找最高与最低点}
MAXC:=HHV(CLOSE,N);
MINC:=LLV(CLOSE,N); {计算高低点斜率}
SLOPE_MAX:=(-4*REF(MAXC,-4)+3*REF(MAXC,-3)-2*REF(MAXC,-2)+REF(MAXC,-1))/6;
SLOPE_MIN:=(-4*REF(MINC,-4)+3*REF(MINC,-3)-2*REF(MINC,-2)+REF(MINC,-1))/6; {检测楔形}
X:=0;
FOR
I:=2 TO 20 DO
BEGIN  
        IsWedge:=ABS(REF(SLOPE_MAX,-I)-SLOPE_MAX)<SLOPE_TH AND ABS(REF(SLOPE_MIN,-I)-SLOPE_MIN)<SLOPE_TH;  
        IsWedge:=IsWedge AND ABS((REF(MAXC,-I)-MAXC)-(REF(MINC,-I)-MINC))>MIN_DIFF_TH;  
        IF(IsWedge,I:=20;X:=X+1);{满足楔形条件加一}
        END;
        Lp:=BARSLAST(X=TH); {楔形信号}
        WedgeSignal:=X>=TH; IF(WedgeSignal,1,Lp);

回复

使用道具 举报

21

主题

1万

帖子

1万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
FireScript
发表于 2023-4-20 08:47 | 显示全部楼层
编译时候已经有提示你有问题的行以及对应的问题了,下面这句改下看看:
        IF IsWedge then begin I:=20;X:=X+1;end {满足楔形条件加一}
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

4

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-4-19
曾用名:
 楼主| 发表于 2023-4-20 18:17 | 显示全部楼层
老师,我把你修改的代码加上去了以后,还是没有图形显示出来,麻烦老师给看下是怎么回事。这个代码是我用来发现并标注楔形形态的,要求能在图表上把楔形形态给画出来:
(麻烦老师给修改一下,谢谢)
回复

使用道具 举报

37

主题

9981

帖子

6万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
wenarm
发表于 2023-4-21 09:10 | 显示全部楼层
这段代码中也没有图形绘制相关的函数。其次是你这段代码横不成立。即使有图形函数也不会绘制
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-6-12 02:32 , Processed in 0.159083 second(s), 21 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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