当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：AA99主图，和谐源码分享（通达信公式 主图 源码 测试图）
软件名称：[B]AA99主图，和谐源码分享（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2021-11-06 00:15:27
软件简介:
{公式名称: 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);
[url=http://www.70822.com/soft/sort013/sort05/down-158939.html]AA99主图，和谐源码分享（通达信公式 主图 源码 测试图）[/url]