神奇画图神奇趋势线画图公式[大智慧公式]

相关标签:二维随机变量相关系数 、 matlab如何画模型 、 matlab图像特征提取 、 世界上有哪些神奇的树 、 神奇的树图片 、 神奇趋势线画图公式 、 神奇画图 、 神奇数字自动画线指标 、 神奇组合主图指标公式 、 神奇九转指标公式 、 神奇波段顶底指标公式 、 同花顺神奇电波指标公式 、

神奇画图
 

原理解析：
DRAWGBKLAST(收盘价>0,STRIP(自定色,自定色,0)) A1赋值:3日前的最高价=2*3+1日内最高价的最高值 B1赋值:A1的3日过滤 C1赋值:若B1则将最近3+1周期置为1 D1赋值:C1的3日过滤 A2赋值:3日前的最低价=2*3+1日内最低价的最低值 B2赋值:A2的3日过滤 C2赋值:若B2则将最近3+1周期置为1 D2赋值:C2的3日过滤 E1赋值:(1日前的2*3日内最低价的最低值+1日前的2*3日内最高价的最高值)/2 E2赋值:(最高价+最低价)/2 H1赋值:(D1 AND 取反) OR 数据位置状态=2 OR 收盘价的有效数据周期数=1 H2赋值:D1 AND 取反 L1赋值:D2 AND 取反 X1赋值:1日前的上次H1距今天数+1 F1赋值:若H1ANDCOUNT(L1,X1)>0则将最近X1日内如果L1,返回最低价,否则返回10000距今天数周期置为1 G1赋值:F1>1日前的F1 I1赋值:若G1则将最近2周期置为1 LD赋值:I1>1日前的I1 L2赋值:LD OR 数据位置状态=2 OR 收盘价的有效数据周期数=1 X2赋值:1日前的上次L2距今天数+1 F2赋值:若L2ANDCOUNT(H2,X2)>0则将最近X2日内如果H2,返回最高价,否则返回0距今天数周期置为1 G2赋值:F2>1日前的F2 I2赋值:若G2则将最近2周期置为1 HD赋值:I2>1日前的I2 当满足条件LD时,在最低价位置画直线起点，当满足条件HD时,在最高价位置画直线终点,0表示是否延长.,画白色,线宽为1,POINTDOT 当满足条件HD时,在最高价位置画直线起点，当满足条件LD时,在最低价位置画直线终点,0表示是否延长.,画白色,线宽为1,POINTDOT J1赋值:若数据位置状态=2则将最近上次HD距今天数和上次LD距今天数的较小值+1周期置为1 J2赋值:J1>1日前的J1 当满足条件J2时,在如果HD,返回最高价,否则返回最低价位置画直线起点，当满足条件数据位置状态=2时,在如果上次HD距今天数>上次LD距今天数,返回最高价,否则返回最低价位置画直线终点,0表示是否延长.,画白色,线宽为1,POINTDOT A3赋值:最高价 B3赋值:1日前的上次HD距今天数+1日前的最高价>1日前的上次HD距今天数+2+1日前的上次HD距今天数+2日前的上次HD距今天数日前的最高价 D3赋值:A3 AND B3 AND HD E3赋值:若D3则将最近1日前的上次HD距今天数+2周期置为1 HH赋值:E3>1日前的E3 A4赋值:最低价>1日前的上次LD距今天数+1日前的最低价 B4赋值:1日前的上次LD距今天数+1日前的最低价 D4赋值:A4 AND B4 AND LD E4赋值:若D4则将最近1日前的上次LD距今天数+2周期置为1 LL赋值:E4>1日前的E4 当满足条件HH时,在最高价位置画5号图标,ALIGN1 当满足条件LL时,在最低价位置画4号图标,ALIGN1 H3赋值:HH OR 数据位置状态=2 OR 收盘价的有效数据周期数=1 X3赋值:1日前的上次H3距今天数+1 F3赋值:若H3ANDCOUNT(LL,X3)>0则将最近X3日内如果LL,返回最低价,否则返回10的20乘幂距今天数周期置为1 G3赋值:F3>1日前的F3 I3赋值:若G3则将最近2周期置为1 LZ赋值:I3>1日前的I3 L4赋值:LZ OR 数据位置状态=2 OR 收盘价的有效数据周期数=1 X4赋值:1日前的上次L4距今天数+1 F4赋值:若L4ANDCOUNT(HH,X4)>0则将最近X4日内如果HH,返回最高价,否则返回-10的20乘幂距今天数周期置为1 G4赋值:F4>1日前的F4 I4赋值:若G4则将最近2周期置为1 HZ赋值:I4>1日前的I4 当满足条件HZ时,在最高价位置画直线起点，当满足条件LZ时,在最低价位置画直线终点,0表示是否延长.,画绿色,线宽为1 当满足条件LZ时,在最低价位置画直线起点，当满足条件HZ时,在最高价位置画直线终点,0表示是否延长.,画绿色,线宽为1 K1赋值:若数据位置状态=2则将最近上次HZ距今天数和上次LZ距今天数的较小值+1周期置为1 K2赋值:K1>1日前的K1 当满足条件K2时,在如果HZ,返回最高价,否则返回最低价位置画直线起点，当满足条件数据位置状态=2时,在收盘价位置画直线终点,0表示是否延长.,画绿色,线宽为1 UU赋值:若数据位置状态=2则将最近上次LD距今天数+1周期置为1 VV赋值:UU>1日前的UU WW赋值:若VV则将最近1日前的上次LD距今天数+2周期置为1 XX赋值:WW>1日前的WW 当满足条件XX时,在最低价位置画直线起点，当满足条件VV时,在最低价位置画直线终点,1表示是否延长.,画洋红色,线宽为1 UU2赋值:若数据位置状态=2则将最近上次HD距今天数+1周期置为1 VV2赋值:UU2>1日前的UU2 WW2赋值:若VV2则将最近1日前的上次HD距今天数+2周期置为1 XX2赋值:WW2>1日前的WW2 当满足条件XX2时,在最高价位置画直线起点，当满足条件VV2时,在最高价位置画直线终点,1表示是否延长.,画洋红色,线宽为1 输出前一低:上次VV距今天数日前的最低价,COLOR99FF66,POINTDOT,线宽为3 输出前二低:上次XX距今天数日前的最低价,COLORFF66FF,POINTDOT,线宽为3 输出前一高:上次VV2距今天数日前的最高价,COLOR99FF66,POINTDOT,线宽为3 输出前二高:上次XX2距今天数日前的最高价,COLORFF66FF,POINTDOT,线宽为3 短高赋值:上次VV2距今天数日前的最高价 短低赋值:上次VV距今天数日前的最低价 输出短比: (收盘价-短低)/(短高-短低),线宽为0 输出底:上次VV距今天数日前的最低价,画红色,线宽为2 输出頂:上次VV2距今天数日前的最高价,画绿色,线宽为2 当满足条件VV时,在頂和底位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFF6633,线宽为3 当满足条件VV2时,在最高价位置画直线起点，当满足条件VV时,在最低价位置画直线终点,0表示是否延长.,COLORFF6633,线宽为3 当满足条件VV2时,在最高价位置画直线起点，当满足条件VV时,在頂位置画直线终点,0表示是否延长.,COLORFF6633,线宽为3

 来源:程序化99（ WWW.CXH99.COM ）

源码：

DRAWGBKLAST(C>0,STRIP(RGB(90,90,90),RGB(0,0,0),0));

A1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
A2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
H2:=D1 AND NOT(D2 AND E1>=E2);
L1:=D2 AND NOT(D1 AND E1=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}
L2:=LD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
J1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),BARSTATUS=2,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
A3:=H; B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
A4:=L>REF(L,REF(BARSLAST(LD),1)+1);
B4:=REF(L,REF(BARSLAST(LD),1)+1); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
DRAWICON(HH,H,5),ALIGN1; DRAWICON(LL,L,4),ALIGN1;
H3:=HH OR BARSTATUS=2 OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1); {长期低点，也可供引用}
L4:=LZ OR BARSTATUS=2 OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1);{长期高点，也可供引用}
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1;
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
K1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
DRAWLINE(K2,IF(HZ,H,L),BARSTATUS=2,C,0),COLORGREEN,LINETHICK1; {最后的长期连线，连在收盘价上}
UU:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
UU2:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;
前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
短高:=REF(H,BARSLAST(VV2));
短低:=REF(L,BARSLAST(VV));
短比: (C-短低)/(短高-短低),LINETHICK0;

{以下语句为三角形部分}

底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;

{下迭三角形：藍色三角形畫完介入}
StickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
DRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}
DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}

{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】