AA99主图,和谐源码分享(通达信公式 主图 源码 测试图)

[复制链接]
查看47 | 回复0 | 2022-6-27 16:27:16 | 显示全部楼层 |阅读模式

 {公式名称: AA99

公式描述: 
无参数
公式类型: 技术指标公式-图表型
画线方法: 主图叠加
公式版本: 0
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无
 
参数精灵:无
用法注释:无
公式源码:}
STICKLINE(OPEN>CLOSE,CLOSE,OPEN,3,1),COLOR00CC00;
XA_1:=4;
XA_2:=REF(HIGH,XA_1)=HHV(HIGH,2*XA_1+1);
XA_3:=BACKSET(XA_2,XA_1+1);
XA_4:=FILTER(XA_3,XA_1) AND HIGH=HHV(HIGH,XA_1+1);
XA_5:=BARSLAST(XA_4);
XA_6:=IF(XA_4,CURRBARSCOUNT,0);
XA_7:=IF(XA_5,REF(XA_6,XA_5),XA_6);
XA_8:=CONST(XA_7);
XA_9:=REF(XA_7,XA_5+1);
XA_10:=CONST(XA_9);
XA_11:=DRAWLINE(CURRBARSCOUNT=XA_10,HIGH,CURRBARSCOUNT=XA_8,HIGH,1);
XA_12:=NOT(NAMELIKE(12) OR NAMELIKE(13)) AND VOL>1 AND DYNAINFO(39)>1;
XA_13:=XA_12 AND XA_11<REF(XA_11,1) AND REF(CLOSE,1)<REF(XA_11,1) AND OPEN<CLOSE AND CLOSE>XA_11;
XA_14:=BARSLAST(XA_13);
XA_15:=HIGH-HIGH*0.003;
XA_16:=XA_12 AND XA_14>1 AND XA_14<=3 AND REF(CLOSE,1)<REF(CLOSE,2) AND OPEN<CLOSE AND CLOSE>REF(HIGH,1) AND CLOSE>XA_15 AND VOL=HHV(VOL,5);
XA_17:=BARSLAST(XA_16);
XA_18:=IF(XA_16,REF(HIGH,2),DRAWNULL);
XA_19:=IF(XA_16,LLV(LOW,23),DRAWNULL);
XA_20:=IF(XA_16,25,DRAWNULL);
XA_21:=IF(XA_16,3,DRAWNULL);
XA_22:=XA_20;
XA_23:=3;
XA_24:=CONST(XA_18);
XA_25:=CONST(XA_19);
XA_26:=CONST(XA_18-XA_19+XA_18);
XA_27:=IF(CURRBARSCOUNT<=CONST(25) AND CURRBARSCOUNT>=CONST(3),CONST(XA_26),CONST(XA_26));
XA_28:=IF(CURRBARSCOUNT<=CONST(25) AND CURRBARSCOUNT>=CONST(3),CONST(XA_25),CONST(XA_25));
XA_29:=IF(CURRBARSCOUNT<=CONST(25) AND CURRBARSCOUNT>=CONST(3),CONST(XA_24),CONST(XA_24));
XA_30:=CONST(25);{分析家公式网}
XA_31:=CONST(3);
XA_32:=CURRBARSCOUNT;
XA_33:=CONST(XA_18);
XA_34:=CONST(XA_19);
XA_35:=ABS(XA_33-XA_34);
XA_36:=ABS(XA_31-XA_30);
XA_37:=ABS((XA_30-XA_31)/2+XA_31);
XA_38:=ABS((XA_27+XA_28)/2);
XA_39:=ABS(XA_29*XA_28);
XA_40:=ABS(1.9999*(XA_33*XA_34)/XA_36);
XA_41:=ABS(XA_33*XA_34/XA_35);
XA_42:=ABS((XA_37-XA_32)*XA_40);
XA_43:=SQRT(XA_39*XA_39-XA_42*XA_42)/XA_41;
XA_44:=IF(CURRBARSCOUNT<=CONST(25) AND CURRBARSCOUNT>=CONST(3),CONST(XA_29),DRAWNULL);
XA_45:=XA_44+XA_43;
圆底线:XA_44-XA_43,COLORYELLOW;
XA_46:=CONST(ABS(XA_30/2+1));
XA_47:=CONST(ABS(XA_30-1-ABS(XA_46*2)));
XA_48:=ABS(XA_33-XA_34);
XA_49:=ABS(XA_47-XA_30);
XA_50:=CONST(XA_33+0.0314*2+0.12);
XA_51:=ABS(XA_33-XA_50);
XA_52:=ABS((XA_47-XA_30)/2+IF(XA_30<=XA_47,XA_47,XA_30));
XA_53:=ABS(XA_33*XA_50);
XA_54:=ABS(1.9999*(XA_33*XA_50)/XA_49);
XA_55:=ABS(XA_33*XA_50/XA_51);
XA_56:=ABS((XA_52-XA_32)*XA_54);
XA_57:=SQRT(XA_53*XA_53-XA_56*XA_56)/XA_55;
A线:XA_44+XA_57,DOTLINE,COLORYELLOW;
B线:XA_44-XA_57,DOTLINE,COLORYELLOW;
XA_58:=XA_16 AND OPEN<CLOSE;
STICKLINE(XA_58,CLOSE,OPEN,3,0),COLORFF0099;
STICKLINE(XA_58,CLOSE,OPEN,2.5,0),COLORFF00AA;
STICKLINE(XA_58,CLOSE,OPEN,2,0),COLORFF00BB;
STICKLINE(XA_58,CLOSE,OPEN,1.5,0),COLORFF00CC;
STICKLINE(XA_58,CLOSE,OPEN,1,0),COLORFF00DD;
STICKLINE(XA_58,CLOSE,OPEN,0.5,0),COLORFF00EE;
STICKLINE(XA_58,CLOSE,OPEN,0.1,0),COLORMAGENTA;
XA_59:=IF(XA_16,3,DRAWNULL);
XA_60:=IF(XA_16,1,DRAWNULL);
F线:DRAWLINE(CURRBARSCOUNT=CONST(XA_59),HIGH,CURRBARSCOUNT=CONST(XA_60),LOW,1),COLORCYAN;
E线:DRAWLINE(CURRBARSCOUNT=CONST(XA_59),LOW,CURRBARSCOUNT=CONST(XA_60),LOW,1),COLORCYAN;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
{BA501  选股    }
 
 
ER5:=NOT(NAMELIKE('S') OR NAMELIKE('*S')) AND VOL>1&&DYNAINFO(39)>1;
GN1:=4;
GR1:=REF(H,GN1)=HHV(H,2*GN1+1);
GR2:=BACKSET(GR1,GN1+1);
GR3:=FILTER(GR2,GN1) AND H=HHV(H,GN1+1);
GR4:=BARSLAST(GR3);
GR5:=IF(GR3,CURRBARSCOUNT,0);
GR6:=IF(GR4,REF(GR5,GR4),GR5);
GR7:=CONST(GR6);
GR8:=REF(GR6,GR4+1);
GR9:=CONST(GR8);
Q11:=DRAWLINE(CURRBARSCOUNT=GR9,H,CURRBARSCOUNT=GR7,H,1);
GR11:=REF(L,GN1)=LLV(L,2*GN1+1);
GR12:=BACKSET(GR11,GN1+1);
GR13:=FILTER(GR12,GN1) AND L=LLV(L,GN1+1);
GR14:=BARSLAST(GR13);
GR15:=IF(GR13,CURRBARSCOUNT,0);
GR16:=IF(GR14,REF(GR15,GR14),GR15);
GR17:=CONST(GR16);
GR18:=REF(GR16,GR14+1);
GR19:=CONST(GR18);
Q111:=DRAWLINE(CURRBARSCOUNT=GR19,L,CURRBARSCOUNT=GR17,L,1);
乖:=Q11/Q111*100-100;
K1:=Q11<REF(Q11,1)&&Q111>REF(Q111,1);
R35:=ER5&&Q11<REF(Q11,1)&&REF(C,1)<REF(Q11,1)&&O<C&&C>Q11;
R36:=BARSLAST(R35);
R37:=H-H*0.003;
R38:ER5&&R36>1&&R36<=3&&REF(C,1)<REF(C,2)&&O<C&&C>REF(H,1)&&C>R37&&V=HHV(V,5);
 

20211151572980761.png

20211151572980761.png
 

20211151573596647.png

20211151573596647.png

20211151571967190.rar

5.05 KB, 下载次数: 0

售价: 6 金钱  [记录]  [购买]

20211151571967190.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则