潘启明：我写的《吸拉派发》公式

我写的《吸拉派发》公式 我在通达信看到《吸拉派发》公式。它没有未来函数，而能对应一个较长 波段的顶与底。 我想看看它的源代码。 但因为加密而不能观看。 我虽然在百度上查到不加密的《吸拉派发》，但与我在通达信看到《吸拉 派发》公式，相去很远。 ☆ ☆ ☆ 于是就决定自己来写。 趋势线:=1.1*SMA((CLOSE-LLV(LOW,50))/(HHV(HIGH,50)-LLV(LOW,50)) *100,5,1)-0.9*SMA(SMA((CLOSE-LLV(LOW,50))/(HHV(HIGH,50)-LLV (LOW,50))*100,4,1),3,1), COLORBLUE; 价位线:=EMA(趋势线,12)/100; 趋势:EXPMA(趋势线,3)/100,COLORYELLOW,LINETHICK2; 多:IF(趋势>REF(趋势,1),趋势,DRAWNULL),COLORRED,LINETHICK3; 空:IF(趋势趋势, 趋 势,DRAWNULL),COLORWHITE,LINETHICK3; 我写出来之后，与我在通达信看到《吸拉派发》相比，还有一点差距。 ☆ ☆ ☆ 只好再写一个。 N:=3; VAR1:=HHV(HIGH,21); VAR2:=LLV(LOW,21); VAR3:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,5); VAR4:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,20); VAR6:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200; VAR7:=SMA(VAR6,3,1); VAR8:=SMA(VAR7,3,1); VAR9:=3*VAR7-2*VAR8; VARA:=LLV(LOW,5); VARB:=HHV(HIGH,5); VARC:=EMA((CLOSE-VARA)/(VARB-VARA)*100,4)*2; VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2); 页码，2/9 2012-2-3 VARE:=3*VARC-2*VARD; VARF:=POW(MA(CLOSE,5),2)+MA(CLOSE,5); VAR10:=POW(MA(LOW,5),2)+MA(LOW,5); VAR11:=POW(MA(HIGH,5),2)+MA(HIGH,5); VAR12:=(VARF-LLV(VAR10,64))/(HHV(VAR11,64)-LLV(VAR10,64))*150+65- 10; VAR13:=SMA(VAR12,3,1)*1.5-100; VAR14:=SMA(VAR13,3,1); VAR15:=3*VAR13-2*VAR14; VAR16:=(HIGH+LOW+CLOSE*2)/4; VAR17:=EMA(VAR16,13); VAR18:=STD(VAR16,13); VAR19:=(VAR16-VAR17)*100/VAR18; VAR1A:=EMA(VAR19,5); VAR1B:=EMA(VAR1A,13); VAR1C:=EMA(VAR1A,13)+200-100; VAR1D:=EMA(VAR1C,10); VAR1E:=3*VAR1C-2*VAR1D; VAR1F:=VAR7+VARC+VAR13+VAR1C; VAR20:=VAR8+VARD+VAR14+VAR1D; VAR21:=VAR9+VARE+VAR15+VAR1E; VAR22:=(HIGH+LOW+CLOSE)/3; VAR23:=AMOUNT/VOL/100; VAR24:=SUM(AMOUNT,5)/SUM(VOL,5)/100; VAR25:=(VAR22-MA(VAR22,34))/(0.015*AVEDEV(VAR22,34)); VAR26:=DMA(AMOUNT/VOL/100,VOL/CAPITAL); VAR27:=(HIGH+LOW+CLOSE+VAR22)/4; VAR28:=EMA(VAR27,24); VAR29:=STD(VAR27,24); VAR2A:=(VAR27-VAR28)/VAR29*100; VAR2B:=(VAR22-MA(VAR22,24))/(0.015*AVEDEV(VAR22,24)); VAR2C:=EMA(VAR2A,5); VAR2D:=(VAR23-MA(VAR23,21))/(0.015*AVEDEV(VAR23,21)); VAR2E:=(VAR24-MA(VAR24,90))/(0.015*AVEDEV(VAR24,90)); VAR2F:=((VAR2C+VAR2B+VAR25)/3+165)/4; VAR30:=(EMA(EMA(EMA(VAR2F,15),10),5)-25)*2+VAR26; VAR31:=(VAR1F+VAR20+VAR21*30)/32/5-15; VAR32:=EMA(VAR31,13); VAR33:=(VAR2F+VAR31)/2/1.1; VAR34:=VAR33; 趋势线:=EMA(VAR34,2),COLORFFFF00; 价位线:=EMA(趋势线,12)/100; 趋势:EXPMA(趋势线,3)/100,COLORYELLOW,LINETHICK2; 多:IF(趋势>REF(趋势,1),趋势,DRAWNULL),COLORRED,LINETHICK3; 空:IF(趋势趋势, 趋 势,DRAWNULL),COLORWHITE,LINETHICK3; 经过比较，虽然不及我在通达信看到《吸拉派发》那样好，但大体上可以 来用了。 ☆ ☆ ☆ 但我觉得光有波段还不够，还应该看一看筹码获利情况。 于是又将获利比例加进来。 N:=3; VAR1:=HHV(HIGH,21); VAR2:=LLV(LOW,21); VAR3:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,5); VAR4:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,20); VAR6:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200; VAR7:=SMA(VAR6,3,1); VAR8:=SMA(VAR7,3,1); VAR9:=3*VAR7-2*VAR8; VARA:=LLV(LOW,5); 页码，4/9 2012-2-3 VARB:=HHV(HIGH,5); VARC:=EMA((CLOSE-VARA)/(VARB-VARA)*100,4)*2; VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2); VARE:=3*VARC-2*VARD; VARF:=POW(MA(CLOSE,5),2)+MA(CLOSE,5); VAR10:=POW(MA(LOW,5),2)+MA(LOW,5); VAR11:=POW(MA(HIGH,5),2)+MA(HIGH,5); VAR12:=(VARF-LLV(VAR10,64))/(HHV(VAR11,64)-LLV(VAR10,64))*150+65- 10; VAR13:=SMA(VAR12,3,1)*1.5-100; VAR14:=SMA(VAR13,3,1); VAR15:=3*VAR13-2*VAR14; VAR16:=(HIGH+LOW+CLOSE*2)/4; VAR17:=EMA(VAR16,13); VAR18:=STD(VAR16,13); VAR19:=(VAR16-VAR17)*100/VAR18; VAR1A:=EMA(VAR19,5); VAR1B:=EMA(VAR1A,13); VAR1C:=EMA(VAR1A,13)+200-100; VAR1D:=EMA(VAR1C,10); VAR1E:=3*VAR1C-2*VAR1D; VAR1F:=VAR7+VARC+VAR13+VAR1C; VAR20:=VAR8+VARD+VAR14+VAR1D; VAR21:=VAR9+VARE+VAR15+VAR1E; VAR22:=(HIGH+LOW+CLOSE)/3; VAR23:=AMOUNT/VOL/100; VAR24:=SUM(AMOUNT,5)/SUM(VOL,5)/100; VAR25:=(VAR22-MA(VAR22,34))/(0.015*AVEDEV(VAR22,34)); VAR26:=DMA(AMOUNT/VOL/100,VOL/CAPITAL); VAR27:=(HIGH+LOW+CLOSE+VAR22)/4; VAR28:=EMA(VAR27,24); VAR29:=STD(VAR27,24); VAR2A:=(VAR27-VAR28)/VAR29*100; VAR2B:=(VAR22-MA(VAR22,24))/(0.015*AVEDEV(VAR22,24)); VAR2C:=EMA(VAR2A,5); VAR2D:=(VAR23-MA(VAR23,21))/(0.015*AVEDEV(VAR23,21)); VAR2E:=(VAR24-MA(VAR24,90))/(0.015*AVEDEV(VAR24,90)); VAR2F:=((VAR2C+VAR2B+VAR25)/3+165)/4; VAR30:=(EMA(EMA(EMA(VAR2F,15),10),5)-25)*2+VAR26; VAR31:=(VAR1F+VAR20+VAR21*30)/32/5-15; VAR32:=EMA(VAR31,13); VAR33:=(VAR2F+VAR31)/2/1.1; VAR34:=VAR33; 趋势线:=EMA(VAR34,2),COLORFFFF00; 价位线:=EMA(趋势线,12); 页码，5/9 2012-2-3 趋势:EXPMA(趋势线,3),COLORYELLOW,LINETHICK2; 多:IF(趋势>REF(趋势,1),趋势,DRAWNULL),COLORRED,LINETHICK3; 空:IF(趋势趋势, 趋 势,DRAWNULL),COLORWHITE,LINETHICK3; {获利比例指标原码:} 获利盘:=WINNER(C)*100,COLOR00FFFF,LINETHICK1; HLPMA5:=MA(获利盘,5),COLOR0000FF,LINETHICK2; 短套:=EMA(100*(1-WINNER(1.10*C)),1),COLORFFDD00,LINETHICK1; 中套:=EMA(100*(1-WINNER(1.2*C)),1),COLORFF0000 ,LINETHICK1; 长套:=EMA(100*(1-WINNER(1.5*C)),1),COLOR00FF00,LINETHICK2; STICKLINE(CURRBARSCOUNT=20,80,90,100,1),COLOR0033FF; STICKLINE(CURRBARSCOUNT=20,80,90,获利盘,0),COLOR003388; STICKLINE(CURRBARSCOUNT=20,82,88,获利盘,0),COLOR0033AA; STICKLINE(CURRBARSCOUNT=20,83.5,86.5,获利盘,0),COLOR0033CC; STICKLINE(CURRBARSCOUNT=20,84.9,85.1,获利盘,0),COLOR0033FF; DRAWTEXT(CURRBARSCOUNT=46,87,'获利:'),COLOR0033FF; DRAWNUMBER(CURRBARSCOUNT=40,87,CONST(获利盘)),COLOR0033FF; STICKLINE(CURRBARSCOUNT=20,20,30,100,1),COLORFFFF00; STICKLINE(CURRBARSCOUNT=20,20,30,短套,0),COLOR888800; STICKLINE(CURRBARSCOUNT=20,22,28,短套,0),COLORAAAA00; STICKLINE(CURRBARSCOUNT=20,23.5,26.5,短套,0),COLORCCCC00; STICKLINE(CURRBARSCOUNT=20,24.9,25.1,短套,0),COLORFFFF00; DRAWTEXT(CURRBARSCOUNT=46,30,'短套:'),COLORFFFF00; DRAWNUMBER(CURRBARSCOUNT=40,30,CONST(短套)),COLORFFFF00; STICKLINE(CURRBARSCOUNT=20,40,50,100,1),COLORFF0000; STICKLINE(CURRBARSCOUNT=20,40,50,中套,0),COLOR880000; STICKLINE(CURRBARSCOUNT=20,42,48,中套,0),COLORAA0000; STICKLINE(CURRBARSCOUNT=20,43.5,46.5,中套,0),COLORCC0000; STICKLINE(CURRBARSCOUNT=20,44.9,45.1,中套,0),COLORFF0000; DRAWTEXT(CURRBARSCOUNT=46,48,'中套:'),COLORFF0000; DRAWNUMBER(CURRBARSCOUNT=40,48,CONST(中套)),COLORFF0000; STICKLINE(CURRBARSCOUNT=20,60,70,100,1),COLOR00FF00; STICKLINE(CURRBARSCOUNT=20,60,70,长套,0),COLOR008833; STICKLINE(CURRBARSCOUNT=20,62,68,长套,0),COLOR00AA33; STICKLINE(CURRBARSCOUNT=20,63.5,66.5,长套,0),COLOR00CC33; STICKLINE(CURRBARSCOUNT=20,64.9,65.1,长套,0),COLOR00FF33; DRAWTEXT(CURRBARSCOUNT=46,67,'长套:'),COLOR00FF00; DRAWNUMBER(CURRBARSCOUNT=40,67,CONST(长套)),COLOR00FF00; 页码，6/9 2012-2-3 DRAWTEXT_FIX(1,0.0,0.0,0,'☆获利盘、长套、中套、短套比例分别为 ☆：'),COLORWHITE; 如果它和加上筹码分布的布林线主图一起用，则更好。 页码，7/9 2012-2-3 还可以再把布局调整一下，把所有的字都露出来。 和我在通达信看到《吸拉派发》比较一下，我更喜欢用我自己写的，因为 页码，8/9 2012-2-3 它更适合我。 ☆ ☆ ☆ 在用一个东西的时候，我会不断地改造它，使它更适合我。这是我的习 惯。 最后，我还得说，我写公式，完全是为了玩。 我还是老话，毛泽东说过，决定战争胜负的是人，而不是一两件新式武 器。我是相信这句话的。 写公式的乐趣，对我来说，大于在交易时使用它。 页码，9/9 2012-2-3