神奇江恩主图，整合出来挺复杂的主图（通达信指标主图源码测试图）

分析家公式网,提供指标公式,股票软件用户登录 |

首页 ┆ 软件中心 ┆ 备用域名gspt.com ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：神奇江恩主图，整合出来挺复杂的主图（通达信指标主图源码测试图）

软件名称：[B]神奇江恩主图，整合出来挺复杂的主图（通达信指标主图源码测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：10.0 KB
官方主页：Home Page
更新时间：2023-04-27 00:15:33
软件简介:

神奇江恩主图

这个是整合出来的，神奇江恩主图还是挺复杂的，自己可以根据需要来删减。

T01:=CONST(LLVBARS(LOW,10));

T1HIGH:=CONST(REF(HIGH,T01));

MM1:=CONST(CURRBARSCOUNT);

T02:=CONST(BARSLAST(CURRBARSCOUNT>MM1+T01 AND H>T1HIGH));

T2HIGH:=CONST(REF(HIGH,T02));

T03:=CONST(BARSLAST(CURRBARSCOUNT>MM1+T02 AND HIGH>T2HIGH));

T3HIGH:=CONST(REF(HIGH,T03));

攻击线:DRAWLINE(CURRBARSCOUNT=T03+1, T3HIGH, ISLASTBAR, T3HIGH,1),LINETHICK1,COLOR80FF80;

DRAWTEXT(ISLASTBAR, T3HIGH, '洗盘杀入线')LINETHICK2,COLORRED;

VAR1:=REF(CLOSE,1);

VAR2:=SMA(MAX(CLOSE-VAR1,0),6,1)/SMA(ABS(CLOSE-VAR1),6,1)*100;

STICKLINE(CROSS(76,VAR2),C,O,8,0) ,COLORYELLOW,LINETHICK2;

DRAWTEXT(CROSS(76,VAR2),H*1.05,'卖') ,COLORYELLOW;

T:=180;

T1:=5;

{参数：T 1 1000 180

设置：T1 1 500 10或者5，当顶点和底点不准是调整参数}

DRAWKLINE(H,O,L,C);

{黄金分割}

HH:=REF(HHV(H,T),T1);

LL:=REF(LLV(L,T),T1);

H1:=HH-(HH-LL)*0.191;

H2:=HH-(HH-LL)*0.382;

H3:=HH-(HH-LL)*0.5;

H4:=HH-(HH-LL)*0.618;

H5:=HH-(HH-LL)*0.764;

H6:=HH-(HH-LL)*0.809;

H7:=HH-(HH-LL)*0.236;

顶1:=HH+(HH-LL)*0.191;

顶2:=HH+(HH-LL)*0.382;

顶3:=HH+(HH-LL)*0.618;

底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191);

底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382);

底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618);

高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL);

一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);

二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);

三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);

四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);

五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);

六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);

七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);

低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL);

NOTEXT1:高,COLOR007799;{WWW.GUPANG.COM}

{NOTEXT2:IF(GOQI,DRAWNULL,一),DOTLINE,COLOR777777;

NOTEXT3:IF(GOQI,DRAWNULL,二),DOTLINE,COLOR777777;

NOTEXT4:IF(GOQI,DRAWNULL,三),DOTLINE,COLOR777777;

NOTEXT5:IF(GOQI,DRAWNULL,四),DOTLINE,COLOR777777;

NOTEXT6:IF(GOQI,DRAWNULL,五),DOTLINE,COLOR777777;

NOTEXT7:IF(GOQI,DRAWNULL,六),DOTLINE,COLOR777777;}

AA:REFDATE(一,DATE),DOTLINE,COLOR555555;

BB:REFDATE(二,DATE),DOTLINE,COLOR005858;

CC:REFDATE(三,DATE),DOTLINE,COLOR777777;

DD:REFDATE(四,DATE),DOTLINE,COLOR005858;

EE:REFDATE(五,DATE),DOTLINE,COLOR555555;

FF:REFDATE(六,DATE),DOTLINE,COLOR555555;

GG:REFDATE(七,DATE),DOTLINE,COLOR555555;

NOTEXT8:低,COLOR668800;

TT:=INTPART(T*0.5)+T1;

TT1:=(CURRBARSCOUNT=TT);

TT2:=(CURRBARSCOUNT=TT-32);

TT3:=(CURRBARSCOUNT=TT-40);

DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT(' 【高点】:　',CON2STR(HH,2))),COLOR007799;

DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809):　',CON2STR(H1,2))),COLOR888888;

DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618):　',CON2STR(H2,2))),COLOR008888;

DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT(' 【中点】:　',CON2STR(H3,2))),COLOR000088;

DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382):　',CON2STR(H4,2))),COLOR008888;

DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236):　',CON2STR(H5,2))),COLOR888888;

DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191):　',CON2STR(H6,2))),COLOR888888;

DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764):　',CON2STR(H7,2))),COLOR888888;

DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT(' 【低点】:　',CON2STR(LL,2))),COLOR668800;

DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{顶距};

低点:=800;

高点:=800;

时间:=1;

价格:=1;

调点1:=1;

PURC:=CONST(FINDHIGH(H,0,高点*10,1));

PLZ:=CONST(BARSLAST(PURC=H))+1;

顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));

QQT:=CONST(FINDLOW(L,0,低点*10,1));

PLL:=CONST(BARSLAST(QQT=L))+1;

低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));

ATM:=时间=2 OR 时间=2;

QTM:=时间=1 OR 时间=1;

BTM:=时间=1 OR 时间=1 OR 时间=1;

AAZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.809),DRAWNULL);

ABZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.5),DRAWNULL);

ACZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.618),DRAWNULL);

ADZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.382),DRAWNULL);

AEZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.236),DRAWNULL);

AFZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1),DRAWNULL);

AGZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.809),DRAWNULL);

AHZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.5),DRAWNULL);

AIZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.618),DRAWNULL);

AJZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.382),DRAWNULL);

AKZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.236),DRAWNULL);

ALZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2),DRAWNULL);

AMZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.236),DRAWNULL);

ANZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.382),DRAWNULL);

AOZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.5),DRAWNULL);

APZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.618),DRAWNULL);

AQZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.809),DRAWNULL);

ARZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3),DRAWNULL);

ASZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)),DRAWNULL);

HXCS1:=CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=ADZ

OR CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AFZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AHZ

OR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=ALZ

OR CURRBARSCOUNT=AMZ OR CURRBARSCOUNT=ANZ OR CURRBARSCOUNT=AOZ

OR CURRBARSCOUNT=APZ OR CURRBARSCOUNT=AQZ OR CURRBARSCOUNT=ARZ OR CURRBARSCOUNT=ASZ;

QAZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/8),DRAWNULL);

QBZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/8),DRAWNULL);

QCZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3/8),DRAWNULL);

QDZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*4/3),DRAWNULL);

QEZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/8),DRAWNULL);

QGZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*6/8),DRAWNULL);

QHZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/8),DRAWNULL);

QIZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*9/8),DRAWNULL);

QJZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/3),DRAWNULL);

QKZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/3),DRAWNULL);

QMZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*10/8),DRAWNULL);

QNZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*11/8),DRAWNULL);

QOZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/3),DRAWNULL);

QPZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*13/8),DRAWNULL);

QQZ:=
[url=http://www.70822.com/soft/sort013/sort05/down-167342.html]神奇江恩主图，整合出来挺复杂的主图（通达信指标主图源码测试图）[/url]