欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 公式更改

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3587人关注过本帖树形打印复制链接

主题:公式更改

帅哥哟,离线,有人找我吗?
zygq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:173 积分:0 威望:0 精华:0 注册:2019/4/27 11:21:38
公式更改  发帖心情 Post By:2020/6/17 15:25:18    Post IP:115.60.58.58[只看该作者]

请老师将文化财经的赢顺云端交易软件WH6指标改为金字塔指标,谢谢

 

 

 

 

//INPUT:N(8,0,10),P(0,0,255),P1(0,0,255),P2(0,0,255);
N:=8;
P:=0;
P1:=0;
P2:=0;
SYSPARAM:=20;
TJA:=CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1);
 /* STICKLINE(TJA,LOW,HIGH,0,0),COLOR0000E9;
STICKLINE(TJA,O,CLOSE,8,0),COLOR000080;
STICKLINE(TJA,O,CLOSE,6,0),COLOR0000A5;
STICKLINE(TJA,O,CLOSE,4,0),COLOR0000C0;
STICKLINE(TJA,O,CLOSE,2,0),COLOR0000E6;
 STICKLINE(NOT(TJA),HIGH,LOW,0,0),COLOR00FF00;
 STICKLINE(NOT(TJA),CLOSE,OPEN,8,0),COLOR005000;
 STICKLINE(NOT(TJA),CLOSE,OPEN,6,0),COLOR006600;
 STICKLINE(NOT(TJA),CLOSE,OPEN,4,0),COLOR008000;
 STICKLINE(NOT(TJA),CLOSE,OPEN,2,0),COLOR00A000;
 */
BQ:=IF((20= (BARSSINCE((C > 0)) + 1)),1,0);
BQ1:=(H<REF(L,1));
BQ2:=(L>REF(H,1));
/* STICKLINE(BQ1,O+(C-O)*0.25,O,5,0),COLORCC0000;
STICKLINE(BQ1,O+(C-O)*0.25,O,3,0),COLORDD0000;
STICKLINE(BQ1,O+(C-O)*0.25,O,1,0),COLOREE0000;
STICKLINE(BQ2,O,O+(C-O)*0.25,6,0),COLOR208AAA;
STICKLINE(BQ2,O,O+(C-O)*0.25,4,0),COLOR208DDD;
STICKLINE(BQ2 ,O,O+(C-O)*0.25,2,0),COLOR208FFF;
*/
DRAWTEXT(((BQ > 0) AND BQ1),H,'↓缺口'),COLORFFFFEE,ALIGN2;
DRAWTEXT(((BQ > 0) AND BQ2),L,'↑缺口'),COLOR00FFEE,ALIGN1;
QC:=REF(C,1);
QO:=REF(O,1);
QH:=REF(H,1);
QL:=REF(L,1);
FUZ:=L+((H-L)/2);
FUS:=O+((C-O)/2);
FUSY:=C+((O-C)/2);
SSFU:=(FUZ+IF(C>O,FUS,FUSY))/2;
FUZ1:=L+((H-L)*0.333);
FUS1:=O+((C-O)*0.333);
FUS1Y:=C+((O-C)*0.333);
SSFU1:=(FUZ1+IF(C>O,FUS1,FUS1Y))/2;
FUZ2:=L+((H-L)*0.667);
FUS2:=O+((C-O)*0.677);
FUS2Y:=C+((O-C)*0.667);
SSFU2:=(FUZ2+IF(C>O,FUS2,FUS2Y))/2;
BS1:=QL+((QH-QL)/2);
BS2:=QO+((QC-QO)/2);
BS3:=QC+((QO-QC)/2);
DB1:=QL+((QH-QL)*0.333);
DB2:=QO+((QC-QO)*0.333);
DB3:=QC+((QO-QC)*0.333);
EB1:=QL+((QH-QL)*0.667);
EB2:=QO+((QC-QO)*0.667);
EB3:=QC+((QO-QC)*0.667);
SYB1:=QH-((QH-QC)/2);
SYB2:=QH-((QH-QO)/2);
SYB3:=IF(QC>QO,SYB1,SYB2);
XYB1:=QL+((QC-QL)/2);
XYB2:=QL+((QO-QL)/2);
XYB3:=IF(QC<QO,XYB1,XYB2);
QFU:=(BS1+IF(QC>QO,BS2,BS3))/2;
QDFU:=(DB1+IF(QC>QO,DB2,DB3))/2;
QEFU:=(EB1+IF(QC>QO,EB2,EB3))/2;
/* STICKLINE(C=C,SSFU2,SSFU2,4,0),COLOR00FF00,LINETHICK1;
STICKLINE(C=C,SSFU1,SSFU1,4,0),COLOR00FF00,LINETHICK1;
STICKLINE(C=C,SSFU,SSFU,6,0),COLOR00FFFF,LINETHICK1;
STICKLINE(C=C,IF(C>O,H-((H-C)/2),H-((H-O)/2)),IF(C>O,H-((H-C)/2),H-((H-O)/2)),1.3,0),COLORYELLOW,LINETHICK1;
STICKLINE(C=C,IF(C<O,L+((C-L)/2),L+((O-L)/2)),IF(C<O,L+((C-L)/2),L+((O-L)/2)),1.3,0),COLORYELLOW,LINETHICK1;
*/
A3:=C=HHV(C,6);
A9:=C=LLV(C,6);
A4:=BARSLAST(A3);
A5:=BARSLAST(A9);
A6:=IF(A4,REF(C,A4),REF(C,A4))*1.005;
A7:=IF(A5,REF(C,A5),REF(C,A5))*0.995;
PARTLINE1(A6=REF(A6,1),A6),COLOR00FF00,DOT;
PARTLINE1(A7=REF(A7,1),A7),COLOR00FFFF,DOT;
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=REF(ISNULL(F1),1)=1&&F1=1;
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
L2:=LD OR BARSTATUS=2 OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
//G2:=F2>REF(F2,1);
G2:=REF(ISNULL(F2),1)=1&&F2=1;
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
R1:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
S1:=R1>REF(R1,1);
T1:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
U1:=T1>REF(T1,1);
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2);
S2:=R2>REF(R2,1);
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);
U2:=T2>REF(T2,1);
T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2);
U3:=T3>REF(T3,1);
T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2);
U4:=T4>REF(T4,1);
R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2);
S3:=R3>REF(R3,1);
R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2);
S4:=R4>REF(R4,1); 
DRAWLINE1(S2,H,S1,H,1),COLOR009999;//高点连线
DRAWLINE1(U2,L,U1,L,1),POINTDOT,COLOR009999; //低点连线
DRAWLINE1(S3,H,S2,H,1),COLOR999900;
DRAWLINE1(U3,L,U2,L,1),POINTDOT,COLOR999900;
DRAWLINE1(S4,H,S3,H,1),COLOREEAAEE;
DRAWLINE1(U4,L,U3,L,1),POINTDOT,COLOREEAAEE;
DRAWSL1(SYSPARAM=BARPOS,REF(L,SYSPARAM=SUM(1,0)-1),0,0,1),COLORGREEN;
DRAWSL1(SYSPARAM=BARPOS,REF(H,SYSPARAM=SUM(1,0)-1),0,0,1),COLORRED;
TTT:=ISLASTBAR=1;
AS1:=((H-L)/L)*100;
AS2:=H-L;
MAI:=C*1.015;
MAII:=C*1.03;
短赢:IF(TTT,MAI,NULL);
振幅:IF(TTT,AS1,NULL);
//DRAWTEXT(TTT&&ISLASTBAR,H+MINPRICE,'【#---金鱼-玉兔---#】'),COLORRED;
 /* DRAWTEXTEX(TTT,0,310,1,'▼明短线赢利 [1.5%--3%:]'+'/'+NUMTOSTR(MAI[SYSPARAM],2)+'--'+NUMTOSTR(MAII [SYSPARAM],2)),COLOR00DD00;
DRAWTEXTEX(TTT,0,176,1,'【振幅:'+NUMTOSTR(AS1[SYSPARAM],2)+'% '+NUMTOSTR(AS2[SYSPARAM],2)+'元 】'+'),COLORDDDD00;
DRAWTEXTEX(TTT,0,1,1,'【代码:'+STKLABEL+' 名称:'+STKNAME+'】'),COLORFFFFFF;
 DRAWTEXTEX(TTT,1,700,1,'【#---金鱼-玉兔---#】'),COLORRED;
*/ AS:=(O+H+L+C)/4;
BL: EMA(AS,P),LINETHICK1,COLOR208FFF;
BL1: MA(C,P1),LINETHICK1,COLORFFFFFF;
BL2: MA(C,P2),LINETHICK1,COLOR00FFFF;
DRAWNUMBER1(ISLASTBAR AND BL>REF(BL,1),BL,BL,2),COLOR208FFF; //DRAWTEXT(ISLASTBAR AND BL<REF(BL,1),BL,'↓'+NUMTOSTR(P,0)+':'+NUMTOSTR(BL,2)),COLOR208FFF;
DRAWNUMBER1(ISLASTBAR AND BL1>REF(BL1,1),BL1,BL1,2),COLORFFFFFF; //DRAWTEXT(ISLASTBAR AND BL1<REF(BL1,1),BL1,'↓'+NUMTOSTR(P1,0)+':'+NUMTOSTR(BL1,2)),COLORFFFDED;
DRAWNUMBER1(ISLASTBAR AND BL2>REF(BL2,1),BL2,BL2,2),COLOR00CCCC; //DRAWTEXT(ISLASTBAR AND BL2<REF(BL2,1),BL2,'↓'+NUMTOSTR(P2,0)+':'+NUMTOSTR(BL2,2)),COLOR00CCCC;


//修改自121行
ZC1:=TRENDLINES(U2,L,U1,L);
DRAWNUMBER(ISLASTBAR,ZC1,ZC1,0,COLORRED),ALIGN0,VALIGN1,FONTSIZE20;
DRAWCOLORLINE(REF(C,1)>=ZC1,ZC1,COLORRED,COLORGREEN),LINETHICK2;
//修改120行
ZC2:=TRENDLINES(S2,H,S1,H);
DRAWNUMBER(ISLASTBAR,ZC2,ZC2,0,COLORGREEN),ALIGN0,VALIGN1,FONTSIZE20;
DRAWCOLORLINE(REF(C,1)>=ZC2,ZC2,COLORRED,COLORGREEN),LINETHICK2;
//ZC:=TRENDLINES(CROSS(A1,0.5),L,CROSS(B1,0.5),L);
//DRAWCOLORLINE(REF(C,1)>=ZC,ZC,COLORRED,COLORGREEN),DOT;
//DRAWNUMBER(ISLASTBAR,ZC,ZC,0,COLORRED),ALIGN0,VALIGN1,FONTSIZE20;
//需转供:IFELSE(ZC>C,ZC,NULL),COLORGREEN,LINETHICK2;
//需求:IFELSE(ZC<C,ZC,NULL),COLORRED,LINETHICK2;


 回到顶部
帅哥哟,离线,有人找我吗?
wenarm
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:26631 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2020/6/17 15:54:06    Post IP:58.246.57.26[只看该作者]

提供TRENDLINES的说明


编程无捷径,技巧靠积累。
 回到顶部