For a description of the options used in the following examples, see CodeGenerationOptions.
>
|
|
Translate a simple expression and assign to the name in the target code.
>
|
|
w = -2 * x * z + y * z + x;
| |
Translate a list and assign to an array with name in the target code.
>
|
|
w[0,0] = x;
w[0,1] = 2 * y;
w[1,0] = 5;
w[1,1] = z;
| |
Translate a computation sequence. Optimize the input first.
>
|
|
>
|
|
s = 0.10e1 + x;
t1 = Math.Log(s);
t2 = Math.Exp(-x);
t = t2 * t1;
r = x * t + t2;
| |
Declare that is a float and is an integer. Return the result in a string.
>
|
|
| (1) |
Translate a procedure. Assume that all untyped variables have type integer.
>
|
f := proc(x, y, z) return x*y-y*z+x*z; end proc:
|
>
|
|
public class CodeGenerationClass {
public static System.Int32 f (System.Int32 x, System.Int32 y, System.Int32 z)
{
return y * x - y * z + x * z;
}
}
| |
Translate a procedure containing an implicit return. A new variable is created to hold the return value.
>
|
f := proc(n)
local x, i;
x := 0.0;
for i to n do
x := x + i;
end do;
end proc:
|
public class CodeGenerationClass {
public static System.Double f (System.Int32 n)
{
System.Double x;
System.Int32 i;
System.Double cgret;
x = 0.0e0;
for (i = 1; i <= n; i++)
{
x = x + (System.Double) i;
cgret = x;
}
return cgret;
}
}
| |
Translate a procedure accepting an Array as a parameter. Note that the indices are renumbered so that the CSharp array starts at index 0.
>
|
f := proc(x::Array(numeric, 5..7))
return x[5]+x[6]+x[7];
end proc:
|
public class CodeGenerationClass {
public static System.Double f (System.Double[] x)
{
return x[0] + x[1] + x[2];
}
}
| |
Translate a module.
>
|
m := module() export p; local q;
p := proc(x,y) if y>0 then trunc(x); else ceil(x); end if; end proc:
q := proc(x) sin(x)^2; end proc:
end module:
|
>
|
|
using System;
public class m {
public static System.Int32 p (System.Double x, System.Int32 y)
{
if (0 < y)
return (System.Int32)(x);
else
return (System.Int32)Math.Ceiling(x);
}
private static System.Double q (System.Double x)
{
return Math.Pow(Math.Sin(x), 0.2e1);
}
}
| |
Translate a linear combination of hyperbolic trigonometric functions.
>
|
|
cg0 = 0.2e1 * (Math.Exp(x) + Math.Exp((-0.1e1) * x)) / 0.2e1 - 0.7e1 * (Math.Exp(0.2e1 * x) - 0.1e1) / (Math.Exp(0.2e1 * x) + 0.1e1);
| |
Translate a procedure with no return value containing a printf statement.
>
|
f := proc(a::integer, p::integer)
printf("The integer remainder of %d divided by %d is: %d\n", a, p, irem(a, p));
end proc:
|
using System;
public class CodeGenerationClass {
public static void f (System.Int32 a, System.Int32 p)
{
Console.WriteLine("The integer remainder of " + a + " divided by " + p + " is: " + a % p);
}
}
| |