今天翻看自己的指标库,看到短线游子的【压力预测】有意思,自己改了测量涨幅,不会编指标,但也喜欢动手 
测量跌幅 
DRAWGBK((CLOSE > 0),COLORRGB(0,0,0),COLORRGB(0,0,0),1); 
KLINE(O,H,L,C,0); 
AB:=SYSPARAM(1); 
BB:=SYSPARAM(3); 
D:=(BB - AB); 
DA:=BACKSET(ISLASTBAR,HHVBARS(H,(D+1))+1);  
高点:=COUNT(DA,(D+1))=1;{高点位置} 
ll:=hhv(H,(D + 1)); 
最高:ll[BB],COLORred,LINETHICK0; 
x1:=最高*(1-0.02); 
x2:=最高*(1-0.04); 
x3:= 最高*(1-0.06); 
x4:= 最高*(1-0.08); 
x5:= 最高*(1-0.10); 
x6:= 最高*(1-0.12); 
x7:= 最高*(1-0.14); 
x8:= 最高*(1-0.16); 
x9:=最高*(1-0.18); 
x10:=最高*(1-0.20); 
x11:= 最高*(1-0.22); 
x12:= 最高*(1-0.24); 
x13:= 最高*(1-0.26); 
x14:= 最高*(1-0.28); 
x15:= 最高*(1-0.30); 
x16:= 最高*(1-0.32); 
x17:=最高*(1-0.34); 
x18:=最高*(1-0.36); 
x19:= 最高*(1-0.38); 
x20:= 最高*(1-0.40); 
x21:= 最高*(1-0.42); 
x22:= 最高*(1-0.44); 
x23:= 最高*(1-0.46); 
x24:= 最高*(1-0.48); 
DRAWLINE(高点,最高, ISLASTBAR,REF(最高,1),0),Color939300,LINEDOT;  
B1:DRAWLINE(高点,x1,ISLASTBAR,REF(x1,1),0),Color008080,LINEDOT;  
B2:DRAWLINE(高点,x2,ISLASTBAR,REF(x2,1),0),Color939300,LINEDOT;  
B3:DRAWLINE(高点,x3,ISLASTBAR,REF(x3,1),0),Color008080,LINEDOT;  
B4:DRAWLINE(高点,x4,ISLASTBAR,REF(x4,1),0),Color939300,LINEDOT;  
B5:DRAWLINE(高点,x5,ISLASTBAR,REF(x5,1),0),Color008080,LINEDOT; 
B6:DRAWLINE(高点,x6,ISLASTBAR,REF(x6,1),0),Color939300,LINEDOT;  
B7:DRAWLINE(高点,x7,ISLASTBAR,REF(x7,1),0),Color008080,LINEDOT;  
B8:DRAWLINE(高点,x8,ISLASTBAR,REF(x8,1),0),Color939300,LINEDOT;  
B9:DRAWLINE(高点,x9,ISLASTBAR,REF(x9,1),0),Color008080,LINEDOT;  
B10:DRAWLINE(高点,x10,ISLASTBAR,REF(x10,1),0),Color939300,LINEDOT;  
B11:DRAWLINE(高点,x11,ISLASTBAR,REF(x11,1),0),Color008080,LINEDOT;  
B12:DRAWLINE(高点,x12,ISLASTBAR,REF(x12,1),0),Color939300,LINEDOT;  
B13:DRAWLINE(高点,x13,ISLASTBAR,REF(x13,1),0),Color008080,LINEDOT; 
B14:DRAWLINE(高点,x14,ISLASTBAR,REF(x14,1),0),Color939300,LINEDOT;  
B15:DRAWLINE(高点,x15,ISLASTBAR,REF(x15,1),0),Color008080,LINEDOT;  
B16:DRAWLINE(高点,x16,ISLASTBAR,REF(x16,1),0),Color939300,LINEDOT;  
B17:DRAWLINE(高点,x17,ISLASTBAR,REF(x17,1),0),Color008080,LINEDOT;  
B18:DRAWLINE(高点,x18,ISLASTBAR,REF(x18,1),0),Color939300,LINEDOT;  
B19:DRAWLINE(高点,x19,ISLASTBAR,REF(x19,1),0),Color008080,LINEDOT;  
B20:DRAWLINE(高点,x20,ISLASTBAR,REF(x20,1),0),Color939300,LINEDOT;  
B21:DRAWLINE(高点,x21,ISLASTBAR,REF(x21,1),0),Color008080,LINEDOT; 
B22:DRAWLINE(高点,x22,ISLASTBAR,REF(x22,1),0),Color939300,LINEDOT;  
B23:DRAWLINE(高点,x23,ISLASTBAR,REF(x23,1),0),Color008080,LINEDOT;  
B24:DRAWLINE(高点,x24,ISLASTBAR,REF(x24,1),0),Color939300,LINEDOT;  
VERTLINE(高点),COLORRED,LINETHICK1; 
DRAWTEXT(高点,REF(最高*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 最高价 '+NUMTOSTR(最高,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x1*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 2%:'+NUMTOSTR(x1,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x2*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 4%:'+NUMTOSTR(x2,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x3*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 6%:'+NUMTOSTR(x3,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x4*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 8%:'+NUMTOSTR(x4,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x5*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 10%:'+NUMTOSTR(x5,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x6*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 12%:'+NUMTOSTR(x6,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x7*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 14%:'+NUMTOSTR(x7,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x8*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 16%:'+NUMTOSTR(x8,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x9*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 18%:'+NUMTOSTR(x9,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x10*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 20%:'+NUMTOSTR(x10,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x11*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 22%:'+NUMTOSTR(x11,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x12*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 24%:'+NUMTOSTR(x12,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x13*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 26%:'+NUMTOSTR(x13,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x14*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 28%:'+NUMTOSTR(x14,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x15*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 30%:'+NUMTOSTR(x15,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x16*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 32%:'+NUMTOSTR(x16,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x17*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 34%:'+NUMTOSTR(x17,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x18*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 36%:'+NUMTOSTR(x18,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x19*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 38%:'+NUMTOSTR(x19,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x20*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 40%:'+NUMTOSTR(x20,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x21*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 42%:'+NUMTOSTR(x21,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x22*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 44%:'+NUMTOSTR(x22,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x23*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 46%:'+NUMTOSTR(x23,2)+'元'),ALIGN1,Color838383,PXUP35; 
DRAWTEXT(高点,REF(x24*0.996,BARSLAST(BARSCOUNT(C)=AB)),' 48%:'+NUMTOSTR(x24,2)+'元'),ALIGN1,Color838383,PXUP35; 
测量涨幅 
{【压力预测线】} 
DRAWGBK((CLOSE > 0),COLORRGB(0,0,0),COLORRGB(0,0,0),1); 
KLINE(O,H,L,C,0); 
AB:=SYSPARAM(1); 
BB:=SYSPARAM(3); 
D:=(BB - AB); 
DA:=BACKSET(ISLASTBAR,LLVBARS(L,(D+1))+1);  
低点:=COUNT(DA,(D+1))=1;{低点位置} 
ll:=llv(L,(D + 1)); 
最低:ll[BB],COLORred,LINETHICK0; 
x1:=最低*(1+0.02); 
x2:=最低*(1+0.04); 
x3:= 最低*(1+0.06); 
x4:= 最低*(1+0.08); 
x5:= 最低*(1+0.10); 
x6:= 最低*(1+0.12); 
x7:= 最低*(1+0.14); 
x8:= 最低*(1+0.16); 
x9:=最低*(1+0.18); 
x10:=最低*(1+0.20); 
x11:= 最低*(1+0.22); 
x12:= 最低*(1+0.24); 
x13:= 最低*(1+0.26); 
x14:= 最低*(1+0.28); 
x15:= 最低*(1+0.30); 
x16:= 最低*(1+0.32); 
x17:=最低*(1+0.34); 
x18:=最低*(1+0.36); 
x19:= 最低*(1+0.38); 
x20:= 最低*(1+0.40); 
x21:= 最低*(1+0.42); 
x22:= 最低*(1+0.44); 
x23:= 最低*(1+0.46); 
x24:= 最低*(1+0.48); 
DRAWLINE(低点,最低, ISLASTBAR,REF(最低,1),0),Color939300,LINEDOT;  
B1:DRAWLINE(低点,x1,ISLASTBAR,REF(x1,1),0),Color008080,LINEDOT;  
B2:DRAWLINE(低点,x2,ISLASTBAR,REF(x2,1),0),Color939300,LINEDOT;  
B3:DRAWLINE(低点,x3,ISLASTBAR,REF(x3,1),0),Color008080,LINEDOT;  
B4:DRAWLINE(低点,x4,ISLASTBAR,REF(x4,1),0),Color939300,LINEDOT;  
B5:DRAWLINE(低点,x5,ISLASTBAR,REF(x5,1),0),Color008080,LINEDOT; 
B6:DRAWLINE(低点,x6,ISLASTBAR,REF(x6,1),0),Color939300,LINEDOT;  
B7:DRAWLINE(低点,x7,ISLASTBAR,REF(x7,1),0),Color008080,LINEDOT;  
B8:DRAWLINE(低点,x8,ISLASTBAR,REF(x8,1),0),Color939300,LINEDOT;  
B9:DRAWLINE(低点,x9,ISLASTBAR,REF(x9,1),0),Color008080,LINEDOT;  
B10:DRAWLINE(低点,x10,ISLASTBAR,REF(x10,1),0),Color939300,LINEDOT;  
B11:DRAWLINE(低点,x11,ISLASTBAR,REF(x11,1),0),Color008080,LINEDOT;  
B12:DRAWLINE(低点,x12,ISLASTBAR,REF(x12,1),0),Color939300,LINEDOT;  
B13:DRAWLINE(低点,x13,ISLASTBAR,REF(x13,1),0),Color008080,LINEDOT; 
B14:DRAWLIN  |