指标编写问答117学习的宝藏

股友量

591.问:
      求助如何把技术指标改为选股指标
      VarF:=TROUGHBARS(3,15,1)<4;
      升跌:EMA((C/MA((2*C+H+L)/4,30)-1)*100,3)colorstick;
      PARTLINE(C,升跌)colorgreen;
      PARTLINE(C,0)colorred,linethick2;
      STICKLINE(FILTER(VarF=1,5),50,0,10,0)colorblue;
      DRAWICON(FILTER(VarF=1,5),50,1);
      DRAWTEXT(FILTER(VarF=1,5),25,'闪电出击')coloryellow;
      条件是“闪电出击'
     答( 简单·趋势 ):
       {闪电出击}
       VarF:=TROUGHBARS(3,15,1)<4;
       FILTER(VarF=1,5);
       看看是不是这个信号
    答(知无不言):
        VarF:TROUGHBARS(3,15,1)<4;
        用了ZIG类函数,未正确理解ZIG类函数的特点前,不要轻易根据信号进行交易。

592.问:
      编一个MACD选股公式，MACD的快线高于慢线，快线下跌，不跌破慢线上调，同时MACD的快线      和慢线都高于0轴，股价高于60日平均线。
     答(知无不言):
      diff:="macd.diff";
      dea:="macd.dea";
     c>ma(c,60)and diff>ref(diff,1)and ref(diff,1)<ref(diff,2)and dea>0 and diff>dea ;
                              

593.问:
     怎么样用分析家显示120分钟K线
     答(yyzzqq):
     用多日线。

594.问:
     下面是背离的主图,能不能帮我改一下错误,改成分析家的呀

MA3:MA(CLOSE,3);
MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA30:MA(CLOSE,30);
MA60:MA(CLOSE,60);
MA120:MA(CLOSE,120);
MA250:MA(CLOSE,250);
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(diff,dea),1));
B1:=REF(C,A1+1)>C AND REF(diff,A1+1)DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),colorgreen;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
k:=SMA(RSV,3,1);
d:=SMA(k,3,1);
A2:=BARSLAST(REF(CROSS(k,d),1));
B2:=REF(C,A2+1)>C AND REF(k,A2+1)DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),coloryellow;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)DRAWTEXT(IF(B3>0,1,0),L-0.4,'RSI底背'),colorcyan;
C1:=BARSLAST(REF(CROSS(dea,diff),1));
D1:=REF(C,C1+1)diff AND CROSS(dea,diff);
DRAWTEXT(IF(D1>0,1,0),H+0.1,'MACD顶背'),colorwhite;
C2:=BARSLAST(REF(CROSS(d,K),1));
D2:=REF(C,C2+1)k AND CROSS(d,K);
DRAWTEXT(IF(D2>0,1,0),H+0.25,'KDJ顶背'),colorwhite;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H+0.4,'RSI顶背'),colormagenta;
    答(yyzzqq):
      MA3:MA(CLOSE,3);
MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA30:MA(CLOSE,30);
MA60:MA(CLOSE,60);
MA120:MA(CLOSE,120);
MA250:MA(CLOSE,250);
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(diff,dea),1));
B1:=REF(C,A1+1)>C AND REF(diff,A1+1);
DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),colorgreen;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
k:=SMA(RSV,3,1);
d:=SMA(k,3,1);
A2:=BARSLAST(REF(CROSS(k,d),1));
B2:=REF(C,A2+1)>C AND REF(k,A2+1);DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),coloryellow;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1);DRAWTEXT(IF(B3>0,1,0),L-0.4,'RSI底背'),colorcyan;
C1:=BARSLAST(REF(CROSS(dea,diff),1));
D1:=REF(C,C1+1)>C AND CROSS(dea,diff);
DRAWTEXT(IF(D1>0,1,0),H+0.1,'MACD顶背'),colorwhite;
C2:=BARSLAST(REF(CROSS(d,K),1));
D2:=REF(C,C2+1)>C AND CROSS(d,K);
DRAWTEXT(IF(D2>0,1,0),H+0.25,'KDJ顶背'),colorwhite;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)>C AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H+0.4,'RSI顶背'),colormagenta;

595.问:
    谁能提供结构波浪公式原码
     答(无名山人):
     想要一样的在这.           (分析家公式)
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;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 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),coloryellow,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<REF(H,REF(BARSLAST(HD),1)+1);
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)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
D4:=A4 AND B4 AND LD;E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2);LL:=E4>REF(E4,1);{找出全部长期低点}
DRAWICON(HH,H,10),ALIGN1; DRAWICON(LL,L,12),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),COLORRED,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;
低一:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
一低:=低一>REF(低一,1);
低二:=BACKSET(一低,REF(BARSLAST(LD),1)+2);
二低:=低二>REF(低二,1);
DRAWLINE(二低,L,一低,L,1),COLORMAGENTA,LINETHICK1;
高一:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
一高:=高一>REF(高一,1);
高二:=BACKSET(一高,REF(BARSLAST(HD),1)+2);
二高:=高二>REF(高二,1);
DRAWLINE(二高,H,一高,H,1),COLORMAGENTA,LINETHICK1;
前一低:REF(L,BARSLAST (一低)),COLORYELLOW,POINTDOT,LINETHICK2;
前二低:REF(L,BARSLAST (二低)),COLORFF66FF,POINTDOT,LINETHICK2;
前一高:REF(H,BARSLAST(一高)),COLORFFEEBB,POINTDOT,LINETHICK2;
前二高:REF(H,BARSLAST(二高)),COLORFF0000,POINTDOT,LINETHICK2;
短高:= REF(H,BARSLAST(一高));
短低:= REF(L,BARSLAST(一低));
短比C-短低)/(短高-短低),LINETHICK0;
常数:=REF(INDEXC,BARSLAST(一低))/REF(C,BARSLAST(一低));
叠１:INDEXC/常数,color008eFF,LINETHICK0;
PARTLINE(叠１,1),color008eFF;
常数２:=REF(INDEXC,BARSLAST(二低))/REF(C,BARSLAST(二低));
叠２:INDEXC/常数２,color008eFF,LINETHICK0;
PARTLINE(叠２,1),color008eFF;
s:=NUMTOSTRN(DAYS1970-DATETOD1970(REF(DATE,BARSLAST(LD))),0);
s1:=NUMTOSTRN(DAYS1970-DATETOD1970(REF(DATE,BARSLAST(HD))),0);
s2:=NUMTOSTRN(H,2);
s3:=NUMTOSTRN(L,2);
{DRAWTEXT(HD,1.02*H,s),COLORGREEN;
DRAWTEXT(LD,0.98*L,s1),COLORRED;
DRAWTEXT(HD,H*(1+0.002),s2),COLORff9933,ALIGN0;
DRAWTEXT(LD,L*(1.001-0.002),s3),COLORYELLOW,ALIGN0;}
DRAWTEXT(D1,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORff9933;
DRAWTEXT(二高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(D2,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(二低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
var3:=(CLOSE+HIGH+LOW)/3;            
A:=EMA(var3,10);
B:=REF(A,1);
PARTLINE( B,A>B,RGB(255,0,0),A<B,RGB(0,255,0),1,RGB(0,0,255)),linethick2;
VAR1:=EMA(CLOSE,3);
VAR2:=EMA(CLOSE,8);
趋势:MA(CLOSE,5),COLORWHITE,LINETHICK2;
   答(冰绿茶12):
      新结构波浪 FXJ50用 附原码

{以下语句为FXJ50新结构波浪 n=2}
A1:=REF(HIGH,3)=HHV(HIGH,N*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高点}

A2:=REF(LOW,3)=LLV(LOW,N*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;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 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);{过滤后高点}
{以上语句为新结构波浪}

A3:=H<REF(H,REF(BARSLAST(HD),1)+1);
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)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
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);{长期高点，也可供引用}
{以下是十条趋势线原码}
低一:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
一低:=低一>REF(低一,1);
低二:=BACKSET(一低,REF(BARSLAST(LD),1)+2);
二低:=低二>REF(低二,1);
低三:=BACKSET(二低,REF(BARSLAST(LD),1)+2);
三低:=低三>REF(低三,1);
低四:=BACKSET(三低,REF(BARSLAST(LD),1)+2);
四低:=低四>REF(低四,1);
低五:=BACKSET(四低,REF(BARSLAST(LD),1)+2);
五低:=低五>REF(低五,1);
低六:=BACKSET(五低,REF(BARSLAST(LD),1)+2);
六低:=低六>REF(低六,1);
高一:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
一高:=高一>REF(高一,1);
高二:=BACKSET(一高,REF(BARSLAST(HD),1)+2);
二高:=高二>REF(高二,1);
高三:=BACKSET(二高,REF(BARSLAST(HD),1)+2);
三高:=高三>REF(高三,1);
高四:=BACKSET(三高,REF(BARSLAST(HD),1)+2);
四高:=高四>REF(高四,1);
高五:=BACKSET(四高,REF(BARSLAST(HD),1)+2);
五高:=高五>REF(高五,1);
高六:=BACKSET(五高,REF(BARSLAST(HD),1)+2);
六高:=高六>REF(高六,1);
前一低:REF(L,BARSLAST(一低)),COLORGREEN,POINTDOT,LINETHICK2;
前二低:REF(L,BARSLAST(二低)),COLORGREEN,POINTDOT,LINETHICK2;
前三低:REF(L,BARSLAST(三低)),COLORGREEN,POINTDOT,LINETHICK2;
前四低:REF(L,BARSLAST(四低)),COLORGREEN,POINTDOT,LINETHICK2;
前五低:REF(L,BARSLAST(五低)),COLORGREEN,POINTDOT,LINETHICK2;
前六低:REF(L,BARSLAST(六低)),COLORGREEN,POINTDOT,LINETHICK2;


前一高:REF(H,BARSLAST(一高)),COLORRED,POINTDOT,LINETHICK2;
前二高:REF(H,BARSLAST(二高)),COLORRED,POINTDOT,LINETHICK2;
前三高:REF(H,BARSLAST(三高)),COLORRED,POINTDOT,LINETHICK2;
前四高:REF(H,BARSLAST(四高)),COLORRED,POINTDOT,LINETHICK2;
前五高:REF(H,BARSLAST(五高)),COLORRED,POINTDOT,LINETHICK2;
前六高:REF(H,BARSLAST(六高)),COLORRED,POINTDOT,LINETHICK2;
DRAWLINE(二低,L,一低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(三低,L,二低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(四低,L,三低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(五低,L,四低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(六低,L,五低,L,1),COLORYELLOW,LINETHICK1;


DRAWLINE(二高,H,一高,H,1),COLORFF00FF,LINETHICK1;
DRAWLINE(三高,H,二高,H,1),COLORFF00FF,LINETHICK1;
DRAWLINE(四高,H,三高,H,1),COLORFF00FF,LINETHICK1;
DRAWLINE(五高,H,四高,H,1),COLORFF00FF,LINETHICK1;
DRAWLINE(六高,H,五高,H,1),COLORFF00FF,LINETHICK1;
DRAWTEXT(一低 or 二低 or 三低 or 四低 or 五低 or 六低 ,L*0.98,'.'),COLOR000000;
DRAWTEXT(一高 or 二高 or 三高 or 四高 or 五高 or 六高 ,H*1.02,'.'),COLOR000000;

DRAWTEXT(一高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(二高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(三高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(四高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(五高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(六高,H,NUMTOSTRN(BARSLAST(LD),0)+'天'+NUMTOSTRN(h,2)),ALIGN1,VALIGN2,COLORYELLOW;
DRAWTEXT(一低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(二低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(三低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(四低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(五低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;
DRAWTEXT(六低,L,NUMTOSTRN(BARSLAST(HD),0)+'天'+NUMTOSTRN(L,2)),ALIGN1,COLORYELLOW;