Difference between revisions of ":APCHousesScript"
From Ingmar de Boer
(Created page with "<SCRIPT LANGUAGE="JavaScript"> <!-- hide this script tag's contents from old browsers function compute(form) { PH=(form.nPh.value=="")? "0" : eval(form.nPh.value); ECL=(...") |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
<SCRIPT LANGUAGE="JavaScript"> | <SCRIPT LANGUAGE="JavaScript"> | ||
| − | <!-- | + | <!-- |
function compute(form) { | function compute(form) { | ||
| Line 93: | Line 93: | ||
} | } | ||
| − | // | + | // --> |
</SCRIPT> | </SCRIPT> | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
<BR> | <BR> | ||
| Line 136: | Line 130: | ||
</PRE> | </PRE> | ||
</FONT> | </FONT> | ||
| + | |||
| + | </FORM> | ||
Latest revision as of 00:38, 9 April 2016
<SCRIPT LANGUAGE="JavaScript"> function sector(n, ph, ecl, az) {
var dasc, kv, a;
kv = ATan(Tan(ph) * Tan(ecl) * Cos(az)/(1 + Tan(ph) * Tan(ecl) * Sin(az)));
dasc = ATan(Sin(kv) / Tan(ph));
if (n<8) {a = kv + az + pi/2 + (n - 1) * (pi/2 - kv) / 3;}
else {a = kv + az + pi/2 + (n - 13) * (pi/2 + kv) / 3;}
return gra(ATan2(Tan(dasc) * Tan(ph) * Sin(az) + Sin(a),
Cos(ecl) * (Tan(dasc) * Tan(ph) * Cos(az) + Cos(a)) + Sin(ecl) * Tan(ph) * Sin(az - a)));
}
// --> </SCRIPT>
<FORM NAME="form">
Enter the appropriate values here
G.Lat <INPUT TYPE="text" NAME="nPh" SIZE=20> <INPUT TYPE="button" VALUE=" Reset form " OnClick="resetform(this.form)">
E <INPUT TYPE="text" NAME="ne" SIZE=20> <INPUT TYPE="button" VALUE=" Example data " OnClick="exampledata(this.form); compute(this.form);">
ARMC <INPUT TYPE="text" NAME="naz" SIZE=20> <INPUT TYPE="button" VALUE=" Calculate " OnClick="compute(this.form)">
APC Cusps
1 <INPUT TYPE="text" NAME="cusp1" SIZE=20> 7 <INPUT TYPE="text" NAME="cusp7" SIZE=20>
2 <INPUT TYPE="text" NAME="cusp2" SIZE=20> 8 <INPUT TYPE="text" NAME="cusp8" SIZE=20>
3 <INPUT TYPE="text" NAME="cusp3" SIZE=20> 9 <INPUT TYPE="text" NAME="cusp9" SIZE=20>
4 <INPUT TYPE="text" NAME="cusp4" SIZE=20> 10 <INPUT TYPE="text" NAME="cusp10" SIZE=20>
5 <INPUT TYPE="text" NAME="cusp5" SIZE=20> 11 <INPUT TYPE="text" NAME="cusp11" SIZE=20>
6 <INPUT TYPE="text" NAME="cusp6" SIZE=20> 12 <INPUT TYPE="text" NAME="cusp12" SIZE=20>
</FORM>
