为大家无偿编写通达信公式

这个只能编写代码让它显示在主图或者副图上的``
[引用原文已无法访问]

鱼兄好！
我想在看盘窗口增加昨开盘、昨最高、昨最低能吗这样不用一只只去翻昨天的k线而节省时间。
现在的通达信和同花顺只有“昨收”。
谢谢！

[引用原文已无法访问]
不是通达信的,可能是飞狐或大智慧函数DRAWNUMBER(

哦，可惜，是有个函数，谢过鱼兄。

DRAWNUMBER(W,ZL,ZL,2),ALIGN2,COLORFFFF;

这句错在哪儿?

[引用原文已无法访问]
你这个MACD指标其实是引用chzhshch函数的数据,所以暂时无法解决

[引用原文已无法访问]
M1:=4;M2:=6;M3:=9;M4:=13;M5:=18;M6:=24;
PBX1:=(EXPMA(CLOSE,M1)+MA(CLOSE,M1*2)+MA(CLOSE,M1*4))/3;
PBX2:=(EXPMA(CLOSE,M2)+MA(CLOSE,M2*2)+MA(CLOSE,M2*4))/3;
PBX3:=(EXPMA(CLOSE,M3)+MA(CLOSE,M3*2)+MA(CLOSE,M3*4))/3;
PBX4:=(EXPMA(CLOSE,M4)+MA(CLOSE,M4*2)+MA(CLOSE,M4*4))/3;
PBX5:=(EXPMA(CLOSE,M5)+MA(CLOSE,M5*2)+MA(CLOSE,M5*4))/3;
PBX6:=(EXPMA(CLOSE,M6)+MA(CLOSE,M6*2)+MA(CLOSE,M6*4))/3; 
AAA:=MIN(MIN(MIN(MIN(MIN(PBX1,PBX2),PBX3),PBX4),PBX5),PBX6);
BBB:=MAX(MAX(MAX(MAX(MAX(PBX1,PBX2),PBX3),PBX4),PBX5),PBX6);
选股:O<AAA AND C>BBB;

下面这个也是根据缠论的一个分段的代码，请鱼兄参考
---------------------------------------------------------------
var1:="chzhshch@kxian";{处理K线包含、顶底等关系}

var2:="chzhshch@bi";{处理笔关系}

drawline(var2=1,h,var2=-1,l,0),pointdot,linethick1,colorwhite;

drawline(var2=-1,l,var2=1,h,0),pointdot,linethick1,colorwhite;

var3:="chzhshch@duan";{处理段关系}{处理完后调整高低点}

drawtext(var3=1,h,''+h),align2,colormagenta;

drawtext(var3=-1,l,''+l),colorgreen;

drawline(var3=1,h,var3=-1,l,0),linethick1,colorgreen;

drawline(var3=-1,l,var3=1,h,0),linethick1,colorgreen;

var4:="chzhshch@duan2";{高一级别的段}{处理完后不调整高低点}

drawline(var4=1,h,var4=-1,l,0),linethick2,colorred;

drawline(var4=-1,l,var4=1,h,0),linethick2,colorred;
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);{过滤后高点}

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);{找出全部长期低点}

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);{长期高点，也可供引用}

K1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);

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;

上面的几个对诸多小散会提供一个很好的拐杖，但是人是活的，更要能活学活用，适合自己的才是最好的，希望大伙能找到适合自己的交易系统。 
谢谢鱼兄多日来的辛劳。。

这个MACD的绿线很有用，在提示顶和底的参考作用很大，能否和下面这个MACD的结合起来？
（下面这段代码LZ在前面有过讨论）

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK3;
金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(金叉,0,0.10,20,0),COLORRED;
DRAWTEXT(金叉,0.10,' 金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));

二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.10,20,0),COLORYELLOW;
DRAWICON(二次金叉,DEA*0.9,1) ;
DRAWTEXT(二次金叉,0.20,' 二次金叉'),COLORRED,LINETHICK3;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.10,20,0),COLOR00FF00;
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK4;
DRAWTEXT(底背离,0.0,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));

顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORWHITE,LINETHICK4; 
DRAWTEXT(金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLORWHITE,LINETHICK2;

DRAWICON(CROSS(DEA,DIFF),DIFF,2);
----------------------------------------------------------------------------------------------------
上图的主图是根据缠中说禅的力量编辑的一个公式，代码如下，如果能在通达信也能实现就太好了。
var1:="chzhshch@kxian";
var2:="chzhshch@bi";
drawline(var2=1,h,var2=-1,l,0),pointdot,coloryellow;
drawline(var2=-1,l,var2=1,h,0),pointdot,coloryellow;
var3:="chzhshch@duan";
drawtext(var3=1,h,''+h),align2,colormagenta;
drawtext(var3=-1,l,''+l),colorgreen;
drawline(var3=1,h,var3=-1,l,0),linethick3,colorred;
drawline(var3=-1,l,var3=1,h,0),linethick3,colorred;

h1:=0;
X1:=BARSLAST(h1);