[转载]个人精品组合:主图 + 3副图
公式源码:[code]
{潜龙主图}
MA5:MA(C,5),COLORWHITE;
MA11:MA(C,11),COLORYELLOW;
MA21:MA(C,21),COLORMAGENTA;
MA31:MA(C,41),COLORGREEN;
MA60:MA(C,61),COLORBLUE;
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
龙:=(AV + NEWVOL);
AA:=MA(C,40)>REF(MA(C,40),1) AND REF(MA(C,40),1)>REF(MA(C,40),2);
BB:=MA(C,60)>REF(MA(C,60),1) AND REF(MA(C,60),1)>REF(MA(C,60),2);
CC:=MA(C,20)>REF(MA(C,20),1) AND REF(MA(C,20),1)>REF(MA(C,20),2);
EE:=(AA OR BB OR CC);
DRAWTEXT(CROSS(龙,0) AND EE,L*0.98,'潜'),COLORRED;
V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
HY1:=REF(EMA(V1,3),1);
上收:=C;
{
上开:=O;
上高:=H;
上低:=L;
JJ:=(上开+上高+上低)/3;
A:=EMA(JJ,4);
黄金线:A,COLORFFFF00,LINETHICK1;
能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) *4)));
}
箱顶:MA(REF(HHV(上收,30),1),2),COLORBLUE,LINETHICK1;
箱底:MA(REF(LLV(上收,30),1),2),COLORBLACK,LINETHICK1;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.05,'大笔出'),LINETHICK1,COLORFFCC66;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4);
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2);
DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L*0.92,'吸'),COLORRED;
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H*1.02,'抛'),COLORGREEN;
VVAR3:=REF(CLOSE,1);
VVAR4:=SMA(MAX(CLOSE-VVAR3,0),6,1)/SMA(ABS(CLOSE-VVAR3),6,1)*100;
DRAWTEXT(CROSS(84,VVAR4),H*1.05,'逃'),COLORYELLOW ;
VVAR5:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VVAR6:=SMA(ABS(LOW-VVAR5),13,1)/SMA(MAX(LOW-VVAR5,0),10,1);
VVAR7:=EMA(VVAR6,10);
VVAR8:=LLV(LOW,33);
VVAR9:=EMA(IF(LOW<=VVAR8,VVAR7,0),5);
主力:=FILTER(VVAR9>REF(VVAR9,1),5);
DRAWTEXT(主力,L*0.9,'入'),COLORRED;
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.96),'建'),COLORYELLOW;
[/code]
[code]
{买卖精品}
VARA:=REF(LOW,1);
VARB:=SMA(ABS(LOW-VARA),3,1)/SMA(MAX(LOW-VARA,0),3,1)*100;
VARC:=EMA(IF(CLOSE*1.3,VARB*10,VARB/10),3);
VARD:=LLV(LOW,30);
VARE:=HHV(VARC,30);
VARF:=IF(MA(CLOSE,58),1,0);
VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF;
VARH:=IF(VARG>28,28,VARG);
吸筹:STICKLINE(VARH>-120,0,VARH,6,1),COLOR0FFFFF;
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
跟庄买入: IF(CROSS(J,3),50,0),COLORRED,LINETHICK3;
VA:=(2*C+H+L)/4;
VB:=LLV(L,5);
VC:=HHV(H,5);
红线上穿买:EMA((VA-VB)/(VC-VB)*100,5),COLORRED;
红线下穿卖:EMA(红线上穿买,3),COLORFFFF00;
JL:=EMA(VOL,13);
JE:=EMA(AMOUNT,13);
JX:=((JE / JL) / 100);
RGL:=(((CLOSE - JX) / JX) * 100);
STICKLINE((RGL < (0 - 6)),0,20,2,0),COLORFF00CC;
V1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
V2:=2*ABS(V1);
粉军:IF(V1>0,V1,0),COLORFFCCFF, LINESTICK;
绿军:IF(V1<0,V2,0),COLORGREEN,LINESTICK;
K1:=SMA(RSV,3,1);
DK1:=K1-REF(K1,1);
出手就赢:IF(DK1>7 AND REF(DK1,1)<0 AND (DK1-REF(DK1,1))>9,30,0), LINESTICK,COLORYELLOW;
DRAWICON(出手就赢>0,30 ,1);
[/code]
[code]
{知顶知底}
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
阶段卖出: 3.2,COLORC6C600;
清仓卖出: 3.5,COLORFF75FF;
动力线:= EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4);
STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLORRED;
STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLOR00FF00;
底部:0.2,COLORGREEN;
关注:=0.5,COLORYELLOW;
DRAWICON( FILTER(CROSS(动力线,关注),20),动力线+0.02 ,1);
DRAWICON( FILTER(CROSS(清仓卖出,动力线),20),动力线+0.02,2);
DRAWICON( FILTER(CROSS(动力线,底部),20),动力线+0.02 ,1);
DRAWICON( FILTER(CROSS(阶段卖出,动力线),20),动力线+0.02,2);
强弱分界线:1.75,POINTDOT,LINETHICK2,COLOR70DB93;
{数值:动力线,COLORA8A8A8;}
{
T1:=5;
T2:=4;
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
VAR4:=LLV(LOW,T1);
VAR5:=HHV(HIGH,T2);
散户:EMA(((P - VAR4)/(VAR5 - VAR4))*(100),T2),LINETHICK,COLOR3333DD;
庄家:EMA((0.667)*(REF(散户,1)) + (0.333)*(散户),2),LINETHICK,COLORDDCC00;};
SSRCJL:=EMA(VOL,13);
SSRCJE:=EMA(AMOUNT,13);
SSRCBJX:=((SSRCJE / SSRCJL) / 100);
SSRGL:=(((CLOSE - SSRCBJX) / SSRCBJX) * 100);
绝对底:=SSRGL<(0-18);
大底:=SSRGL<(0-14);
中底:=SSRGL<(0-10);
短底:=SSRGL<(0-6);
STICKLINE((SSRGL < (0 - 18)),3.0,3.5,3,0),COLORRED;
STICKLINE((SSRGL < (0 - 14)),2.5,3.0,3,0),COLORBLUE;
STICKLINE((SSRGL < (0 - 10)),2.25,2.5,3,0),COLORYELLOW;
STICKLINE((SSRGL < (0 - 6)),1.75,2.25,3,0),COLORWHITE;
[/code]
[code]
{底部留影}
买:=MA(CLOSE,1);
卖:=(LOW+HIGH+CLOSE)/3;
奇准:= MA(卖,5);
买卖:=LLV(奇准,10);
急买奇准:=LLV((买<买卖),5);
短买奇准:=LLV((买<买卖),10);
STICKLINE(短买奇准,0,20,3,0),COLORRED;
STICKLINE(急买奇准,0,10,3,0),COLORMAGENTA;
趋势:3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),COLORWHITE;
秘密买点:IF(趋势<=3,20,0),COLORWHITE,LINETHICK2;
机构建仓:IF(趋势<5,30,0),COLORFFCC00,LINETHICK2;
DRAWICON(REF(趋势,1)<8 AND REF(趋势,2)>REF(趋势,1) AND 趋势>REF(趋势,1),趋势,1);
DRAWICON(REF(趋势,1)>90 AND REF(趋势,2)<REF(趋势,1) AND 趋势<REF(趋势,1),趋势,2);
VAR1:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=3*VAR2-2*VAR3;
VAR5:=LLV(LOW,5);
VAR6:=HHV(HIGH,5);
VAR7:=EMA((CLOSE-VAR5)/(VAR6-VAR5)*100,4)*2;
VAR8:=EMA(0.667*REF(VAR7,1)+0.333*VAR7,2);
VAR9:=3*VAR7-2*VAR8;
VARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
VARB:=POW(MA(LOW,5),2)+MA(LOW,5);
VARC:=POW(MA(HIGH,5),2)+MA(HIGH,5);
VARD:=(VARA-LLV(VARB,64))/(HHV(VARC,64)-LLV(VARB,64))*150+65-10;
VARE:=SMA(VARD,3,1)*1.5-100;
VARF:=SMA(VARE,3,1);
VAR10:=3*VARE-2*VARF;
VAR11:=(HIGH+LOW+CLOSE*2)/4;
VAR12:=EMA(VAR11,13);
VAR13:=STD(VAR11,13);
VAR14:=(VAR11-VAR12)*100/VAR13;
VAR15:=EMA(VAR14,5);
VAR17:=EMA(VAR15,13)+200-100;
VAR18:=EMA(VAR17,10);
VAR19:=3*VAR17-2*VAR18;
VAR1A:=VAR2+VAR7+VARE+VAR17;
VAR1B:=VAR3+VAR8+VARF+VAR18;
VAR1C:=VAR4+VAR9+VAR10+VAR19;
VAR1D:=(HIGH+LOW+CLOSE)/3;
VAR20:=(VAR1D-MA(VAR1D,34))/(0.015*AVEDEV(VAR1D,34));
VAR22:=(HIGH+LOW+CLOSE+VAR1D)/4;
VAR23:=EMA(VAR22,24);
VAR24:=STD(VAR22,24);
VAR25:=(VAR22-VAR23)/VAR24*100;
VAR26:=(VAR1D-MA(VAR1D,24))/(0.015*AVEDEV(VAR1D,24));
VAR27:=EMA(VAR25,5);
VAR2A:=((VAR27+VAR26+VAR20)/3+165)/4;
VAR2B:=(EMA(EMA(EMA(VAR2A,15),10),5)-25)*2;
VAR2C:=(VAR1A+VAR1B+VAR1C*30)/32/5-15;
VAR2D:=EMA(VAR2C,7);
VAR2E:=(VAR2A+VAR2C)/2/1.1;
超短:=EMA(VAR2E,3),COLORRED ;
趋势1:=EMA((VAR2B+VAR2D)/2,2) ,COLORWHITE;
加仓:=CROSS(超短,趋势1);
DRAWTEXT(加仓,趋势,'加'),COLORFF00CC;
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14)));
STICKLINE((CCI < (-100)),0,5,3,0),COLORYELLOW;
ANGEL:=EMA(C,2);
DEVIL:=EMA(SLOPE(C,21)*20+C,42);
BUY:=CROSS(ANGEL,DEVIL);
SEL:=CROSS(DEVIL,ANGEL);
DRAWTEXT(BUY,趋势,'买'),COLORRED;
P1:=4;
P2:=5;
V1:=LLV(LOW,P1);
V2:=HHV(HIGH,P1);
牛线: EMA((CLOSE-V1)/(V2-V1)*100,P2),COLORRED,LINETHICK1;
马线: EMA(0.667*REF(牛线,1)+0.333*牛线,2),COLORGREEN,LINETHICK1;
VV1:=(CLOSE+LOW+HIGH)/3;
VV2:=SUM((VV1-REF(LOW,1)-(HIGH-VV1))*VOL/100000/(HIGH-LOW),0);
VV3:=EMA(VV2,1);
VV5:=MA(VV3,12);
VV6:=MA(VV3,26);
VV7:=(VV3-VV5)*10;
主力拉升: IF(VV7>0.05,VV7,0),LINETHICK1,COLORMAGENTA;
[/code]
[attach]4516[/attach]
页:
[1]