source: CIVL/examples/arithmetic/mean.cvl@ 9705dfd

1.23 2.0 main test-branch
Last change on this file since 9705dfd was b96205d, checked in by Stephen Siegel <siegel@…>, 13 years ago

Cleaned up some examples, fixed playback to the trace payed back has the exact same number of steps as original, cleaned up some examples.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@264 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 436 bytes
Line 
1$input int B;
2$input int n;
3$assume 1<=n && n<=B;
4$input double a[n];
5double s;
6
7void main() {
8 double mean1() {
9 double sum=0.0;
10
11 for (int i=0; i<n; i++)
12 sum += a[i];
13 return sum/n;
14 }
15 double mean2() {
16 double result=a[0];
17
18 for (int i=1; i<n; i++)
19 result = result*(i*1.0/(i+1)) + a[i]/(i+1);
20 return result;
21 }
22 double result1 = mean1();
23 double result2 = mean2();
24 $assert result1==result2;
25}
Note: See TracBrowser for help on using the repository browser.