Llenar array

[[escafandra]]

Pero si lo usamos así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, iflag: integer;
  xx:       array[0..5] of double;
  planet:   array [1..12] of double;
  serr:     PChar;
  JulDay:   double;
begin
//  swe_set_ephe_path(PCHAR('c:\sweph\ephe\'));
  JulDay:= DateTimeToJulianDate(Date);
  iflag := 0;
  for i:= 1 to 12 do
  begin
    swe_calc(Date, i, iflag, xx[0], serr);
    planet[i]:= xx[0];
  end;
end;

Entonces no hay errores y los valores son:

0
0
0
0
0
0
0
0
0
188,01570562548
0
200,800942459646

Ahora bien, no tengo ni idea si eso es lo que se espera para la fecha de hoy.



Saludos.

[compuin]

Hola Escafandra

Te anexo el archivo con el projecto completo (Puse el link ya que no me deja ponerlos adjuntos )


https://www.astro.com/ftp/swisseph/sweph.zip

La Dll hace los calculos, pero existen unos archivos .se1 que aunque arrojan error no son necesarios (Son para calculo de asteroides)

La variable xx[0] se espera que arroje la longitud o posicion planetaria del sol, luna, mercurio, venus, marte, jupiter, saturn, urano, neptuno y pluton

Son 10 planetas, asi que seria del 1 al 10

[compuin]

Para la fecha de hoy esto es lo que se espera

deltat: 69.5103960890 sec
jul. day: 2458900.50000000 UT

Sun 331.8094127618
Moon 302.2187037435
Mercury 341.5633697228
Venus 15.2722542439
Mars 273.1099711227
Jupiter 287.8282244089
Saturn 297.2549903731
Uranus 33.3602165722
Neptune 347.7743860929
Pluto 294.0205054947
mean Node 95.5387999697
true Node 97.1857573215

Sid. time 10.5957212216
ARMC 158.9358183233
ascendant 230.7646482310
MC 157.2282506635
vertex 92.2206035689

house 1 230.7646482310
house 2 261.2501400084
house 3 298.8634035392
house 4 337.2282506635
house 5 8.4105200249
house 6 32.0604837022
house 7 50.7646482310
house 8 81.2501400084
house 9 118.8634035392
house 10 157.2282506635
house 11 188.4105200249
house 12 212.0604837022

[[escafandra]]

Ya, pero eso no es xx [0] que fue el origen de la pregunta y tampoco queda claro que son todos esos datos a no ser que seas entendido en la materia.

Saludos.

[compuin]

Empezado por escafandra

Ya, pero eso no es xx [0] que fue el origen de la pregunta y tampoco queda claro que son todos esos datos a no ser que seas entendido en la materia.

Saludos.

OK

Los datos de houses son las posiciones en una rueda que no esta presente en el codigo (no necesaria dibujarla)

Los calculos de la posicion de los planetas son mostrados en xx[0]

La pregunta original era como podia llenar un array llamado planeta a partir de este ultimo valor

[Casimiro Notevi]

Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

[ecfisa]

Hola.

Empezado por compuin

...
Los calculos de la posicion de los planetas son mostrados en xx[0]

La pregunta original era como podia llenar un array llamado planeta a partir de este ultimo valor

Entonces, la respuesta a esa pregunta sería algo así:

Código Delphi [-]
...
type
  VPlanet = array[1..12] of Double;

...

procedure LlenarPlaneta(Planet: VPlanet; const xx: Double); // donde: xx = ultimo valor
var
  i: Integer;
begin
  for i := Low(Planet) to High(Planet) do
    Planet[i] := xx;
end;

Saludos

[[escafandra]]

Este código es funcional con la dll swedll32.dll. Rellena el array con los datos pedidos y los muestra en un Memo:

Código Delphi [-]
var
  i:      integer;
  xx:     array[0..5]  of double;
  planet: array[1..12] of double;
  pName:  array[0..19] of Char;
  serr:   PChar;
  JulDay: double;
begin
  Memo1.Clear;
  JulDay:= DateTimeToJulianDate(Now);
  for i:= 1 to 10 do
  begin
    swe_calc(JulDay, i, 0, xx[0], serr);
    planet[i]:= xx[0];
    swe_get_planet_name(i, pName);
    Memo1.Lines.Add(Format('%s:   %3.5n', [pName, planet[i]]));
  end;
end;

Saludos.