/[ascend]/trunk/models/solar/test_sunpos.a4c
ViewVC logotype

Contents of /trunk/models/solar/test_sunpos.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2573 - (show annotations) (download) (as text)
Mon Feb 20 23:03:16 2012 UTC (10 years, 4 months ago) by jpye
File MIME type: text/x-ascend
File size: 684 byte(s)
Merging models from Vikram Kadam. Awaiting checking.
1 REQUIRE "atoms.a4l";
2
3 REQUIRE "johnpye/sunpos.a4c";
4
5
6 MODEL example REFINES sunpos;
7
8 beta = 1.0* theta_z;
9
10 METHODS
11
12 METHOD specify;
13 FIX L_st, L_loc, phi; (* time and location *)
14 FIX gamma; (* surface orientation *)
15 FIX t_solar;
16 END specify;
17
18 METHOD values;
19 (*RUN sunpos::values;*)
20
21 t_solar := 43{d} + 15{h} + 30{min};
22
23 gamma := 90 {deg};
24
25
26 L_st := -90{deg}; (* USA Central time*)
27 L_loc := -89.4{deg};
28 phi := +43{deg};
29 END values;
30
31 METHOD self_test;
32 ASSERT abs(theta-35.0{deg}) < 0.15{deg};
33 ASSERT abs(delta-(-13.80{deg})) < 0.02{deg};
34 END self_test;
35
36 METHOD onload;
37 RUN specify;
38 RUN values;
39 END onload;
40
41 END example;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22