开启辅助访问 切换到窄版

金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫，快速登录

搜索
金字塔决策交易系统»技术中心 › 普通讨论区 › 指标编写问题 › 求助老师将文华改成金字塔的
返回列表 发新帖
查看: 3238|回复: 8

求助老师将文华改成金字塔的

[复制链接]
QQ401256实名认证

1

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-3-20
曾用名:
发表于 2023-3-20 20:43 | 显示全部楼层 |阅读模式
M1:=EMA(C,5);
M2:=EMA(C,20);
M13:MA(C,13);
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR,26);
S1:=H-M2>2*ATR AND C-O<0 AND REF(C,1)-REF(O,1)>0 AND VOL>REF(VOL,1);
//KTEXT(S1,0,H+0.5*ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B1:=M2-L<1.5*ATR AND C-O>0 AND REF(C,1)-REF(O,1)<0 AND VOL<0.5*REF(VOL,1) AND M1<M2;
//KTEXT(B1,0,L- ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B2:=M1>M2 AND REF(M1,1)<REF(M2,1);
//KTEXT(B2,0,L- ATR,1,COLORRED,'买'),ALIGN1;
S2:=M1<M2 AND REF(M1,1)>REF(M2,1);
//KTEXT(S2,0,H+ ATR,1,COLORGREEN,'卖'),ALIGN1;
A1:=BARSLAST(DAYBARPOS=1);
AA1:=BARSLAST(TIME=900);
A2:IF(A1<AA1,REF(H,A1),NULL),DASH;
A3:IF(A1<AA1,REF(L,A1),NULL),DASH;
AA2:IF(AA1<A1,REF(H,AA1),NULL),DASH;
AA3:IF(AA1<A1,REF(L,AA1),NULL),DASH;
T1:=DAYBARPOS>1 AND AA1>0;
T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2,BPK;
A1<AA1 AND CROSSDOWN(C,REF(L,A1)),SP;
T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2,BPK;
A1>AA1 AND CROSSDOWN(C,REF(L,AA1)),SP;
//IF(PERIOD=1,CLOSEMINUTE<=2 OR CLOSEMINUTEEVERY(1)<=2,IF(PERIOD=3,CLOSEMINUTE<=5 OR CLOSEMINUTEEVERY(1)<=5,NULL)),SP;
T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2,SPK;
A1<AA1 AND CROSS(C,REF(H,A1)),BP;
T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2,SPK;
A1>AA1 AND CROSS(C,REF(H,AA1)),BP;
//IF(PERIOD=1,CLOSEMINUTE<=2 OR CLOSEMINUTEEVERY(1)<=2,IF(PERIOD=3,CLOSEMINUTE<=5 OR CLOSEMINUTEEVERY(1)<=5,NULL)),BP;
CHECKSIG(BPK,'A',0,'C',0,0);
CHECKSIG(SPK,'A',0,'C',0,0);
AUTOFILTER;
回复

使用道具 举报

技术006

37

主题

9975

帖子

6万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
wenarm
发表于 2023-3-21 08:37 | 显示全部楼层
新图表方式
[PEL] 复制代码
M1:=EMA(C,5);
M2:=EMA(C,20);
M13:MA(C,13);
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR,26);
S1:=H-M2>2*ATR AND C-O<0 AND REF(C,1)-REF(O,1)>0 AND VOL>REF(VOL,1);
//KTEXT(S1,0,H+0.5*ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B1:=M2-L<1.5*ATR AND C-O>0 AND REF(C,1)-REF(O,1)<0 AND VOL<0.5*REF(VOL,1) AND M1<M2;
//KTEXT(B1,0,L- ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B2:=M1>M2 AND REF(M1,1)<REF(M2,1);
//KTEXT(B2,0,L- ATR,1,COLORRED,'买'),ALIGN1;
S2:=M1<M2 AND REF(M1,1)>REF(M2,1);
//KTEXT(S2,0,H+ ATR,1,COLORGREEN,'卖'),ALIGN1;
A1:=BARSLAST(TODAYBAR=1);
AA1:=BARSLAST(TIME=900);
A2:IF(A1<AA1,REF(H,A1),NULL),LINEDOT;
A3:IF(A1<AA1,REF(L,A1),NULL),LINEDOT;
AA2:IF(AA1<A1,REF(H,AA1),NULL),LINEDOT;
AA3:IF(AA1<A1,REF(L,AA1),NULL),LINEDOT;
T1:=TODAYBAR>1 AND AA1>0;

//T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2,BPK;
if T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2 THEN BEGIN
	SELLSHORT(HOLDING<0,1,MARKET);
	buy(HOLDING=0,1,MARKET);
end	


//A1<AA1 AND CROSS(REF(L,A1),C),SP;

if A1<AA1 AND CROSS(REF(L,A1),C)=1 then BEGIN
	SELL(HOLDING>0,1,MARKET);
	
END


//T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2,BPK;

if T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2 then  BEGIN
	SELLSHORT(HOLDING<0,1,MARKET);
	buy(HOLDING=0,1,MARKET);
end


//A1>AA1 AND CROSS(REF(L,AA1),C),SP;
if A1>AA1 AND CROSS(REF(L,AA1),C)=1 then BEGIN
	SELL(HOLDING>0,1,MARKET);	
END



//IF(PERIOD=1,CLOSEMINUTE<=2 OR CLOSEMINUTEEVERY(1)<=2,IF(PERIOD=3,CLOSEMINUTE<=5 OR CLOSEMINUTEEVERY(1)<=5,NULL)),SP;
//T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2,SPK;

if T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2 THEN BEGIN
	SELL(HOLDING>0,1,MARKET);
	buySHORT(HOLDING=0,1,MARKET);
end	


//A1<AA1 AND CROSS(C,REF(H,A1)),BP;

if A1<AA1 AND CROSS(C,REF(H,A1))=1 then BEGIN
	SELLSHORT(HOLDING<0,1,MARKET);	
END


//T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2,SPK;
if T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2 THEN BEGIN
	SELL(HOLDING>0,1,MARKET);
	buySHORT(HOLDING=0,1,MARKET);
end	
//A1>AA1 AND CROSS(C,REF(H,AA1)),BP;
if A1>AA1 AND CROSS(C,REF(H,AA1))=1 then BEGIN
	SELLSHORT(HOLDING<0,1,MARKET);	
END


旧图表方式
[PEL] 复制代码
M1:=EMA(C,5);
M2:=EMA(C,20);
M13:MA(C,13);
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR,26);
S1:=H-M2>2*ATR AND C-O<0 AND REF(C,1)-REF(O,1)>0 AND VOL>REF(VOL,1);
//KTEXT(S1,0,H+0.5*ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B1:=M2-L<1.5*ATR AND C-O>0 AND REF(C,1)-REF(O,1)<0 AND VOL<0.5*REF(VOL,1) AND M1<M2;
//KTEXT(B1,0,L- ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B2:=M1>M2 AND REF(M1,1)<REF(M2,1);
//KTEXT(B2,0,L- ATR,1,COLORRED,'买'),ALIGN1;
S2:=M1<M2 AND REF(M1,1)>REF(M2,1);
//KTEXT(S2,0,H+ ATR,1,COLORGREEN,'卖'),ALIGN1;
A1:=BARSLAST(TODAYBAR=1);
AA1:=BARSLAST(TIME=900);
A2:IF(A1<AA1,REF(H,A1),NULL),LINEDOT;
A3:IF(A1<AA1,REF(L,A1),NULL),LINEDOT;
AA2:IF(AA1<A1,REF(H,AA1),NULL),LINEDOT;
AA3:IF(AA1<A1,REF(L,AA1),NULL),LINEDOT;
T1:=TODAYBAR>1 AND AA1>0;
T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2,BPK;
A1<AA1 AND CROSS(REF(L,A1),C),SP;
T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2,BPK;
A1>AA1 AND CROSS(REF(L,AA1),C),SP;
//IF(PERIOD=1,CLOSEMINUTE<=2 OR CLOSEMINUTEEVERY(1)<=2,IF(PERIOD=3,CLOSEMINUTE<=5 OR CLOSEMINUTEEVERY(1)<=5,NULL)),SP;
T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2,SPK;
A1<AA1 AND CROSS(C,REF(H,A1)),BP;
T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2,SPK;
A1>AA1 AND CROSS(C,REF(H,AA1)),BP;
金字塔提供一对一VIP专业技术指导服务，技术团队实时响应您的日常使用问题与策略编写。联系电话：021-20339086
回复

使用道具 举报

QQ401256实名认证

1

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-3-20
曾用名:
 楼主| 发表于 2023-3-21 19:36 | 显示全部楼层
技术006 发表于 2023-3-21 08:37
新图表方式
[mw_shl_code=pel,true]M1:=EMA(C,5);
M2:=EMA(C,20);

老师，回测显示这个错误，怎么解决？
回复

使用道具 举报

QQ401256实名认证

1

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-3-20
曾用名:
 楼主| 发表于 2023-3-21 19:37 | 显示全部楼层
QQ401256 发表于 2023-3-21 19:36
老师，回测显示这个错误，怎么解决？

变量名“TR”不能与函数名重复！
回复

使用道具 举报

技术006

37

主题

9975

帖子

6万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
wenarm
发表于 2023-3-21 20:02 | 显示全部楼层
把4，5两行换成这个
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,26);
金字塔提供一对一VIP专业技术指导服务，技术团队实时响应您的日常使用问题与策略编写。联系电话：021-20339086
回复

使用道具 举报

QQ401256实名认证

1

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-3-20
曾用名:
 楼主| 发表于 2023-3-24 08:11 | 显示全部楼层
技术006 发表于 2023-3-21 20:02
把4，5两行换成这个
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA ...

您好，老师，上面的系统我有些地方想要完善一下，能帮我修改一下吗？还有我放到金字塔软件内用了图表交易，怎么没有信号出来的呢？
回复

使用道具 举报

技术009实名认证

21

主题

1万

帖子

1万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
FireScript
发表于 2023-3-24 08:53 | 显示全部楼层
[PEL] 复制代码
M1:=EMA(C,5);
M2:=EMA(C,20);
M13:MA(C,13);
TRX:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TRX,26);
S1:=H-M2>2*ATR AND C-O<0 AND REF(C,1)-REF(O,1)>0 AND VOL>REF(VOL,1);
//KTEXT(S1,0,H+0.5*ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B1:=M2-L<1.5*ATR AND C-O>0 AND REF(C,1)-REF(O,1)<0 AND VOL<0.5*REF(VOL,1) AND M1<M2;
//KTEXT(B1,0,L- ATR,1,COLORMAGENTA,'减仓'),LINETHICK2;
B2:=M1>M2 AND REF(M1,1)<REF(M2,1);
//KTEXT(B2,0,L- ATR,1,COLORRED,'买'),ALIGN1;
S2:=M1<M2 AND REF(M1,1)>REF(M2,1);
//KTEXT(S2,0,H+ ATR,1,COLORGREEN,'卖'),ALIGN1;
A1:=BARSLAST(TODAYBAR=1);
AA1:=BARSLAST(TIME=130100);
A2:IF(A1<AA1,REF(H,A1),NULL),LINEDOT;
A3:IF(A1<AA1,REF(L,A1),NULL),LINEDOT;
AA2:IF(AA1<A1,REF(H,AA1),NULL),LINEDOT;
AA3:IF(AA1<A1,REF(L,AA1),NULL),LINEDOT;
T1:=TODAYBAR>1 AND AA1>0;
 
//T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2,BPK;
if T1 AND A1<AA1 AND C>MA(C,13) AND C=REF(H,A1) AND M1>M2 THEN BEGIN
    SELLSHORT(HOLDING<0,1,MARKET);
    buy(HOLDING=0,1,MARKET);
end
 
 
//A1<AA1 AND CROSS(REF(L,A1),C),SP;
 
if A1<AA1 AND CROSS(REF(L,A1),C)=1 then BEGIN
    SELL(HOLDING>0,1,MARKET);
     
END
 
 
//T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2,BPK;
 
if T1 AND A1>AA1 AND C>MA(C,13) AND C=REF(H,AA1) AND M1>M2 then  BEGIN
    SELLSHORT(HOLDING<0,1,MARKET);
    buy(HOLDING=0,1,MARKET);
end
 
 
//A1>AA1 AND CROSS(REF(L,AA1),C),SP;
if A1>AA1 AND CROSS(REF(L,AA1),C)=1 then BEGIN
    SELL(HOLDING>0,1,MARKET);    
END
 
 
 
//IF(PERIOD=1,CLOSEMINUTE<=2 OR CLOSEMINUTEEVERY(1)<=2,IF(PERIOD=3,CLOSEMINUTE<=5 OR CLOSEMINUTEEVERY(1)<=5,NULL)),SP;
//T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2,SPK;
 
if T1 AND A1<AA1 AND C<MA(C,13) AND C=REF(L,A1) AND M1<M2 THEN BEGIN
    SELL(HOLDING>0,1,MARKET);
    buySHORT(HOLDING=0,1,MARKET);
end
 
 
//A1<AA1 AND CROSS(C,REF(H,A1)),BP;
 
if A1<AA1 AND CROSS(C,REF(H,A1))=1 then BEGIN
    SELLSHORT(HOLDING<0,1,MARKET);   
END
 
 
//T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2,SPK;
if T1 AND A1>AA1 AND C<MA(C,13) AND C=REF(L,AA1) AND M1<M2 THEN BEGIN
    SELL(HOLDING>0,1,MARKET);
    buySHORT(HOLDING=0,1,MARKET);
end
//A1>AA1 AND CROSS(C,REF(H,AA1)),BP;
if A1>AA1 AND CROSS(C,REF(H,AA1))=1 then BEGIN
    SELLSHORT(HOLDING<0,1,MARKET);   
END
金字塔提供一对一VIP专业技术指导服务，技术团队实时响应您的日常使用问题与策略编写。联系电话：021-20339086
回复

使用道具 举报

QQ401256实名认证

1

主题

5

帖子

5

积分

Rank: 1

等级: 新手上路

注册:
2023-3-20
曾用名:
 楼主| 发表于 2023-3-24 19:26 | 显示全部楼层
技术009 发表于 2023-3-24 08:53
[mw_shl_code=pel,true]M1:=EMA(C,5);
M2:=EMA(C,20);
M13:MA(C,13);

老师，您发的这个指标代码是什么意思？
回复

使用道具 举报

技术009实名认证

21

主题

1万

帖子

1万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
FireScript
发表于 2023-3-27 08:39 | 显示全部楼层
在前面基础上调整的。
金字塔提供一对一VIP专业技术指导服务，技术团队实时响应您的日常使用问题与策略编写。联系电话：021-20339086
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 微信登录

本版积分规则

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

GMT+8, 2025-6-10 04:24 , Processed in 0.149010 second(s), 21 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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