股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信主力进退分析指标公式源码


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 4 天前

大机构仓位:=100*(1-WINNER(CLOSE)),COLORRED,LINETHICK1;
VAR2M:=1/WINNER(CLOSE);
VAR3M:=MA(CLOSE,13);
VAR4M:=100-Abs((CLOSE-VAR3M)/VAR3M*100);
VAR5M:=LLV(LOW,120);
VAR6M:=HHV(HIGH,120);
VAR7M:=(VAR6M-VAR5M)/100;
VAR8M:=SMA((CLOSE-VAR5M)/VAR7M,20,1);
VAR9M:=SMA((OPEN-VAR5M)/VAR7M,20,1);
VARA:=3*VAR8M-2*SMA(VAR8M,10,1);
VARB:=3*VAR9M-2*SMA(VAR9M,10,1);
VARC:=100-VARB;
基金私募仓位:=(100-VARA),COLORYELLOW,LINETHICK1;
VAR1:=HHV(HIGH,9)-LLV(LOW,9);
VAR2:=HHV(HIGH,9)-CLOSE;
VAR3:=CLOSE-LLV(LOW,9);
VAR4:=((VAR2)/(VAR1))*(100)-70;
VAR5:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100);
VAR6:=((2)*(CLOSE)+HIGH+LOW)/(4);
VAR7:=SMA(((VAR3)/(VAR1))*(100),3,1);
VAR8:=LLV(LOW,34);
VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1);
VAR10:=IF((VAR9>100),VAR9-100,0);
VAR11:=HHV(HIGH,34);
B1:=EMA(((VAR6-VAR8)/(VAR11-VAR8))*(100),8);
机构趋势:=EMA(B1,13),COLORWHITE,LINETHICK1;
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
V12:=(EMA(V11,3)-REF(EMA(V11,3),1))/REF(EMA(V11,3),1)*100;
AAO:=(EMA(V11,3)<=13) AND FILTER((EMA(V11,3)<=13),15);
买入: STICKLINE(EMA(V11,3)<=13 AND V12>13,0,50,1,0),LINETHICK1,COLORRED;
BBO:= (EMA(V11,3)<=13 AND V12>13) AND FILTER((EMA(V11,3)<=13 AND V12>13),10);
DRAWTEXT (BBO,60,'主力进'),COLORWHITE;
卖临界:=STICKLINE(EMA(V11,3)>60 AND EMA(V11,3)>REF(EMA(V11,3),1),100,95,15,1),COLORYELLOW;
CCO:=(EMA(V11,3)>=90 AND V12) AND FILTER((EMA(V11,3)>=90 AND V12),10);
DDO:=(EMA(V11,3)>=120 AND V12) AND FILTER((EMA(V11,3)>=120 AND V12),10);
STICKLINE(IF(VB>=0,VB,0) AND EMA(V11,3)<13,0,30,2,0),COLORWHITE;
STICKLINE(IF(VB<=0,VB,0) AND EMA(V11,3)>90,0,7,10,0),COLORGREEN;
STICKLINE( IF(V4>=0,V4,1) AND EMA(V11,3)<13,0,15,1,0),COLORBB33BB;
STICKLINE(IF(V4<=0,V4,1) AND EMA(V11,3)>90,0,7,3,0),COLOR00FF00,LINETHICK1;
DRAWTEXT (CCO,15,'减仓'),COLOR00FFFF;
AA:=(O+H+L+C)/4;
BB:=MA(AA,3);
CC:=SUM(IF(AA>REF(AA,1),AA*vol,0),4)/SUM(IF(AA<REF(AA,1),AA*VOL,0),4);
DD:=REF(100-(100/(1+CC)),1);
A1N:=HHV(AA,10);
A2N:=LLV(AA,30);
A3N:=A1N-A2N;
A4N:=EMA((AA-A2N)/A3N,1)*100;
B1N:=HHV(AA,16);
B2N:=LLV(AA,90);
B3N:=B1N-B2N;
B4N:=EMA((AA-B2N)/B3N,1)*100;
C1:=HHV(AA,30);
C2:=LLV(AA,240);
C3:=C1-C2;
C4:=EMA((AA-C2)/C3,1)*100;
中线趋势:=B4N,COLORMAGENTA,LINETHICK1;
VARE:=REF(LOW,1)*0.9;
VARF:=LOW*0.9;
VAR12:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;
VAR13:=EMA(VAR12,30);
VAR14:=CLOSE-REF(CLOSE,1);
VAR15:=MAX(VAR14,0);
VAR16:=ABS(VAR14);
VAR17:=SMA(VAR15,7,1)/SMA(VAR16,7,1)*100;
VAR18:=SMA(VAR15,13,1)/SMA(VAR16,13,1)*100;
VAR19:=BARSCOUNT(CLOSE);
VAR20:=SMA(MAX(VAR14,0),6,1)/SMA(ABS(VAR14),6,1)*100;
VAR21:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1);
VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
VAR1D:=SMA(VAR1C,4,1);
VAR1E:=SMA(VAR1D,3,1);
VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
VAR22:=VAR20<=25 AND VAR21<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR17<22 AND VAR18<28 AND VAR19>50;
VAR23:=(HIGH+LOW+CLOSE)/3;
VAR24:=(VAR23-MA(VAR23,14))/(0.015*AVEDEV(VAR23,14));
VAR25:=(VAR23-MA(VAR23,70))/(0.015*AVEDEV(VAR23,70));
VAR26:=IF(VAR24>=150 AND VAR24<200 AND VAR25>=150 AND VAR25<200,10,0);
VAR27:=IF(VAR24<=-150 AND VAR24>-200 AND VAR25<=-150 AND VAR25>-200,-10,VAR26);
STICKLINE(VAR22,0,70,0,0),LINETHICK1,COLORMAGENTA;
DRAWTEXT(crOSS(VAR22,0.5) AND COUNT(VAR22=1,10)=1,80,'超级主力建仓!') , COLORMAGENTA;
VAREX:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARFX:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR10X:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR11X:=VARF<REF(VAR10X,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR11X AND COUNT(VAR11X,30)=1,70,'大资金进场'),LINETHICK1,COLORYELLOW;
STICKLINE(VAR11X AND COUNT(VAR11X,30)=1,1,60,1,0),COLORYELLOW,LINETHICK1;
VAR12X:=(HIGH+LOW+CLOSE)/3;
VAR13X:=(VAR12X-MA(VAR12X,14))/(0.015*AVEDEV(VAR12X,14));
VAR14X:=(VAR12X-MA(VAR12X,70))/(0.015*AVEDEV(VAR12X,70));
VAR15X:=IF(VAR13X>=150 AND VAR13X<200 AND VAR14X>=150 AND VAR14X<200,10,0);
VAR16X:=IF(VAR13X<=-150 AND VAR13X>-200 AND VAR14X<=-150 AND VAR14X>-200,-10,VAR15X);
VAR17X:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18X:=100-ABS(VAR17X);
VAR19X:=IF(VAR18X<90,VAR18X,100);
VAR1AX:=IF(VAREX>0,VAREX,0);
VAR1BX:=IF(VAR14X>=200 AND VAR13X>=150,15,IF(VAR14X<=-200 AND VAR13X<=-150,-15,VAR16X))+60;
VAR1CX:=VAR1AX>48 AND VAR1BX>60 AND VAR19X<100;
DRAWTEXT(VAR1CX AND COUNT(VAR1CX,30)=1,35,'大资金退场'),LINETHICK1,COLORFFCC66;
STICKLINE(VAR1CX AND COUNT(VAR1CX,30)=1,0,30,5,0),COLORFFCC66,LINETHICK1;
STICKLINE(VAR11X AND COUNT(VAR11X,30)=1,1,60,3,0),COLORYELLOW;
爆发线: 80,COLORRED;
强弱分界线:50,COLORGREEN;
中心轴:0;
低位:20,,COLORRED;
TYP := AMOUNT/VOL/100;
V21:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),21)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),21);
MFI:=100-(100/(1+V21));
资金流向:EMA(MFI,5);
A:=AMOUNT/VOL/100;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
工作线:=EMA(X,13);
DRAWTEXT(资金流向>=HHV(资金流向,20) AND MA(VOL,20)>REF(MA(VOL,20),1) AND MA(VOL,5)>MA(VOL,10)
AND MA(C,238)>REF(MA(C,238),1) AND C>工作线 AND CROSS(资金流向,60),资金流向,'卖');
IF(资金流向<50,资金流向,DRAWNULL )COLORGREEN;
IF(资金流向<80,资金流向,DRAWNULL )COLORGREEN;
IF(资金流向<80 AND 资金流向>60,资金流向, DRAWNULL),COLORRED;
IF(资金流向>50 AND (资金流向<60 OR 资金流向=60),资金流向, DRAWNULL),COLORYELLOW;
{IF(资金流向,资金流向>=REF(资金流向,1),RGB(255,0,0),资金流向<=REF(资金流向,1),RGB(0,255,0)),LINETHICK2;}
IF(资金流向>=REF(资金流向,1),资金流向,DRAWNULL),COLORRED;
IF(资金流向<REF(资金流向,1),资金流向,DRAWNULL),COLORGREEN;





回复

举报

QQ|

GMT+8, 2024-11-24 01:47

快速回复 返回顶部 返回列表