Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

Traduciendo Funcion hecha en C a Delphi?

Comenzado por c0lo , jul 06 2009 04:07

Por favor identifícate para responder

18 respuestas en este tema

#1 c0lo

Advanced Member

Miembro Platino
241 mensajes

LocationLima-Peru

Escrito 06 julio 2009 - 04:07

Bueno hola a todos, y recuro a toda la comunidad para ver si me podrian ayudar en el siguiente problema que me hice.

Lo que tengo primeramente es una funcion que alguien una persona X lo desarrollo y lo cual yo quiero llevarlo al Delphi, es decir, como no puedo usar C en Delphi o bueno por lo poco que se, no se puede o no e visto ejemplos, lo que quiero es pasar la funcion a Delphi y poder usarlo ahi.

cpp

int getpower (int x, int y, int angle, int w_power, int w_angle, int x2, int y2)
{
	const double DEGTORAD = 0.0174532925199433;	
 
	const double const1 = -8.0;
	const double const2 = -60.0;
	const double const3 = 840.0;
	const double const4 = 5000.0;
 
	double distance, 
		   old_distance = 9999;
 
	double x_v, y_v, x_v2, y_v2, temp_x_v, temp_y_v,			
           	   xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2;
 
	int power, hit_power;
 
	x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * 0.74;
	y_v2 = (int)(sin(w_angle * DEGTORAD) * w_power) * 0.74 - 73.5;
 
	xx = x;
	delta_yy = delta_y = 600 - y;	// resolution is 800 x 600
 
	power = 0;						// power range is 0 - 400
 
	temp_x_v = x_v = cos(angle * DEGTORAD);
	temp_y_v = y_v = sin(angle * DEGTORAD);
 
	do {		
		temp_x_v = x_v * power;		
		temp_y_v = y_v * power;
 
		xxx = xx;
		delta_yyy = delta_yy;
 
		if (delta_yyy <= 0) 
			goto loc1;				// proper if/else here..
 
		while (1) {
 
			// avoid infinite loop			
			if (xxx <= const2) break;
			if (xxx >= const3) break;
			if (delta_yyy >= const4) break;
 
			delta_y2 = 600 - y2;		
 
			xxx += temp_x_v * 0.05;
			delta_yyy += temp_y_v * 0.05;
 
			temp_x_v += x_v2 * 0.05;
			temp_y_v += y_v2 * 0.05;		
 
			distance = sqrt(pow((delta_y2 - delta_yyy),2) + pow((x2 - xxx),2));			
 
			if (old_distance > distance) 
			{
				old_distance = distance;
 
				// keep current power 				
				hit_power = power;
			}		
 
			if (delta_yyy < 0) break;	
 
		}
loc1:
		power++;
 
	} while (power <= 400);
 
	return hit_power;
}

Y dicha funcion, cuando le introdusco los siguientes valores obtengo:

getpower(529, 180, 41, 18, 351, 262, 216); -> 145

Lo e compilado en c y me sale perfecto, pero ahora lo que hice fue intentar traducir el codigo y llevarlo a Delphi:

delphi

function getpower( x:integer; y:integer; angle:integer; w_power:integer; w_angle:integer; x2:integer; y2:integer):integer;
const
	DEGTORAD : double = 0.0174532925199433;
  const1 : double = -8.0;
	const2 : double = -60.0;
	const3 : double = 840.0;
	const4 : double = 5000.0;
var
	distance : double;
  old_distance : double;// = 9999;
	x_v, y_v, x_v2, y_v2 : double;
  temp_x_v, temp_y_v : double;
  xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2 : double;
  powerc, hit_power : integer;
label
  loc1;
begin
  old_distance := 9999;
 
	//compute horizontal/wind
	x_v2 := cos(w_angle * DEGTORAD) * w_power * 0.74;
 
	//compute downward/gravity
	y_v2 := sin(w_angle * DEGTORAD) * w_power * 0.74 - 73.5;
 
	xx := x;
  delta_y := 600 - y;	// resolution is 800 x 600
	delta_yy := delta_y;
 
	powerc := 0;						// power range is 0 - 400
 
  x_v := cos(angle * DEGTORAD);
	temp_x_v :=x_v;
  y_v := sin(angle * DEGTORAD);
	temp_y_v := y_v;
 
  Repeat
		temp_x_v := x_v * powerc;
		temp_y_v := y_v * powerc;
 
		xxx := xx;
		delta_yyy := delta_yy;
 
    //temp_x_v := temp_x_v * -1;
 
		if (delta_yyy <= 0) then
	 		goto loc1;				// proper if/else here..
 
		while True do
    begin
			// avoid infinite loop
			if (xxx <= const2) then break;
			if (xxx >= const3) then break;
			if (delta_yyy >= const4) then break;
 
			delta_y2 := 600 - y2;
 
			// calc projectile x,y coord
			xxx := xxx + temp_x_v * 0.05;
			delta_yyy := delta_yyy + temp_y_v * 0.05;
 
			// calc projectile x,y velocity (+ wind/gravity)
			temp_x_v := temp_x_v + x_v2 * 0.05;
			temp_y_v := temp_y_v + y_v2 * 0.05;
 
			distance := sqrt(power((delta_y2 - delta_yyy),2) + power((x2 - xxx),2));
 
			if (old_distance > distance) then
      begin
				old_distance := distance;
				// keep current power  
				hit_power := powerc;
			end;
 
		 	if (delta_yyy < 0) then break;
 
    end;
loc1:
	 	powerc := powerc + 1;
  Until (powerc <= 400);
 
  result := hit_power;
end;

y para el mismo calculo anterior realizado en c, en delphi obtengo lo siguiente:

label1.Caption := intToStr(getpower(529, 180, 41, 18, 351, 262, 216)); -> 0

si alguien podria ayudarme a traducir dicha funcion en c a delphi.

Gracias

Edito: He modificado las etiquetas para que el código se vea mejor.

0

Volver arriba

#2 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 06 julio 2009 - 05:05

El problema de que no te funcione tiene que ver con los tipos de datos. Viendo rápidamente el código que expones en C veo que realiza castings en las operaciones que luego tu no realizas:

cpp

   x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile];
// realiza un acst a int de la expresión cos(w_angle * DEGTORAD) * w_power antes de multiplicarla por g_table2[g_mobile]
.........

La traduces directamente por:

delphi

   x_v2 := cos(w_angle * DEGTORAD) * w_power * 0.74;

Si haces un debug para ver el resultado en delphi y en C... No tiene nada que ver.

Lamentablemente mis conocimientos de delphi no son tan profundos como para realizar una traducción directa

. Se me ocurre declarar variables de los tipos necesarios para el casting para luego asignar los valores obtenidos a la variable verdadera... pero eso complicaría el código (aunque seguramente funcionará).Probablemente exista una forma en delphi de realizar esas conversiones como en C pero yo la desconozco, y ahora me pica la curiosidad. Si lo descubro, te lo mostraré, de momento esperemos que alguien del foro de una respuesta mejor. *-)

Saludos.

0

Volver arriba

#3 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 06 julio 2009 - 05:18

Hice un debug del código delphi y veo que nunca entra en esta comparación, por lo que el retorno de la funcion es cero siempre.

delphi

if (old_distance > distance) then begin
   old_distance := distance;
   // keep current power
   hit_power := powerc;
end;

old_distance siempre es menor que distance, excepto la primera vez que old_distance es 9999 ~~siempre son iguales~~, .

Salud OS

0

Volver arriba

#4 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 06 julio 2009 - 05:21

Hola

La función la puedes escribir de esta forma tambien.

delphi

function getpower(x, y, angle, w_power, w_angle, x2, y2:integer):integer;
begin
  {.............}
end;

Salud OS

0

Volver arriba

#5 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 06 julio 2009 - 05:41

Hice un debug del código delphi y veo que nunca entra en esta comparación, por lo que el retorno de la funcion es cero siempre.
delphi
if (old_distance > distance) then begin
   old_distance := distance;
   // keep current power
   hit_power := powerc;
end;
old_distance siempre es menor que distance ~~siempre son iguales~~, .

Salud OS

Claro, sin embargo si la compilas en C, si entra en la condición mencionada. El meollo de la cuestión son las conversiones de tipo en las operaciones y en las variables. C tiene esas facilidades intrínsecas y sobre la marcha. La cuestión es traducir esos cambios en su momento concreto en el código delphi. *-)

Saludos.

0

Volver arriba

#6 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 06 julio 2009 - 05:46

Pues si, literalmente el codigo C yo lo haría de esta forma

delphi

   //compute horizontal/wind
   x_v2 := int((cos(w_angle * DEGTORAD) * w_power)) * 0.74;
   //compute downward/gravity
   y_v2 := int((sin(w_angle * DEGTORAD) * w_power)) * 0.74 - 73.5;

Pero pues no se como maneja C esos cast :embarrassed:

Salud OS

0

Volver arriba

#7 axesys

Advanced Member

Moderadores
640 mensajes

LocationLos Mochis

Escrito 06 julio 2009 - 05:48

Y si agregas parentesis para que primero se haga la suma no funcionará

delphi

// calc projectile x,y coord
xxx := (xxx + temp_x_v) * 0.05;
delta_yyy := (delta_yyy + temp_y_v) * 0.05;
 
// calc projectile x,y velocity (+ wind/gravity)
temp_x_v := (temp_x_v + x_v2) * 0.05;
temp_y_v := (temp_y_v + y_v2) * 0.05;

0

Volver arriba

#8 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 06 julio 2009 - 05:51

Pues no

delphi

    	if (xxx <= const2) then goto loc2;
    	if (xxx >= const3) then goto loc2;
	    if (delta_yyy >= const4) then goto loc2;
    	delta_y2 := 600 - y2;
    	// calc projectile x,y coord
    	xxx := (xxx + temp_x_v) * 0.05;
    	delta_yyy := (delta_yyy + temp_y_v) * 0.05;
	    // calc projectile x,y velocity (+ wind/gravity)
	    temp_x_v := (temp_x_v + x_v2) * 0.05;
	    temp_y_v := (temp_y_v + y_v2) * 0.05;

Salud OS

0

Volver arriba

#9 c0lo

Advanced Member

Miembro Platino
241 mensajes

LocationLima-Peru

Escrito 06 julio 2009 - 06:58

delphi

temp_x_v += x_v2 * 0.05;

es igual a :

delphi

temp_x_v = temp_x_v + x_v2 * 0.05;

Primero se multiplica en C y luego eso lo suma con el valor de temp_x_v.

Aun no encuentro el error en la conversion

0

Volver arriba

#10 c0lo

Advanced Member

Miembro Platino
241 mensajes

LocationLima-Peru

Escrito 06 julio 2009 - 07:03

La ultima alternativa que seria mi ultima opcion y que en este viendo que no se logra hacer mucho, es introducir la funcion en una dll, en c y luego leer o usar a funcion en delphi.

:embarrassed:

0

Volver arriba

#11 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 06 julio 2009 - 07:10

La ultima alternativa que seria mi ultima opcion y que en este viendo que no se logra hacer mucho, es introducir la funcion en una dll, en c y luego leer o usar a funcion en delphi.

Esa es una alternativa, pero...... mas bien necesitamos un poco mas de estudio del code, de que se puede con delphi se puede.

Salud OS

0

Volver arriba

#12 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 07 julio 2009 - 07:16

Después de analizar mas despacio el código C y la traducción a delphi vi la solución a la conversión de tipos y los errores cometidos, por omisión, en puntos vitales del código.

He de aclarar que en el código C original existen variables globales que se declaran en la función delphi. En caso de que se necesitasen como globales, habría que trasladarlas de sitio.

Aquí dejo la traducción, que funciona para los valores dados:

delphi

function getpower( x:integer; y:integer; angle:integer; direction:integer; w_power:integer; w_angle:integer; x2:integer; y2:integer; backshot:BYTE):integer;
const
   DEGTORAD : double = 0.0174532925199433;
   const1 : double = -8.0;
   const2 : double = -60.0;
   const3 : double = 840.0;
   const4 : double = 5000.0;
var
   g_mobile, g_X, g_Y : variant;
   distance : double;
   old_distance : double;// = 9999;
   x_v, y_v, x_v2, y_v2 : variant;
   temp_x_v, temp_y_v : double;
   xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2 : double;
   powerc, hit_power : integer;
label
   loc1;
begin
   old_distance := 9999;
 
   //compute horizontal/wind
   x_v2 := Int(cos(w_angle * DEGTORAD) * w_power) * 0.74;
 
   //compute downward/gravity
   y_v2 := Int(sin(w_angle * DEGTORAD) * w_power) * 0.74 - 73.5;
 
   xx := x;
   delta_y := 600 - y;   // resolution is 800 x 600
   delta_yy := delta_y;
 
   powerc := 0;                  // power range is 0 - 400
 
   x_v := cos(angle * DEGTORAD);
   temp_x_v :=x_v;
  y_v := sin(angle * DEGTORAD);
   temp_y_v := y_v;
 
  Repeat
      temp_x_v := double(x_v) * powerc;
      temp_y_v := double(y_v) * powerc;
 
      xxx := xx;
      delta_yyy := delta_yy;
 
      if(direction = 0) then
        temp_x_v := temp_x_v * -1;
 
      if (delta_yyy <= 0) then
          goto loc1;            // proper if/else here..
 
      while True do
      begin
         // avoid infinite loop
         if (xxx <= const2) then break;
         if (xxx >= const3) then break;
         if (delta_yyy >= const4) then break;
 
         delta_y2 := 600 - y2;
 
         // calc projectile x,y coord
         xxx := xxx + temp_x_v * 0.05;
         delta_yyy := delta_yyy + temp_y_v * 0.05;
 
         // calc projectile x,y velocity (+ wind/gravity)
         temp_x_v := temp_x_v + double(x_v2) * 0.05;
         temp_y_v := temp_y_v + double(y_v2) * 0.05;
 
         distance := sqrt(Power((delta_y2 - delta_yyy),2) + power((x2 - xxx),2));
 
         if (old_distance > distance) then
         begin
            old_distance := distance;
            g_X := int(xxx);
            g_Y := int(delta_yyy);
            // keep current power
            hit_power := powerc;
         end;
 
          if (delta_yyy < 0) then break;
 
    end;
loc1:
       powerc := powerc + 1;
  Until (powerc > 400);
 
  result := hit_power;
 
end;

delphi

var
   d : integer;
begin
 
   d := getpower(529, 180, 41, 0, 18, 351, 262, 216, 0); // como en el original de C...

Saludos.

0

Volver arriba

#13 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 07 julio 2009 - 09:24

Hey

Me ganaste por un pelito de rana calva

Hice lo mismo que tu pero me faltó la conversión de estas lineas

delphi

      temp_x_v := double(x_v) * powerc;
      temp_y_v := double(y_v) * powerc;
//......
       temp_x_v := temp_x_v + double(x_v2) * 0.05;
       temp_y_v := temp_y_v + double(y_v2) * 0.05;

Salud OS

0

Volver arriba

#14 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 07 julio 2009 - 11:10

En realidad faltaban mas cosas, había reducido el número de parámetros, quizás por la dificultad de traducir algunas cosas y contracciones de C.

Ahora que me fijo, hay dos versiones de la fuente en C. Yo he trabajado sobre esta que es la que da como resultado 145:

cpp

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <math.h>
 
int getpower (int, int, int, int, int, int, int, int, char);
 
#define Armor 0
 
double g_table1[] = {
   73.5,   // Armor
};
 
double g_table2[] = {
   0.74,   // Armor
};
 
int g_mobile, g_X, g_Y;   
 
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstnace, LPSTR lpCmdLine, int nShowCmd)
{
   g_mobile = Armor;
   getpower(529, 180, 41, 0, 18, 351, 262, 216, 0);   
   
   return TRUE;   
}
 
int getpower (int x,  int y, int angle, int direction, int w_power, int w_angle, int x2, int y2, char backshot)   
{
   const double DEGTORAD = 0.0174532925199433;   
   
   const double const1 = -8.0;
   const double const2 = -60.0;
   const double const3 = 840.0;
   const double const4 = 5000.0;
 
   double distance,
   old_distance = 9999;
   
   double x_v,    //
         y_v,    //
         x_v2,    //
         y_v2,   //
         temp_x_v,
         temp_y_v,         
         xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2;
   
   int power, hit_power;
      
   x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile];
   
   y_v2 = (int)(sin(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile] - g_table1[g_mobile];
   
   g_X = x;   
   g_Y = y;   
 
   xx = x;
   delta_yy = delta_y = 600 - y;   
   
   power = 0;                  
 
   temp_x_v = x_v = cos(angle * DEGTORAD);
   temp_y_v = y_v = sin(angle * DEGTORAD);
 
   do {      
      temp_x_v = x_v * power;      
      temp_y_v = y_v * power;
   
      xxx = xx;
      delta_yyy = delta_yy;
   
      if (!direction)             
         temp_x_v = temp_x_v * -1;            
         
      
      if (delta_yyy <= 0)
         goto loc1;            
      
      while (1) {
      
         if (xxx <= const2) break;
         if (xxx >= const3) break;
         if (delta_yyy >= const4) break;
 
         delta_y2 = 600 - y2;
      
         xxx += temp_x_v * 0.05;
         delta_yyy += temp_y_v * 0.05;
            
         temp_x_v += x_v2 * 0.05;
         temp_y_v += y_v2 * 0.05;      
      
         distance = sqrt(pow((delta_y2 - delta_yyy),2) + pow((x2 - xxx),2));         
      
         if (old_distance > distance)
         {
            old_distance = distance;
            
            g_X = (int)xxx;         
            g_Y = (int)delta_yyy;      
            
            hit_power = power;
         }      
      
         if (delta_yyy < 0) break;   
            
      }
loc1:
      power++;
 
   } while (power <= 400);
 
   return hit_power;
}

La traducción de este código es la expuesta en este mensaje Ambas dán como resultado 145.

Sin embargo hay que señalar que el código C expuesto en el mensaje del principio no da 145 sino cero. Quizás este detalle ha confundido a egostar

...Y dicha funcion, cuando le introdusco los siguientes valores obtengo:

getpower(529, 180, 41, 18, 351, 262, 216); -> 145

Lo e compilado en c y me sale perfecto, ....

No, c0lo, ese código da cero...

No se cual es la que realmente le interesa pero de cualquier forma la conversión de tipos se debe hacer como mi amigo egostar y yo mismo hemos concretado.

Me ganaste por un pelito de rana calva

Bueno otro día seguro que ganas tu.

Saludos.

0

Volver arriba

#15 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 07 julio 2009 - 11:15

Hola

Efectivamente, el asunto es que en el codigo delphi veo esto

delphi

if (delta_yyy <= 0) then

cuando deberia ser

delphi

if (delta_yyy > 0) then

Solo agregando algo mas, hay algunos Warnings a la hora de compilar el programa, lo que se evita (como bien apuntabas amigo escafandra) a que deben estar en la sección de variables globales

delphi

var
  Form1: TForm1;
  temp_x_v, temp_y_v : double;
  g_mobile : variant;

Además de que la variable hit_power debería de inicializarse en cero al inicio de la función para que ya no muestre esos errores.

Salud OS

0

Volver arriba

#16 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 07 julio 2009 - 11:24

Y un error muy importante en el bucle principal, mientras que en C tiene la expresión

cpp

do{
//.......
 
}while  (power <= 400);

Es decir se mantiene el bucle mientras power sea menor o igual a 400, lo traduce como:

delphi

Repeat
//..................  
Until (powerc <= 400);

cuando lo correcto sería:

delphi

Repeat
//..................  
Until (powerc > 400);

Saludos.

0

Volver arriba

#17 egostar

missing my father, I love my mother.

Administrador
14.460 mensajes

LocationMéxico

Escrito 07 julio 2009 - 11:25

Ah vaya, eso si es importantisimo, creo que de ahi viene mi confusion, lo que es no saber como funciona el lenguaje C

Salud OS

0

Volver arriba

#18 c0lo

Advanced Member

Miembro Platino
241 mensajes

LocationLima-Peru

Escrito 07 julio 2009 - 07:06

Gracias a egostar y escafandra, por la gran ayuda y disculpen me olvide las conversiones, pense en lo que primero se me venia a la mente y no deduci correctamente.

Muchas Gracias Totales!!!

:cool:

0

Volver arriba

#19 Fenareth

Advanced Member

Administrador
3.486 mensajes

LocationMexico City

Escrito 07 julio 2009 - 10:32

.....
Muchas Gracias Totales!!!

[off-topic] :-* aguas con Gustavo Cerati eh !!!, puede querer cobrar regalías

[/off-topic]

0

Volver arriba

Volver a API

Traduciendo Funcion hecha en C a Delphi?

#1 c0lo

#2 escafandra

#3 egostar

#4 egostar

#5 escafandra

#6 egostar

#7 axesys

#8 egostar

#9 c0lo

#10 c0lo

#11 egostar

#12 escafandra

#13 egostar

#14 escafandra

#15 egostar

#16 escafandra

#17 egostar

#18 c0lo

#19 Fenareth

Iniciar sesión