shishantbiswas/c3c
1
1
Fork 0
mirror of https://github.com/c3lang/c3c.git synced 2026-02-27 03:51:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update formatting to consistently use tabs.

Browse Source
This commit is contained in:
Christoffer Lerno
2022-02-18 12:56:17 +01:00
parent bf5683b41c
commit 6b4e4f6114
10 changed files with 422 additions and 434 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
resources/examples/spectralnorm.c3
View File

@@ -18,10 +18,10 @@ fn void eval_A_times_u(double[] u, double[] au)
foreach (i, &val : au)
{
*val = 0;
foreach (j, uval : u)
foreach (j, uval : u)
{
*val += eval_A((int)(i), (int)(j)) * uval;
}
*val += eval_A((int)(i), (int)(j)) * uval;
}
}
}
@@ -30,10 +30,10 @@ fn void eval_At_times_u(double[] u, double[] au)
foreach (i, &val : au)
{
*val = 0;
foreach (j, uval : u)
foreach (j, uval : u)
{
*val += eval_A((int)(j), (int)(i)) * uval;
}
*val += eval_A((int)(j), (int)(i)) * uval;
}
}
}
@@ -47,21 +47,21 @@ fn int main(int argc, char **argv)
{
int n = (argc == 2) ? atoi(argv[1]) : 2000;
temparr = @array::make(double, n);
double[] u = @array::make(double, n);
double[] v = @array::make(double, n);
foreach(&uval : u) *uval = 1;
double[] u = @array::make(double, n);
double[] v = @array::make(double, n);
foreach(&uval : u) *uval = 1;
for (int i = 0; i < 10; i++)
{
eval_AtA_times_u(u, v);
eval_AtA_times_u(v, u);
}
double vBv;
double vv;
foreach (i, vval : v)
{
double vBv;
double vv;
foreach (i, vval : v)
{
vBv += u[i] * vval;
vv += vval * vval;
}
}
printf("%0.9f\n", sqrt(vBv / vv));
return 0;
}