<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<BODY>
<html>
<h2 align="center"> 

<font face="Arial" color="#990033"><br>Калкулятор Оффсета Моторамы </font></h2>
<center>
<br><br><br>
<font face="Arial" color="000000">
Оффсет моторамы, смещение её влево от осевой, необходим  для совмещения центра вала двигателя у пропеллера<br>
с осевой линией модели при выкосе двигателя вправо
<p>
Калкулятор даёт возможность расчитать и толщину прокладок для обеспечения выкоса. 
Смотри рисунок Pic B. <br><b> N </b>- ширина (для выкоса вправо) или высота (для выкоса вниз) моторамы,<b> М </b>- толщина прокладки.  

</center> <p>
<div align="center">
  <center>
<table border="1" width="690" height="210" bgcolor="CCFF99" cellpadding="20%">
<tr>
<th> Угол выкоса:</th><th><INPUT NAME=Angle SIZE=8></th>
</tr>
<tr>
<th>Растояние от моторамы у моторного шпангоута до опроной шайбы двигателя 
у пропеллера (или параметер N): </th><th> <INPUT NAME=Distance SIZE=8> </th>
</tr>
<tr>
<th  bgcolor=yellow>Оффсет Моторамы (или параметер M):</th><th bgcolor=yellow> <input type="text" name="Offset" size=8> </th>
</th>
</tr>
</table> 
</center>
</div>


 <p align="center"><img border="3" src="Engine_Offset.jpg"> &nbsp;&nbsp; <img border="3" src="trim.jpg"></p>

 

<!--mstheme--></font></body>
<script language="VBScript">

'----------------------------------
Sub Calculate

x = Angle.value
y = Distance.value


if x = "" or y = "" then
exit sub
end if


if isnumeric(x) and isnumeric (y) then
	Offset.value = FormatNumber( Distance.value * tan(Angle.value*3.141593/180),4)
else
	Offset.value = " "
	exit sub
end if

End Sub

'--------------------------------
Sub Angle_OnKeyup
call Calculate()
end sub
'-----------------------------------

Sub Distance_OnKeyup
call Calculate()
end sub
'-----------------------------------
Sub Offset_OnKeyUp
call Calculate()
end sub
'-----------------------------------
Sub B1_OnClick
x = Angle.value
y = Distance.value


if x = "" or y = "" then
exit sub
end if


if isnumeric(x) and isnumeric (y) then
	Offset.value = FormatNumber( Distance.value * tan(Angle.value*3.141593/180),4)
else
	Offset.value = " "
	exit sub
end if
end sub

</script> 

<script language="JavaScript">

 <!--
// No rightclick script.
// Find more great scripts and applets at the JavaFile!
// http://www.javafile.com
// Do not delete this header!

var message="Oops! Wrong button."; // Put your message for the alert box between the quotes.

// Don't edit below!

function click(e) {
if (document.all) {
if (event.button == 2) {
alert(message);
return false;
}
}
if (document.layers) {
if (e.which == 3) {
alert(message);
return false;
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
// --> 

</script>

<!-- End of  no right click script -->
</html>
 </BODY>
</HTML>