|
以下是通达信底部吸筹源码（无源码的请下载附件导入）
JNR1:=(CLOSE-LLV(LOW,90))/(HHV(HIGH,90)-LLV(LOW,90))*200;
JNR2:=EMA((CLOSE-(LLV(LOW,5)))/((HHV(HIGH,5))-(LLV(LOW,5)))*100,4)*2;
JNR3:=EMA(0.618*REF(JNR2,1)+0.382*JNR2,2);
JNR4:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
JNR5:=POW(MA(LOW,5),2)+MA(LOW,5);
JNR6:=POW(MA(HIGH,5),2)+MA(HIGH,5);
JNR7:=(JNR4-LLV(JNR5,64))/(HHV(JNR6,64)-LLV(JNR5,64))*150+65-10;
JNR8:=SMA((SMA(JNR7,3,1)*1.5-100),3,1);
JNR9:=3*(SMA(JNR7,3,1)*1.5-100)-2*JNR8;
JNR10:=(HIGH+LOW+CLOSE*2)/4;
JNR11:=(JNR10-(EMA(JNR10,13)))*100/(STD(JNR10,13));
JNR12:=EMA((EMA(JNR11,5)),13)+200-100;
JNR13:=(SMA(JNR1,3,1))+JNR2+(SMA(JNR7,3,1)*1.5-100)+JNR12;
JNR14:=(SMA((SMA(JNR1,3,1)),3,1))+JNR3+JNR8+(EMA(JNR12,10));
JNR15:=(3*(SMA(JNR1,3,1))-2*(SMA((SMA(JNR1,3,1)),3,1)))+(3*JNR12-2*(EMA(JNR12,10)))+
JNR9+(3*JNR12-2*(EMA(JNR12,10)));
JNR16:=(HIGH+LOW+CLOSE)/3;
JNR17:=(JNR16-MA(JNR16,34))/(0.015*AVEDEV(JNR16,34));
JNR18:=(HIGH+LOW+CLOSE+JNR16)/4;
JNR19:=(JNR18-(EMA(JNR18,24)))/(STD(JNR18,24))*100;
JNR20:=(JNR16-MA(JNR16,24))/(0.015*AVEDEV(JNR16,24));
JNR21:=(((EMA(JNR19,5))+JNR20+JNR17)/3+165)/4;
JNR22:=(JNR13+JNR14+JNR15*30)/32/5-15;
JN买卖: EMA(((JNR21+JNR22)/2/1.1),1);
JN阻力:=MA(JN买卖,3),COLORWHITE,LINETHICK2;
IF(JN买卖< JN阻力,JN买卖,DRAWNULL),COLORGREEN,LINETHICK2;
IF(JN买卖>=JN阻力,JN买卖,DRAWNULL),COLORRED,LINETHICK2;
DRAWICON(CROSS(JN买卖,JN阻力) AND ((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*250)>REF(((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*250),1),JN阻力,1);
底部吸筹指标:=(CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100, COLOR00FF00;
STICKLINE(CROSS(底部吸筹指标,-24),88,0,1,0), COLORWHITE;
|
