1.VB 修改一个股票行情监测脚本 到了预定的股票s股股价就启动程序a.exe
2.定义一个股票类Stock
3.求个高手把通达信指标改成选股公式红柱
4.两个点连线的股票公式

VB 修改一个股票行情监测脚本 到了预定的股价就启动程序a.exe

       以下是用于监控股票行情并启动指定程序的VB脚本。脚本通过定时刷新网页并读取股票代码，源码当股价满足特定条件时，股票s股自动执行预先设定的源码操作。

       首先，股票s股定义两个文件路径变量file1和file2。源码读junit源码

       点击按钮Command1时，股票s股若文本框Text2的源码值大于文本框Text1的值，脚本将执行file1指定的股票s股程序。反之，源码若文本框Text1的股票s股值小于文本框Text3的值，将执行file2指定的源码程序。

       按钮Command2用于导航至指定网页，股票s股调用WebBrowser1对象的源码Navigate方法实现。

       按钮Command3和Command4分别用于选择执行脚本时需要的股票s股文件路径，使用CommonDialog1对象的ShowOpen方法获取文件名。

       当程序启动时，设置定时器Timer1的间隔为6秒，每过6秒刷新WebBrowser1中的网页内容。

       当网页加载完成时，脚本会获取网页主体内文本，fba源码使用vbCrLf进行分割，获取并解析出股票代码和股价信息。当发现包含"代码："和".s"的文本块时，提取股票代码和价格，并更新显示。

       通过此脚本，用户可以实现对特定股票价格的实时监控，当价格达到预定阈值时自动执行指定操作，例如启动程序a.exe。

       以上内容仅为脚本的源码2021简化说明，实际使用中请根据需求调整代码细节。

定义一个股票类Stock

       å®šä¹‰è‚¡ç¥¨çš„类：

       åœ¨ç±»æ¨¡å—中输入下列代码。

       public symbol as string

       public name as string

       public currenprice as currency

       public sub 显示股票信息（）

       msgbox(symbol & vbcrlf & name & currency)

       end sub

       æ‰“印图案

       private sub print()

       dim x as string

       dim y as integer

       dim z as integer

       x=""

       for i=0 to 2

       y=2-i

       z=1+i*2

       for j=1 to y

       x=x & " "

       nex j

       for j=1 to z

       x=x & "#"

       next j

       x=x & vbcrlf

       next i

       msgbox(x)

       end sub

       æ²¡æœ‰çœ‹åˆ°ç¬¬8题，第7题与股票的问题类似。

       æœ¬ä¾‹æ˜¯ç”¨VB答复的，其他语言基本类似。

       åŽŸæ¥æ˜¯è¦Java的：

       public class Stock {

        private String symbol;

        private String name;

        private double currentPrice;

        public Stock(){

        }

        public void display(){

        System.out.println("(" + this.symbol + ")" + this.name + ":" + this.currentPrice);

        }

        public String getSymbol() {

        return symbol;

        }

        public void setSymbol(String symbol) {

        this.symbol = symbol;

        }

        public String getName() {

        return name;

        }

        public void setName(String name) {

        this.name = name;

        }

        public double getCurrentPrice() {

        return currentPrice;

        }

        public void setCurrentPrice(double currentPrice) {

        this.currentPrice = currentPrice;

        }

       }

求个高手把通达信指标改成选股公式红柱

       通达信指标改成选股公式红柱如下：

       VBB1:=TROUGHBARS(3，，1)VBB2:=PEAKBARS(3，，1)VBB3:=IF(VBB1=1，，0);

       VBB4:=IF(VBB2=1，，0);

       底部:=IF(VBB3=，欧美源码，0);

       头部:=IF(VBB4=，，);

       买入:IF(底部= AND REF(底部，1)= AND REF(底部，2)=0，-，-);

       

扩展资料：

       一、在做股票的过程当中，除了依靠通达信软件系统自带的轻度源码一些指标做参考外，还可以导入一些比较实用的指标，通信达软件导入指标方法如下：

       （以Think pad X 锐龙版笔记本电脑，Windows 操作为例）

       1、点击桌面通信达图标，进入；

       2、进入页面后，点击左上角的功能选项；

       3、然后点击公式系统，选择公式管理器；

       4、在弹出的小窗口中选择导入公式按钮；

       5、在出来的请选择导入公式文件，首先查找范围选桌面件类型选4.0版安全公式导出文件（*tni)，在中间找到要导入的凤凰琴指标，点击打开；

       6、然后从前面两个方框中“打上√”，再点击确定就可以了；

       7、导入完成的指标，就可以关掉——公式管理器的界面，然后直接在通达信的界面，键盘上输入凤凰琴的指标首字母FHQ点击回车，就可以调到盘面上。

       二、通达信软件以其它页面简单，操作方便的优势，赢得了不少客户的好评。软件本身也自带很多优秀的指标，在此介绍一下怎样自己添加指标的方法。

       （以Think pad X 锐龙版笔记本电脑，Windows 操作为例）

       1、首先打开通达信软件，在页面的左上角，点击——功能——专家系统——公式管理器——技术指标公式——新建——公式名称（可以根据自己的喜好设置自己喜欢的名字，比如：赢在龙头）——在空白处降所复制的源码粘贴下来——选择主图（副图）——确定；

       2、回到软件中，假如说你刚才所编写的指标的名称是赢在龙头。输入YZLT——回车，就可以看到自己所编写的公式的图示了；

       注意：有些指标的添加的是需要参数的，因此需要将参数设置一下。

       3、条件选股公式的输入是这样的。首先打开通达信软件，在页面的左上角，点击——功能——专家系统——公式管理器——条件选股公式——新建——公式名称——在空白处降所复制的源码粘贴下来——确定；

       4、怎样调用选股公式

       功能——条件选股——条件选股公式的名称——加入条件——选股入板块——执行选股。

两个点连线的股票公式

       æˆ‘有这个公式。

       input: k(2,0,2),n(,1,),p1(3,1,);

       BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,)+MA(CLOSE,))/4,pointdot,COLORFFFFFF;

       BBI2:BBI+3*STD(BBI,),pointdot,COLORmagenta;

       BBI3:BBI-3*STD(BBI,),pointdot,COLORblue;

       B1:=MA(CLOSE,1);

       B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1) ;

       SMA2:=MA(B2,3) ;

       FILLRGN(b2,sma2,b2>sma2),colorred;

       FILLRGN(b2,sma2,b2<sma2),colorgreen;

       var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) 

       or ref(c,1)=hhv(c,4) and close>=ref(c,2) 

       or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) 

       or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);

       çº¢æŒ:var9Q,colorff,LINETHICK0;

       varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);

       ç²‰å˜:varaQ,colorffff,LINETHICK0;

       varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) 

       or ref(c,1)=llv(c,4) and c<ref(c,2) 

       or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) 

       or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);

       ç°è·Œ:varbQ,color,LINETHICK0;

       varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) 

       and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);

       ç»¿ä¹°:varcQ,colorff,LINETHICK0;

       vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) 

       or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) 

       or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) 

       and ref(c,2)>=ref(c,4) and c<ref(c,1);

       è“æŠ›:vardQ,colorff,LINETHICK0;

       if DATATYPE>1 then begin;

       xxx1:=(C+L+H)/3;

       xxx2:EMA(xxx1,6),colorFFFFFF,linethick1;

       xxx3:EMA(xxx2,5),colorFFFF,linethick1;

       VAR:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);

       VAR:=CROSS(VAR,0.9);

       VAR:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);

       VAR:=CROSS(VAR,0.9);

       åŽ‹åŠ›: REF(HIGH,BARSLAST(Var)), POINTDOT,ColorEAB5;

       STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var)),REF(HIGH,BARSLAST(Var)),5,0),ColorEAB5;

       æ”¯æ’‘: REF(LOW,BARSLAST(Var)), POINTDOT,Colorb4ff;

       STICKLINE(CLOSE,REF(LOW,BARSLAST(Var)),REF(LOW,BARSLAST(Var)),5,0),Colorb4ff;

       ä¸‹æ¡£çº¿:=(((CLOSE - LLV(LOW,)) / (HHV(HIGH,) - LLV(LOW,))) * );

       aRSV:=SMA(下档线,3,1);

       aK:=SMA(aRSV,3,1);

       aD:=((3 * aRSV) - (2 * aK));

       aJ:=(((CLOSE - LLV(LOW,)) / (HHV(HIGH,) - LLV(LOW,))) * );

       aRSV:=SMA(aJ,3,1);

       aK:=SMA(aRSV,3,1);

       aD:=((3 * aRSV) - (2 * aK));

       æ’‘压位:=IF(CROSS(aD,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD,aD)))){ ,LINETHICK2,COLORFFFFFF};

       åº•:=LLV(HIGH,){ ,COLORFF,LINETHICK2};

       STICKLINE(BARSTATUS=2 ,撑压位,撑压位,,1),LINETHICK1,COLORFFFFFF;

       DRAWTEXT(BARSTATUS=2 ,撑压位,'    æ’‘压'),COLORFFFFFF,VALIGN1;

       STICKLINE(BARSTATUS=2 ,底,底,,1),COLORFF,LINETHICK1;

       DRAWTEXT(BARSTATUS=2 ,底,'    åº•çº¿'),COLORFF,VALIGN0;

       END;

       STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLORFF; 

       STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLORFF;

       STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLORFF; 

       STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLORFF;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee;

       STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORbb;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORdd;

       STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORff;

            stickline(var9Q,c,(o+c)/2,7,0),color;

            stickline(var9Q,c,(o+c)/2,6,0),color;

            stickline(var9Q,c,(o+c)/2,5,0),coloraa;

            stickline(var9Q,c,(o+c)/2,4,0),colorcc;

            stickline(var9Q,c,(o+c)/2,2,0),colorff;

            stickline(var9Q,c,(o+c)/2,0,0),COLORffffff;

            stickline(varaQ,c,(o+c)/2,7,0),colorffff;

            stickline(varaQ,c,(o+c)/2,6,0),colorffff;

            stickline(varaQ,c,(o+c)/2,5,0),colorffff;

            stickline(varaQ,c,(o+c)/2,4,0),colorffff;

            stickline(varaQ,c,(o+c)/2,3,0),colorffff;

            stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;

            stickline(varaQ,c,(o+c)/2,1,0),colorffddff;

            stickline(varbQ,c,(o+c)/2,7,0),color;

            stickline(varbQ,c,(o+c)/2,6,0),color;

            stickline(varbQ,c,(o+c)/2,5,0),color;

            stickline(varbQ,c,(o+c)/2,4,0),color;

            stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;

            stickline(varbQ,c,(o+c)/2,2,0),colordddddd;

            stickline(varbQ,c,(o+c)/2,1,0),colorffffff;

            stickline(varcQ,o,(o+c)/2,7,0),color;

            stickline(varcQ,o,(o+c)/2,6,0),color;

            stickline(varcQ,o,(o+c)/2,5,0),color;

            stickline(varcQ,o,(o+c)/2,4,0),color;

            stickline(varcQ,o,(o+c)/2,3,0),colorbb;

            stickline(varcQ,o,(o+c)/2,2,0),colordd;

            stickline(varcQ,o,(o+c)/2,1,0),colorff; 

            

            stickline(vardQ,o,(o+c)/2,7,0),colorff;

            stickline(vardQ,o,(o+c)/2,6,0),colorff;

            stickline(vardQ,o,(o+c)/2,5,0),colorff;

            stickline(vardQ,o,(o+c)/2,4,0),colorff;

            stickline(vardQ,o,(o+c)/2,3,0),colorff;

            stickline(vardQ,o,(o+c)/2,2,0),colorffbb;

            stickline(vardQ,o,(o+c)/2,1,0),colorffdd;

       V7:=BARSTATUS=2;

       V8:=(REF(HIGH,n) = HHV(HIGH,((2 * n) + 1)));

       V9:=FILTER(V8,n);

       VA:=BACKSET(V9,(n + 1));

       VB:=FILTER(VA,n);

       VC:=(VB OR V7);

       VD:=(REF(LOW,n) = LLV(LOW,((2 * n) + 1)));

       VE:=FILTER(VD,n);

       VF:=BACKSET(VE,(n + 1));

       V:=FILTER(VF,n);

       V:=(V AND NOT(VB));

       V:=BACKSET(VC,(REF(BARSLAST(V),1) + 1));

       V:=(V > REF(V,1));

       V:=BACKSET(V,2);

       V:=(V > REF(V,1));

       V:=BACKSET((V AND (COUNT(VC,(REF(BARSLAST(V),1) + 2)) = 0)),(REF(BARSLAST(V),1) + 2));

       V:=(V > REF(V,1));

       V:=BACKSET((V AND (COUNT(VC,(REF(BARSLAST(V),1) + 2)) = 0)),(REF(BARSLAST(V),1) + 2));

       V:=(V > REF(V,1));

       V1A:=IF(VC,COUNT(V,(REF(BARSLAST(VC),1) + 1)),0);

       V1B:=IF(((V1A = 1) AND VC),BARSLAST(V),0);

       V1C:=IF((VC AND (REF(LOW,BARSLAST(V)) >= REF(LOW,BARSLAST(V)))),BARSLAST(V),BARSLAST(V));

       V1D:=IF(((V1A = 2) AND VC),V1C,0);

       V1E:=IF(((V1A >= 3) AND VC),IF((VC AND (REF(LOW,V1C) >= REF(LOW,BARSLAST(V)))),BARSLAST(V),V1C),0);

       V1F:=((V1B + V1D) + V1E);

       V:=BACKSET(VC,V1F);

       V:=(V > REF(V,1));

       V:=BACKSET(V,2);

       V:=(V > REF(V,1));

       V:=(V OR V7);

       V:=BACKSET(V,(REF(BARSLAST(VC),1) + 1));

       V:=(V > REF(V,1));

       V:=BACKSET(V,2);

       V:=(V > REF(V,1));

       V:=BACKSET((V AND (COUNT(V,(REF(BARSLAST(VC),1) + 2)) = 0)),(REF(BARSLAST(VC),1) + 2));

       V2A:=(V > REF(V,1));

       V2B:=BACKSET((V2A AND (COUNT(V,(REF(BARSLAST(VC),1) + 2)) = 0)),(REF(BARSLAST(VC),1) + 2));

       V2C:=(V2B > REF(V2B,1));

       V2D:=IF(V,COUNT(VB,(REF(BARSLAST(V),1) + 1)),0);

       V2E:=IF(((V2D = 1) AND V),BARSLAST(V),0);

       V2F:=IF((V AND (REF(HIGH,BARSLAST(V)) <= REF(HIGH,BARSLAST(V2A)))),BARSLAST(V2A),BARSLAST(V));

       V:=IF(((V2D = 2) AND V),V2F,0);

       V3B:=IF(((V2D >= 3) AND V),IF((V AND (REF(HIGH,V2F) <= REF(HIGH,BARSLAST(V2C)))),BARSLAST(V2C),V2F),0);

       V3C:=((V2E + V) + V3B);

       V3D:=BACKSET(V,V3C);

       V3E:=(V3D > REF(V3D,1));

       AA:=BACKSET(V3E,2);

       AAA:=(AA > REF(AA,1));

       BB:=BACKSET(V7,(BARSLAST(AAA) + 1));

       CC1:=(BB > REF(BB,1));

       CC:=BACKSET(CC1,(REF(BARSLAST(AAA),1) + 2));

       AAA2:=(CC > REF(CC,1));

       DRAWLINE(K=1 AND AAA2,HIGH,K=1 AND CC1,HIGH,1),POINTDOT,colorAAAA;

       BB2:=(REF(HIGH,4) = HHV(HIGH,((2 * 4) + 1)));

       CC:=FILTER(BB2,4);

       CC2:=BACKSET(CC,(4 + 1));

       EA:=FILTER(CC2,4);

       EB:=(EA OR BARSTATUS=2);

       A6:=(REF(LOW,4) = LLV(LOW,((2 * 4) + 1)));

       EE:=FILTER(A6,4);

       FF1:=BACKSET(EE,(4 + 1));

       EE2:=FILTER(FF1,4);

       FF2:=(EE2 AND NOT(EA));

       EE3:=BACKSET(EB,(REF(BARSLAST(FF2),1) + 1));

       FF3:=(EE3 > REF(EE3,1));

       JS:=BACKSET(FF3,2);

       G1:=(JS > REF(JS,1));

       GA:=BACKSET((G1 AND (COUNT(EB,(REF(BARSLAST(FF2),1) + 2)) = 0)),(REF(BARSLAST(FF2),1) + 2));

       G2:=(GA > REF(GA,1));

       G3:=BACKSET((G2 AND (COUNT(EB,(REF(BARSLAST(FF2),1) + 2)) = 0)),(REF(BARSLAST(FF2),1) + 2));

       GG:=(G3 > REF(G3,1));

       JA:=IF(EB,COUNT(FF2,(REF(BARSLAST(EB),1) + 1)),0);

       JB:=IF(((JA = 1) AND EB),BARSLAST(G1),0);

       JJ:=IF((EB AND (REF(LOW,BARSLAST(G1)) >= REF(LOW,BARSLAST(G2)))),BARSLAST(G2),BARSLAST(G1));

       LD:=IF(((JA = 2) AND EB),JJ,0);

       LD1:=IF(((JA >= 3) AND EB),IF((EB AND (REF(LOW,JJ) >= REF(LOW,BARSLAST(GG)))),BARSLAST(GG),JJ),0);

       HEA:=((JB + LD) + LD1);

       HEB:=BACKSET(EB,HEA);

       HEE:=(HEB > REF(HEB,1));

       HFF1:=BACKSET(HEE,2);

       HEE2:=(HFF1 > REF(HFF1,1));

       HFF2:=(HEE2 OR BARSTATUS=2);

       HEE3:=BACKSET(HFF2,(REF(BARSLAST(EB),1) + 1));

       HFF3:=(HEE3 > REF(HEE3,1));

       HJS:=BACKSET(HFF3,2);

       HG1:=(HJS > REF(HJS,1));

       HGA:=BACKSET((HG1 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) + 2)) = 0)),(REF(BARSLAST(EB),1) + 2));

       HG2:=(HGA > REF(HGA,1));

       HG3:=BACKSET((HG2 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) + 2)) = 0)),(REF(BARSLAST(EB),1) + 2));

       HGG:=(HG3 > REF(HG3,1));

       HJA:=IF(HFF2,COUNT(EA,(REF(BARSLAST(HFF2),1) + 1)),0);

       HJB:=IF(((HJA = 1) AND HFF2),BARSLAST(HG1),0);

       HJJ:=IF((HFF2 AND (REF(HIGH,BARSLAST(HG1)) <= REF(HIGH,BARSLAST(HG2)))),BARSLAST(HG2),BARSLAST(HG1));

       HD:=IF(((HJA = 2) AND HFF2),HJJ,0);

       X1:=IF(((HJA >= 3) AND HFF2),IF((HFF2 AND (REF(HIGH,HJJ) <= REF(HIGH,BARSLAST(HGG)))),BARSLAST(HGG),HJJ),0);

       X2:=((HJB + HD) + X1);

       Y1:=BACKSET(HFF2,X2);

       Y2:=(Y1 > REF(Y1,1));

       Z1:=BACKSET(Y2,2);

       Z2:=(Z1 > REF(Z1,1));

       UU:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) + 1));

       VV:=(UU > REF(UU,1));

       WW:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) + 1));

       XX:=(WW > REF(WW,1));

       UU2:=IF((BARSLAST(VV) < BARSLAST(XX)),VV,XX);

       VV2:=IF((BARSLAST(VV) < BARSLAST(XX)),LOW,HIGH);

       DRAWLINE(K=1 AND UU2,VV2,K=1 AND BARSTATUS=2,CLOSE,0),POINTDOT,colorFF;

       WW2:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) + 1));

       XX2:=(WW2 > REF(WW2,1));

       VAR:=BACKSET(XX2,(REF(BARSLAST(HEE2),1) + 2));

       VAR:=(VAR > REF(VAR,1));

       DRAWLINE(K=1 AND VAR,LOW, K=1 AND XX2,LOW,1),POINTDOT,colorffff;

       VAR:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) + 1));

       VAR:=(VAR > REF(VAR,1));

       VAR:=BACKSET(VAR,(REF(BARSLAST(Z2),1) + 2));

       VAR:=(VAR > REF(VAR,1));

       DRAWLINE(K=1 AND VAR,HIGH, K=1 AND VAR,HIGH,1),POINTDOT,colorffff;

       wN:=p1;{ 原码 N:=3;}

       wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN+1); wD1:=FILTER(wC1,wN);{ 高点}

       wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1); wD2:=FILTER(wC2,wN);{ 低点}

       wE1:=(REF(LLV(L,2*wN),1)+REF(HHV(H,2*wN),1))/2; wE2:=(H+L)/2;{ 高低点出现在同一K线上时可作取舍}

       wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1;

       wL1:=(wD2 AND NOT(wD1 AND wE1<wE2));  wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);

       wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,),wX1));

       wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1);{ 过滤后低点}

       wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1;

       wX2:=REF(BARSLAST(wL2),1)+1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2));

       wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1);{ 过滤后高点}

       wR1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD)+1); wS1:=wR1>REF(wR1,1); { 前一高}

       wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1); { 前一低}

       wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1); { 前二高}

       wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT2>REF(wT2,1); { 前二低}

       wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1)+2); wU3:=wT3>REF(wT3,1); { 前三低}

       wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1)+2); wU4:=wT4>REF(wT4,1); { 前四低}

       wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1)+2); wS3:=wR3>REF(wR3,1); { 前三高}

       wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1)+2); wS4:=wR4>REF(wR4,1); { 前四高}

       DRAWLINE(K=2 AND wS2,H,K=2 AND wS1,H,1),Color; { ★压力1:}         

       DRAWLINE(K=2 AND wU2,L,K=2 AND wU1,L,1),POINTDOT,Color;{ ★支撑1:}

       DRAWLINE(K=2 AND wS3,H,K=2 AND wS2,H,1),Color; { ★压力2:}

       DRAWLINE(K=2 AND wU3,L,K=2 AND wU2,L,1),POINTDOT,Color;{ ★支撑2:}         

       DRAWLINE(K=2 AND wS4,H,K=2 AND wS3,H,1),ColorCC;{ ★压力3:}

       DRAWLINE(K=2 AND wU4,L,K=2 AND wU3,L,1),POINTDOT,ColorCC;{ ★支撑3:};

       åº•:=SUM(MA(CLOSE,),9)/.;

       DRAWTEXT(CROSS(LOW,底) AND REF(底,1)>REF(HIGH,1) OR CROSS(HIGH,底),0.*CLOSE,'---铁底'),colorFF;

       X1:=(3*CLOSE+HIGH+LOW+OPEN)/6;

       X2:=EMA(X1,);

       X3:=REF(X2,1);

       X4:=(REF(HIGH,1)+REF(LOW,1))/2;

       X5:=MA(CLOSE,)+2*STD(CLOSE,);

       X6:=REF(CLOSE,1);

       X7:=(SMA(MAX(CLOSE-X6,0),7,1))/(SMA(ABS(CLOSE-X6),7,1))*;

       X8:=CROSS(,X7);

       X9:=FILTER(X8,4);

       WZ1:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);

       WZ2:=POW(MA(LOW,5),2)+MA(LOW,5);

       WZ3:=POW(MA(HIGH,5),2)+MA(HIGH,5);

       WZ4:=(WZ1-LLV(WZ2,9))/(HHV(WZ3,9)-LLV(WZ2,9))*+;

       DK:=SMA(WZ4,3,1)*1.5;

       DD:=SMA(DK,3,1);

       DJ:=3*DK-2*DD;

       WZ5:=EMA(CLOSE,)-EMA(CLOSE,);

       WZ6:=EMA(WZ5,9);

       WZ7:=2*(WZ5-WZ6);

       WZ8:=REF(WZ7,1);

       WZ9:=CROSS(WZ8,WZ7) AND WZ8>0;

       VAR1T:=EMA(CLOSE,8);

       VAR2T:=EMA(VAR1T,);

       VAR3T:=CROSS(VAR1T,VAR2T);

       VAR4T:=VAR1T<MA(CLOSE,);

       VAR5T:=(HHV(HIGH,)-CLOSE)/(HHV(HIGH,)-LLV(LOW,))*;

       VAR6T:=SMA(VAR5T,5,1);

       VAR7T:=SMA(VAR6T,8,1);

       VAR8T:=CROSS(VAR6T,VAR7T) AND VAR7T<;

       VAR9T:=CLOSE>LLV(CLOSE,)+0.3*LLV(CLOSE,) AND VAR8T;

       VARA:=IF(CLOSE>,VAR8T,VAR9T);

       èµ·æ­¥:=VAR3T AND VAR4T;

       é€ƒé:=VARA;

       XL1:=EMA(CLOSE,)/;

       XL2:=MA((XL1-REF(XL1,))/REF(XL1,),3)*;

       XL3:=MA(XL2,3);

       XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*,3,1);

       DRAWTEXT(IF(CROSS(3*XL4-2*SMA(XL4,3,1),8),,0) AND X2>X3,LOW-0.1,'←反弹'),colorred;

       DRAWTEXT(IF(CROSS((VAR1T-LLV(VAR1T,4))/(HHV(VAR1T,4)-LLV(VAR1T,4))*4*,.5) AND VAR1T<,,0) AND X2>X3,LOW-0.,'←短买'),colorFFFF;

       DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,)-EMA((CLOSE*2+HIGH+LOW)/4,)-(EMA(EMA((CLOSE*2+HIGH+LOW)/4,)-EMA((CLOSE*2+HIGH+LOW)/4,),2)))*5.8,0.),LOW,0) AND X2>X3,LOW-0.2,'←加仓'),colorFF5ED8;

       DRAWTEXT(CROSS(X4,X5),HIGH*1.,'←减'),colorFF;

       DRAWTEXT(FILTER((WZ9 AND DJ>) OR X9 ,5),HIGH*1.,'←跑'),colorBCFF8B;

       STICKLINE(èµ·æ­¥>0,HIGH,LOW,0.8,0),colorFFFF;

       STICKLINE(èµ·æ­¥>0,OPEN,CLOSE,5,0),colorFFFF;

       DRAWTEXT(逃遁>0,HIGH*1.,'●←逃'),color7FFFD6;

       sam:=(C+L+H)/3;

       BB:=ATAN(EMA(sam,)-REF(EMA(sam,),1))*3.*;

       EMA8:=EMA(C,8);

       DRAWTEXT(FILTER(BB>1 AND EMA(sam,)>REF(EMA(sam,8),1),),

       EMA8,'∠上升'),COLORWHITE;

       VAR3aa:=IF((CLOSE>REF(CLOSE,1)),,0);

       VAR4aa:=IF(((CLOSE)/(REF(CLOSE,1))>1.) AND ((HIGH)/(CLOSE)<1.) AND (VAR3aa>0),,0);

       DRAWTEXT(FILTER((VAR4aa>),),(LOW)*(0.),'★大胆搏 '),ColorFFFF;

       L:=MA(*(CLOSE-LLV(CLOSE,))/(HHV(HIGH,)-LLV(LOW,)),5)-;

       L:=(HIGH+LOW+CLOSE)/3;

       L:=(L-MA(L,))/(0.*AVEDEV(L,));

       L:=(L-MA(L,))/(0.*AVEDEV(L,));

       L:=IF(L>= AND L< AND L>= AND L<,,0);

       L:=IF(L<=- AND L>- AND L<=- AND L>-,-,L);

       L:=-ABS((CLOSE-MA(CLOSE,))/MA(CLOSE,)*);

       L:=IF(L<,L,);

       L:=IF(L>0,L,0);

       XL1:=(IF(L>= AND L>=,,IF(L<=- AND L<=-,-,L)))+;

       XL2:=L> AND XL1> AND L<;

       DRAWTEXT(XL2 AND COUNT(XL2,)=1,l,'大笔成交'),colorFFFF;

       MTM:=C-REF(C,1);

       DX:=*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);

       ä¹°:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);

       DRAWTEXT(filter(ä¹°=1,5),LOW-0.3,'▲拉升'),Colormagenta;