Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.

Ps here is my GOTO Autocad command.

Quote from: MP on March 23, 2020, 12:13:20 AM

Coolio! I took my first programming course on a IIC. Th

Yesterday, I compile this source to (fas for Autocad)  and (des for BrisCad)
The programe Decompilator-exe can restore, reveal 100%autolisp-source?

Code: [Select]

       len=php_strlen(utmZone);
       // Changed from utmZone.Last as the Linq version is much slower than simply indexing
       // the last position in the string's array of characters
       if (len>1)
              {   isNorthHemisphere = substr(utmZone,len,1),
                  diflat = -0.00066286966871111111111111111111111111,
  diflon = -0.0003868060578,
                  utmZone = substr(utmZone,1,len-1);
  c_sa = 6378137.000000;
  c_sb = 6356752.314245;
  e2 = math_pow((math_Pow(c_sa, 2) - Math_Pow(c_sb, 2)), 0.5) / c_sb;
  e2cuadrada = Math_Pow(e2, 2);
  c = math_pow(c_sa, 2) / c_sb;
  x = utmX - 500000;
                  isNorthHemisphere =(isNorthHemisphere >"N")?T:nil;
  y = isNorthHemisphere ? utmY : utmY - 10000000;
                  zone=atoi(utmZone);
  s = ((zone * 6.0) - 183.0);
  lat = y / (6366197.724 * 0.9996); // Change c_sa for 6366197.724
  v = (c / math_pow(1 + (e2cuadrada * math_pow(cos(lat), 2)), 0.5)) * 0.9996;
  a = x / v;
  a1 = sin(2 * lat);
  a2 = a1 * math_pow((cos(lat)), 2);
  j2 = lat + (a1 / 2.0);
  j4 = ((3 * j2) + a2) / 4.0;
                  j6 = (5 * j4 + a2 * math_pow((cos(lat)), 2)) / 3.0; // saque a2 de multiplicar por el coseno de lat y elevar al cuadrado
  alfa = (3.0 / 4.0) * e2cuadrada;
  beta = (5.0 / 3.0) * math_pow(alfa, 2);
  gama = (35.0 / 27.0) * math_pow(alfa, 3);
  bm = 0.9996 * c * (lat - alfa * j2 + beta * j4 - gama * j6);
  b = (y - bm) / v;
                  epsi = ((e2cuadrada * math_pow(a, 2)) / 2.0) * math_pow((cos(lat)), 2);
                  eps = a * (1 - (epsi / 3.0));
  nab = (b * (1 - epsi)) + lat;
  senoheps = (math_exp(eps) - Math_Exp(-eps)) / 2.0;
  delt = atan(senoheps / (cos(nab)));
  tao = atan(cos(delt) * sin(nab) / cos(nab));
                  longitude = (delt / Math_PI) * 180 + s;
  latitude = (((lat + (1 + e2cuadrada * math_pow(cos(lat), 2) - (3.0 / 2.0) * e2cuadrada * sin(lat) * cos(lat) * (tao - lat)) * (tao - lat))) / Math_PI) * 180.0; // era incorrecto el calculo
  rr=strcat("\nLatitud: " ,rtos(latitude,2,12),"\tLongitud: " , rtos(longitude,2,12));