Red de conocimiento informático - Material del sitio web - Código fuente de Great Wisdom L2 F10

Código fuente de Great Wisdom L2 F10

La fórmula es la siguiente: (Gracias a los amigos de MACD por proporcionarla)[/color]

Variables: TT[4]=STR, posición[4]=0, ratio[4]=0, cambio [4]= 0;

F10:=IF(F10FIND(◆Salida Manzhouli,1)>0,1,0);

QSW:=F10FIND(◆Situación de control◆ ,100);

QSW1:=F10FIND(salida]☆,1000)+120;

JSW1:=F10FIND(rojo]☆,QSW1+300)-80;

{F10 Búsqueda de Datos}

Si F10=1 AND QSW>0 AND QSW1>0?AND JSW1>0?THEN{Medición Mundial de si la información está completa o no, si no, no hacer nada }

BEGIN

{Control de la situación de extracción de datos del campo de datos} f10str:=f10text(QSW,320); ,0)- 5; WZ2:=encontrarcadena(f10cadena,-,WZ1+10)-5; -5; WZ5 :=320;{buscar bit final} {tomar tiempo} T1:= strmid(f10str,WZ1,10); T2:= strmid(f10str,WZ2,10); 10):=strmid(f10str,WZ4,10); {Obtener el número de cuentas de accionistas} LS:=142; HS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); WZ2 HS3:=IF( WZ3 HS4 :=IF(WZ4 {Tome el número promedio de acciones que posee la familia} LS:=205; RS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); RS2:= IF(WZ2100,STRTONUM(strmid(f10str, WZ2+LS,10)), 0); RS3:=IF(WZ3100,STRTONUM(strmid(f10str,WZ3+LS,10)),0); WZ4100,STRTONUM(strmid(f10str,WZ4+ LS,10)),0); {Consulta de datos de los principales accionistas}.

f10str:=f10text(QSW1,JSW1-QSW1); HJW:=0;

{El bucle for es muy lento e insoportable, reemplácelo con la siguiente extensión

PARA i=1 a 4 COMIENCE SJT:=strfind( f10str,cuenta de acciones en circulación,HJW+15); si SJT JSW1 ENTONCES ROMPER;

?TT:=strmid(f10str) ,SJT- (44-21),10);

?HJW:=strfind(f10str,Total ? Count,SJT+300);

?Holding:= strtonum(strmid (f10str, HJW+6,44-12));

?Proporción:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

?ABC :=HJW+80-5+36;

?HJW:=ABC;

}

SJT:=strfind(f10str, participación de acciones en circulación,HJW+15);

TT[1]:=strmid(f10str,SJT-(44-21),10);{time}

HJW: =strfind( f10str,total?Count,SJT+300);

Holding[1]:= strtonum(strmid(f10str,HJW+6,44-12));

Proporción[1 ]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC.=HJW+80-5+36;

HJW: =ABC;

SJT:=strfind(f10str,% de acciones en circulación,HJW+15);

TT[2]:=strmid(f10str,SJT-( 44-21 ),10);{time}

HJW:= strfind(f10str,total?Count,SJT+300);

Holding[2]:= strtonum(strmid (f10str, HJW+6,44-12));

Proporción[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC.=HJW+80-5+36;

HJW:=ABC;

SJT:=strfind(f10str,% de acciones en circulación,HJW+15);

TT[3]:=strmid(f10str,SJT-(44-21),10);{time}

HJW:= strfind(f10str,total?Count,SJT +300) ;

Holding[3]:= strtonum(strmid(f10str,HJW+6,44-12));

Proporción[3]:= strtonum(strmid( f10str,HJW +6+45-12,51-45));

ABC.=HJW+80-5+36;

HJW:=ABC;

SJT:=strfind(f10str,% de acciones en circulación,HJW+15

);

TT[4]:=strmid(f10str,SJT-(44-21),10);{time}

HJW:= strfind(f10str,total?Count ,SJT+300);

Holding[4]:= strtonum(strmid(f10str,HJW+6,44-12));

Proporción[4]:= strtonum( strmid(f10str,HJW+6+45-12,51-45));

ABC.=HJW+80-5+36;

HJW:=ABC; p>

Actual:=Reteniendo[1];

Actual1:=Proporcionalidad[1];

Anterior:=Reteniendo[2];

Anterior1:=Proporcionalidad[2];

±Proporcionalidad:=Actual1-Anterior1;

Dos primeros:=Holdings[3];

Dos primeros 1 := Ratio[3];

Top 3:=Holdings[4];

Top 3 1:= Ratio[4];

{En Los cambios en las participaciones se muestran en la posición correspondiente}

{Sort}

Aumento de accionistas: (HS1-HS2)/HS2*100,PRECIS2,linethick2,Color008987;

Aumentar tenencias: (RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;

Los principales accionistas aumentan tenencias: (período actual-período anterior)/período anterior*100,PRECIS2,LINETHICK2 ,ColorFA7D7D;

Principales acciones negociables: (edición actual - edición anterior 1)/edición actual 1*100,PRECIS2,LINETHICK2,ColorFFA935;

{------- ----- -------Plantilla de ilustración---------------- ----}

A2:=0;

A3 :=1000;

AG:=INTPART((A3-A2)/10);

{Mostrar texto}

DRAWTEXTREL( 0,AG*0 , Número de accionistas), ColorFFC800;

DRAWTEXTREL(0,AG*2,Número de accionistas),ColorFA7D7D;

DRAWTEXTREL(0,AG*4, % de participación principal en circulación), ColorFA7D7D;

DRAWTEXTREL(0,AG*6,Participaciones principales (en 10.000)),ColorFA7D7D

DRAWTEXTREL(0,AG*8,tiempo de declaración; ),COLOR00DD00;

{Tenencias domésticas promedio}

DRAWTEXTREL(AG*8,0,NUMTOSTR(RS1)),ALIGN2,ColorFFC800;

DRAWTEXTREL( AG*6,0 ,NUMTOSTR(RS2 )),ALIGN2,ColorFFC800

DRAWTEXTREL(AG*4,0,NUMTOSTR(RS3 )),ALIGN2,ColorFFC800

DRAWTEXTREL( AG*2,0 ,NUMTOSTR(RS4 )),ALIGN2,ColorFFC800

{Número de accionistas}

D

RAWTEXTREL(AG*8,AG*2,NUMTOSTR(HS1)),ALIGN2,ColorFA7D7D;

DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(HS2)),ALIGN2,ColorFA7D7D

DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(HS3)),ALIGN2,ColorFA7D7D;

DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(HS4)),ALIGN2,ColorFA7D7D;

{Relación de corriente principal}

DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(Current1)),ALIGN2,COLORMAGENTA;

DRAWTEXTREL(AG*6,AG *4,NUMTOSTR(último período 1)),ALIGN2,COLORMAGENTA;

DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(dos anteriores 1)),ALIGN2,COLORMAGENTA

DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(tres primeros 1)),ALIGN2,COLORMAGENTA;

{10 mayores accionistas}

DRAWTEXTREL(AG*8, AG* 6,NUMTOSTR(período anterior)),ALIGN2,COLORRED;

DRAWTEXTREL(AG*6,AG*6,NUMTOSTR(período anterior)),ALIGN2,COLORRED

DRAWTEXTREL( AG*4,AG*6,NUMTOSTR(dos anteriores)),ALIGN2,COLORRED;

DRAWTEXTREL(AG*2,AG*6,NUMTOSTR(tres primeros)),ALIGN2,COLORRED < /p; >

{Tiempo}

DRAWTEXTREL(AG*8,AG*8,T1),ALIGN2,COLOR00DD00

DRAWTEXTREL(AG*6,AG*8, T2) ,ALIGN2,COLOR00DD00;

DRAWTEXTREL(AG*4,AG*8,T3),ALIGN2,COLOR00DD00;

DRAWTEXTREL(AG*2,AG*8,T4) ,ALIGN2 ,COLOR00DD00;

{Línea del gráfico de barras}

{Línea del gráfico de barras digitales reservada}

{STICKLINE(BARPOS=A3-AG*1 -10 AND HS1 >100,0,RS1,AG*3, 1),LINETHICK2,ColorFFDDFF;

STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG *3,1 ),LINETHICK2,ColorF1FFB5;

STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;

p>

STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1), LINETHICK2,ColorB9FFFF;}

{10 dibujos de los principales accionistas Curve}

{STICKLINE(BARPOS=A3-AG*1-6? y actual>

0,0,actual,AG*3,0),LINETHICK2,ColorFFDDFF;

STICKLINE(BARPOS=A3-AG*2-11 y elemento anterior>0,0,elemento anterior,AG*3, 0),LINETHICK2,ColorF1FFB5;

STICKLINE(BARPOS=A3-AG*3-16 y anterior>0,0,tres primeros,AG*3,0),LINETHICK2,ColorB9FFBC;

STICKLINE(BARPOS=A3-AG*4-21 AND TOP THREE>0,0,TOP THREE,AG*3,0),LINETHICK2,ColorB9FFFF;}

END;Descargar Universal's F10 y extraer a D:\D:\Program Files\dzh2\data\sh\BASE