<script
language="javascript"
type="text/javascript">
var
c1;
var
c2;
var
convert_to_degrees =
(2*3.1415)/360.0;
function
compute_pen(c1,c2,r,ang)
{
if
(is_number(r))
{
new_pen
=
Math.pow((c1*Math.exp(-c2*range3)),0.7);
if
(is_number(ang))
{
ang
=
parseInt(ang);
ang
=
ang*convert_to_degrees;
new_pen
=
new_pen*Math.pow(Math.cos(ang),1.5);
}
return
Math.round(new_pen);
}
else
{
return
"";
}
}
function
is_number(a_string)
{
tc
=
a_string.charAt(0);
if
(tc
==
"0"
||
tc ==
"1"
||
tc ==
"2"
||
tc ==
"3"
||
tc ==
"4"
||
tc ==
"5"
||
tc ==
"6"
||
tc ==
"7"
||
tc ==
"8"
||
tc ==
"9")
{
return
true;
}
else
{
return
false;
}
}
function
compute_constants(form)
{
range1
=form.inputrange1.value;
range2
=form.inputrange2.value;
pen1
=
form.pen1.value;
pen2
=form.pen2.value;
if
(is_number(range1)
&&
is_number(range2)
&&
is_number(pen1)
&&
is_number(pen2))
{
range1
=
parseInt(range1);
range2
=
parseInt(range2);
pen1
=
parseInt(pen1);
pen2
=
parseInt(pen2);
ang1
=
form.ang1.value;
ang2
=
form.ang2.value;
if
(is_number(ang1))
{
ang1
=
parseInt(ang1);
ang1
=
ang1 *
convert_to_degrees;
pen1
=
pen1/Math.pow(Math.cos(ang1),1.5);
}
if
(is_number(ang2))
{
ang2
=
parseInt(ang2);
ang2
=
ang2 *
convert_to_degrees;
pen2
=
pen2/Math.pow(Math.cos(ang2),1.5);
}
c2 =
Math.log(Math.pow(pen2,1.4286)/Math.pow(pen1,1.4286))/(-range2
+
range1);
temp
=
(range1*c2);
c1
=
Math.pow(pen1,1.4286)
*
Math.exp(temp);
return
true;
}
else
{
alert("You
need to enter two different ranges and the penetration at those ranges.");
return
false;
}
}
function
armorpen(form)
{
if
(compute_constants(form))
{
range3
=
form.computerange1.value;
ang
=
form.c_ang_1.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen1.value
=
new_pen;
range3
=
form.computerange2.value;
ang
=
form.c_ang_2.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen2.value
=
new_pen;
range3
=form.computerange3.value;
ang
=
form.c_ang_3.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen3.value
=
new_pen;
range3
=form.computerange4.value;
ang
=
form.c_ang_4.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen4.value
=
new_pen;
range3
=form.computerange5.value;
ang
=
form.c_ang_5.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen5.value
=
new_pen;
range3
=form.computerange6.value;
ang
=
form.c_ang_6.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen6.value
=
new_pen;
range3
=form.computerange7.value;
ang
=
form.c_ang_7.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen7.value
=
new_pen;
range3
=form.computerange8.value;
ang
=
form.c_ang_8.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen8.value
=
new_pen;
range3
=form.computerange9.value;
ang
=
form.c_ang_9.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen9.value
=
new_pen;
range3
=form.computerange10.value;
ang
=
form.c_ang_10.value;
new_pen
=
compute_pen(c1,c2,range3,ang);
form.computepen10.value
=
new_pen;
}
}
</script>
<center>
<FORM>
<H3>Gun
Type</H3>
<INPUT
NAME="gunname"
TYPE="text"
SIZE="30">
<PRE>
Range Penetration Angle</PRE>
<INPUT
NAME="inputrange1"
TYPE="text"
SIZE="10"
VALUE
=
"500">
<INPUT
NAME="pen1"
TYPE="text"
SIZE="10"
>
<INPUT
NAME="ang1"
TYPE="text"
SIZE="10">
<BR>
<INPUT
NAME="inputrange2"
TYPE="text"
SIZE="10"
VALUE
=
"1000">
<INPUT
NAME="pen2"
TYPE="text"
SIZE="10"
>
<INPUT
NAME="ang2"
TYPE="text"
SIZE="10">
<BR>
<INPUT
NAME="compute"
TYPE="button"
VALUE="Compute"
onClick="armorpen(this.form)">
<BR>
<HR>
<INPUT
NAME="computerange1"
TYPE="text"
SIZE="10"
VALUE
=
"250">
<INPUT
NAME="computepen1"
TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_1"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange2"
TYPE="text"
SIZE="10"
VALUE
=
"500">
<INPUT
NAME="computepen2"
TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_2"
TYPE="text"
SIZE="10">
<BR>
<INPUT
NAME="computerange3"
TYPE="text"
SIZE="10"
VALUE
=
"750">
<INPUT
NAME="computepen3"
TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_3"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange4"
TYPE="text"
SIZE="10"
VALUE
=
"1000">
<INPUT
NAME="computepen4"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_4"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange5"
TYPE="text"
SIZE="10"
VALUE
=
"1250">
<INPUT
NAME="computepen5"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_5"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange6"
TYPE="text"
SIZE="10"
VALUE
=
"1500">
<INPUT
NAME="computepen6"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_6"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange7"
TYPE="text"
SIZE="10"
VALUE
=
"1750">
<INPUT
NAME="computepen7"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_7"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange8"
TYPE="text"
SIZE="10"
VALUE
=
"2000">
<INPUT
NAME="computepen8"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_8"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange9"
TYPE="text"
SIZE="10">
<INPUT
NAME="computepen9"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_9"
TYPE="text"
SIZE="10"><BR>
<INPUT
NAME="computerange10"
TYPE="text"
SIZE="10">
<INPUT
NAME="computepen10"TYPE="text"
SIZE="10">
<INPUT
NAME="c_ang_10"
TYPE="text"
SIZE="10"><BR>
</FORM>
</center>
