编程思路破译 N赋值:5 VARE赋值:(VARC<1) VARF赋值:VARD VAR10赋值:如果((VAR8=0)AND(VARA<1)AND(VAR4<0)的5日过滤=1),返回1,否则返回0 VAR11赋值:如果((VAR8=100)AND(VARA=100)的5日过滤=1),返回1,否则返回0 VAR12赋值:如果((VAR9=0)AND(VARB<1)AND(VAR7<0)的5日过滤=1),返回1,否则返回0 VAR13赋值:如果((VAR9=100)AND(VARB=100)的5日过滤=1),返回1,否则返回0 VAR14赋值:如果((VAR4<1)AND(VAR7<1)的30日过滤=1),返回1,否则返回0 VAR15赋值:VAR10 AND VAR12 VAR16赋值:VAR11 AND VAR13 VAR17赋值:(VAR8=0) AND VARE AND VAR14 VAR18赋值:VAR15 AND VARE AND VAR14 VAR19赋值:(VAR8=100) AND VARF VAR1A赋值:VAR16 AND VARF 输出大盘方向:((100)*(收盘价-100日内最低价的最低值))/(100日内最高价的最高值-100日内最低价的最低值)的7日指数移动平均,COLORFF00FF 输出获利:VAR4,COLOR00FF00 输出操盘手:((收盘价-393日内收盘价的最低值)/(393日内收盘价的最高值-393日内收盘价的最低值))*(100),COLORFFFFFF VAR1B赋值:收盘价的2日指数移动平均-收盘价的89日指数移动平均 VAR1C赋值:VAR1B的30日指数移动平均 VAR1D赋值:((2)*(VAR1B-VAR1C))*(10) VAR1E赋值:(VAR1D的3乘幂)*(0.1)+VAR1D的2乘幂 VAR1F赋值:(((最低价)*(最高价))*(开盘价))*(收盘价)的开方的开方 VAR20赋值:(VAR1F)*(0.97)的3日指数移动平均 VAR21赋值:(最高价+最低价+收盘价)/(3) VAR22赋值:(VAR21-VAR21的14日简单移动平均)/((0.015)*(VAR21的14日平均绝对偏差)) VAR23赋值:(如果(VAR1D>0.015),返回VAR1E,否则返回0)/(50) 输出庄线:VAR23,COLORFFFF00 VAR24赋值:最高价-最低价和1日前的收盘价-最高价的绝对值的较大值和1日前的收盘价-最低价的绝对值的较大值 VAR25赋值:VAR24的48日简单移动平均 VAR26赋值:VAR24上穿VAR25 VAR27赋值:如果(VAR26的126日过滤=1),返回70,否则返回0 VAR28赋值:1日前的收盘价 VAR29赋值:((收盘价-VAR28和0的较大值的6日[1日权重]移动平均)/(收盘价-VAR28的绝对值的6日[1日权重]移动平均))*(100) VAR2A赋值:((收盘价-VAR28和0的较大值的12日[1日权重]移动平均)/(收盘价-VAR28的绝对值的12日[1日权重]移动平均))*(100) VAR2B赋值:((收盘价-VAR28和0的较大值的24日[1日权重]移动平均)/(收盘价-VAR28的绝对值的24日[1日权重]移动平均))*(100) VAR2C赋值:如果(VAR29上穿VAR2AANDCROSS(VAR2A,VAR2B)ANDCROSS(VAR29,VAR2B)的5日过滤=1),返回50,否则返回0 VAR2D赋值:((收盘价-34日内最低价的最低值)/(34日内最高价的最高值-34日内最低价的最低值))*(100) VAR2E赋值:VAR2D的3日[1日权重]移动平均 VAR2F赋值:VAR2E的3日[1日权重]移动平均 VAR30赋值:(3)*(VAR2E)-(2)*(VAR2F) VAR31赋值:VAR30上穿VAR2E AND VAR30上穿VAR2F AND VAR2E上穿VAR2F VAR32赋值:如果(VAR31AND(VAR30<25)AND(VAR2F<20)的5日过滤=1),返回80,否则返回0 VAR33赋值:如果((VAR17ORVAR18)的1日过滤=1),返回100,否则返回0 VAR34赋值:(大盘方向<5) AND (获利<0) AND (操盘手=0) 输出绝对买点:如果((VAR34ORVAR33)的N日过滤=1),返回100,否则返回0,COLOR0000FF 输出绝对卖点:如果(VAR19ANDVAR16ANDVARF的2日过滤=1),返回100,否则返回0,COLOR00FF00 输出MD1:如果((大盘方向<20)ANDVAR2CAND(VAR29<60)AND(VAR2B<40)的15日过滤=1),返回80,否则返回0,STICK,线宽为3,COLOR00FFFF 输出MD2:如果((大盘方向<20)ANDMD1ANDVAR32的5日过滤=1),返回80,否则返回0,COLOR000080 输出DM3:如果((大盘方向<50)ANDMD1ANDVAR32ANDVAR27的5日过滤=1),返回80,否则返回0,COLOR800080 当满足条件绝对买点时,在20位置书写文字,COLOR00FFFF 当满足条件MD1时,在50位置书写文字,COLORFF00FF 当满足条件绝对卖点时,在90位置书写文字,COLOR00FF00 当满足条件绝对买点时,在绝对买点位置画1号图标,COLORFFFFFF 当满足条件绝对卖点时,在绝对卖点位置画9号图标,COLORFFFF00 程序源码 N:=5; vAR3:=LLV(HIGH,240); VAR4:=((100)*(CLOSE-VAR3))/(VAR3); VAR5:=REF(LLV(CLOSE,480),1); VAR6:=REF(HHV(CLOSE,480),1); VAR7:=((100)*(CLOSE-VAR5))/(VAR6-VAR5); VAR8:=((CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981)))*(100); VAR9:=((CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393)))*(100); VARA:=((CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981)))*(100); VARB:=((CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393)))*(100); VARC:=(EMA(((100)*(CLOSE-LLV(LOW,100)))/(HHV(HIGH,100)-LLV(LOW,100)),5))/(4); VARD:=IF((DATE<99991232),IF((VARC>23.16),VARC,0),0); VARE:=(VARC<1); VARF:=VARD; VAR10:=IF((FILTER((VAR8=0) AND (VARA<1) AND (VAR4<0),5)=1),1,0); VAR11:=IF((FILTER((VAR8=100) AND (VARA=100),5)=1),1,0); VAR12:=IF((FILTER((VAR9=0) AND (VARB<1) AND (VAR7<0),5)=1),1,0); VAR13:=IF((FILTER((VAR9=100) AND (VARB=100),5)=1),1,0); VAR14:=IF((FILTER((VAR4<1) AND (VAR7<1),30)=1),1,0); VAR15:=VAR10 AND VAR12; VAR16:=VAR11 AND VAR13; VAR17:=(VAR8=0) AND VARE AND VAR14; VAR18:=VAR15 AND VARE AND VAR14; VAR19:=(VAR8=100) AND VARF; VAR1A:=VAR16 AND VARF; 大盘方向:EMA(((100)*(CLOSE-LLV(LOW,100)))/(HHV(HIGH,100)-LLV(LOW,100)),7),CoLorFF00FF; 获利:VAR4,CoLor00FF00; 操盘手:((CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393)))*(100),CoLorFFFFFF; VAR1B:=EMA(CLOSE,2)-EMA(CLOSE,89); VAR1C:=EMA(VAR1B,30); VAR1D:=((2)*(VAR1B-VAR1C))*(10); VAR1E:=(POW(VAR1D,3))*(0.1)+POW(VAR1D,2); VAR1F:=SQRT(SQRT((((LOW)*(HIGH))*(OPEN))*(CLOSE))); VAR20:=EMA((VAR1F)*(0.97),3); VAR21:=(HIGH+LOW+CLOSE)/(3); VAR22:=(VAR21-MA(VAR21,14))/((0.015)*(AVEDEV(VAR21,14))); VAR23:=(IF((VAR1D>0.015),VAR1E,0))/(50); 庄线:VAR23,CoLorFFFF00; VAR24:=MAX(MAX(HIGH-LOW,ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW)); VAR25:=MA(VAR24,48); VAR26:=CROSS(VAR24,VAR25); VAR27:=IF((FILTER(VAR26,126)=1),70,0); VAR28:=REF(CLOSE,1); VAR29:=((SMA(MAX(CLOSE-VAR28,0),6,1))/(SMA(ABS(CLOSE-VAR28),6,1)))*(100); VAR2A:=((SMA(MAX(CLOSE-VAR28,0),12,1))/(SMA(ABS(CLOSE-VAR28),12,1)))*(100); VAR2B:=((SMA(MAX(CLOSE-VAR28,0),24,1))/(SMA(ABS(CLOSE-VAR28),24,1)))*(100); VAR2C:=IF((FILTER(CROSS(VAR29,VAR2A) AND CROSS(VAR2A,VAR2B) AND CROSS(VAR29,VAR2B),5)=1),50,0); VAR2D:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100); VAR2E:=SMA(VAR2D,3,1); VAR2F:=SMA(VAR2E,3,1); VAR30:=(3)*(VAR2E)-(2)*(VAR2F); VAR31:=CROSS(VAR30,VAR2E) AND CROSS(VAR30,VAR2F) AND CROSS(VAR2E,VAR2F); VAR32:=IF((FILTER(VAR31 AND (VAR30<25) AND (VAR2F<20),5)=1),80,0); VAR33:=IF((FILTER((VAR17 OR VAR18),1)=1),100,0); VAR34:=(大盘方向<5) AND (获利<0) AND (操盘手=0); 绝对买点:IF((FILTER((VAR34 OR VAR33),N)=1),100,0),CoLor0000FF; 绝对卖点:IF((FILTER(VAR19 AND VAR16 AND VARF,2)=1),100,0),CoLor00FF00; MD1:IF((FILTER((大盘方向<20) AND VAR2C AND (VAR29<60) AND (VAR2B<40),15)=1),80,0),STICK,Linethick3,CoLor00FFFF; MD2:IF((FILTER((大盘方向<20) AND MD1 AND VAR32,5)=1),80,0),CoLor000080; DM3:IF((FILTER((大盘方向<50) AND MD1 AND VAR32 AND VAR27,5)=1),80,0),CoLor800080; DRAWTEXT(绝对买点,20,'"原码买点"'),CoLor00FFFF; DRAWTEXT(MD1,50,'"周线选股买点"'),CoLorFF00FF; DRAWTEXT(绝对卖点,90,'"坚决卖出,空仓"'),CoLor00FF00; DRAWICON(绝对买点,绝对买点,1),CoLorFFFFFF; DRAWICON(绝对卖点,绝对卖点,9),CoLorFFFF00; 注: 馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。 发文不易,如获益,欢迎赞赏,赞赏必复! |
|