API tools faq
paste
Advertisement
GengenWer

Autoit Interest Calculator

GengenWer
Feb 5th, 2018
150
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 45.75 KB | None | 0 0
raw download clone embed print report
  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  4. #Region ### START Koda GUI section ### Form=
  5. $Form1 = GUICreate("Recursive Formula Calculator", 335, 437, 571, 163)
  6. $Button1 = GUICtrlCreateButton("Arithmetic", 40, 32, 105, 33)
  7. $Button2 = GUICtrlCreateButton("Geometric", 192, 32, 97, 33)
  8. $Button3 = GUICtrlCreateButton("Shifted Geometric", 40, 120, 105, 33)
  9. $Button4 = GUICtrlCreateButton("Limit", 192, 120, 105, 33)
  10. GUISetState(@SW_SHOW)
  11. #EndRegion ### END Koda GUI section ###
  12.  
  13. While 1
  14.     $nMsg = GUIGetMsg()
  15.     Switch $nMsg
  16.         Case $GUI_EVENT_CLOSE
  17.             Exit
  18.          Case $Button1
  19.             ArithmeticFunc()
  20.          Case $Button2
  21.             Geometric()
  22.          Case $Button3
  23.             ShiftedGeometricFunc()
  24.          Case $Button4
  25.             Limit()
  26.  
  27.     EndSwitch
  28. WEnd
  29.  
  30.  
  31.  
  32. Func ArithmeticFunc()
  33.  
  34.    Local $u1 = InputBox("Intrest Calculator", "Please enter your starting value: ", "", "", _
  35.              - 1, -1, 0, 0)
  36.  
  37.  
  38.    Local $commonDifference = InputBox("Intrest Calculator", "Please enter your Common Difference: ", "", "", _
  39.              - 1, -1, 0, 0)
  40.  
  41.    Local $n = InputBox("Intrest Calculator", "Please enter your n value: ", "", "", _
  42.              - 1, -1, 0, 0)
  43.  
  44.    If $n = 1 Then
  45.  
  46.       MsgBox( 1, "Intrest Calculator", $u1 + $commonDifference)
  47.  
  48.    EndIf
  49.  
  50.    If $n = 2 Then
  51.  
  52.       $u2 = $u1 + $commonDifference
  53.       $u3 = $u2 + $commonDifference
  54.  
  55.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 )
  56.  
  57.  
  58.    EndIf
  59.  
  60.    If $n = 3 Then
  61.  
  62.       $u2 = $u1 + $commonDifference
  63.       $u3 = $u2 + $commonDifference
  64.       $u4 = $u3 + $commonDifference
  65.       $u5 = $u4 + $commonDifference
  66.       $u6 = $u5 + $commonDifference
  67.       $u7 = $u6 + $commonDifference
  68.       $u8 = $u7 + $commonDifference
  69.       $u9 = $u8 + $commonDifference
  70.       $u10 = $u9 + $commonDifference
  71.  
  72.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 )
  73.  
  74.    EndIf
  75.  
  76.    If $n = 4 Then
  77.  
  78.       $u2 = $u1 + $commonDifference
  79.       $u3 = $u2 + $commonDifference
  80.       $u4 = $u3 + $commonDifference
  81.       $u5 = $u4 + $commonDifference
  82.       $u6 = $u5 + $commonDifference
  83.       $u7 = $u6 + $commonDifference
  84.       $u8 = $u7 + $commonDifference
  85.       $u9 = $u8 + $commonDifference
  86.       $u10 = $u9 + $commonDifference
  87.  
  88.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5)
  89.  
  90.    EndIf
  91.  
  92.    If $n = 5 Then
  93.  
  94.       $u2 = $u1 + $commonDifference
  95.       $u3 = $u2 + $commonDifference
  96.       $u4 = $u3 + $commonDifference
  97.       $u5 = $u4 + $commonDifference
  98.       $u6 = $u5 + $commonDifference
  99.       $u7 = $u6 + $commonDifference
  100.       $u8 = $u7 + $commonDifference
  101.       $u9 = $u8 + $commonDifference
  102.       $u10 = $u9 + $commonDifference
  103.  
  104.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6)
  105.  
  106.    EndIf
  107.  
  108.    If $n = 6 Then
  109.  
  110.       $u2 = $u1 + $commonDifference
  111.       $u3 = $u2 + $commonDifference
  112.       $u4 = $u3 + $commonDifference
  113.       $u5 = $u4 + $commonDifference
  114.       $u6 = $u5 + $commonDifference
  115.       $u7 = $u6 + $commonDifference
  116.       $u8 = $u7 + $commonDifference
  117.       $u9 = $u8 + $commonDifference
  118.       $u10 = $u9 + $commonDifference
  119.  
  120.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7)
  121.  
  122.    EndIf
  123.  
  124.    If $n = 7 Then
  125.  
  126.       $u2 = $u1 + $commonDifference
  127.       $u3 = $u2 + $commonDifference
  128.       $u4 = $u3 + $commonDifference
  129.       $u5 = $u4 + $commonDifference
  130.       $u6 = $u5 + $commonDifference
  131.       $u7 = $u6 + $commonDifference
  132.       $u8 = $u7 + $commonDifference
  133.       $u9 = $u8 + $commonDifference
  134.       $u10 = $u9 + $commonDifference
  135.  
  136.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8)
  137.  
  138.    EndIf
  139.  
  140.    If $n = 8 Then
  141.  
  142.       $u2 = $u1 + $commonDifference
  143.       $u3 = $u2 + $commonDifference
  144.       $u4 = $u3 + $commonDifference
  145.       $u5 = $u4 + $commonDifference
  146.       $u6 = $u5 + $commonDifference
  147.       $u7 = $u6 + $commonDifference
  148.       $u8 = $u7 + $commonDifference
  149.       $u9 = $u8 + $commonDifference
  150.       $u10 = $u9 + $commonDifference
  151.  
  152.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9)
  153.  
  154.    EndIf
  155.  
  156.    If $n = 9 Then
  157.  
  158.       $u2 = $u1 + $commonDifference
  159.       $u3 = $u2 + $commonDifference
  160.       $u4 = $u3 + $commonDifference
  161.       $u5 = $u4 + $commonDifference
  162.       $u6 = $u5 + $commonDifference
  163.       $u7 = $u6 + $commonDifference
  164.       $u8 = $u7 + $commonDifference
  165.       $u9 = $u8 + $commonDifference
  166.       $u10 = $u9 + $commonDifference
  167.  
  168.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10)
  169.  
  170.    EndIf
  171.  
  172.    If $n = 10 Then
  173.  
  174.       $u2 = $u1 + $commonDifference
  175.       $u3 = $u2 + $commonDifference
  176.       $u4 = $u3 + $commonDifference
  177.       $u5 = $u4 + $commonDifference
  178.       $u6 = $u5 + $commonDifference
  179.       $u7 = $u6 + $commonDifference
  180.       $u8 = $u7 + $commonDifference
  181.       $u9 = $u8 + $commonDifference
  182.       $u10 = $u9 + $commonDifference
  183.       $u11 = $u10 + $commonDifference
  184.  
  185.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11)
  186.  
  187.    EndIf
  188.  
  189.    If $n = 11 Then
  190.  
  191.       $u2 = $u1 + $commonDifference
  192.       $u3 = $u2 + $commonDifference
  193.       $u4 = $u3 + $commonDifference
  194.       $u5 = $u4 + $commonDifference
  195.       $u6 = $u5 + $commonDifference
  196.       $u7 = $u6 + $commonDifference
  197.       $u8 = $u7 + $commonDifference
  198.       $u9 = $u8 + $commonDifference
  199.       $u10 = $u9 + $commonDifference
  200.       $u11 = $u10 + $commonDifference
  201.       $u12 = $u11 + $commonDifference
  202.       $u13 = $u12 + $commonDifference
  203.       $u14 = $u13 + $commonDifference
  204.       $u15 = $u14 + $commonDifference
  205.       $u16 = $u15 + $commonDifference
  206.       $u17 = $u16 + $commonDifference
  207.       $u18 = $u17 + $commonDifference
  208.       $u19 = $u18 + $commonDifference
  209.       $u20 = $u19 + $commonDifference
  210.       $u21 = $u20 + $commonDifference
  211.  
  212.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12)
  213.  
  214.    EndIf
  215.  
  216.    If $n = 12 Then
  217.  
  218.       $u2 = $u1 + $commonDifference
  219.       $u3 = $u2 + $commonDifference
  220.       $u4 = $u3 + $commonDifference
  221.       $u5 = $u4 + $commonDifference
  222.       $u6 = $u5 + $commonDifference
  223.       $u7 = $u6 + $commonDifference
  224.       $u8 = $u7 + $commonDifference
  225.       $u9 = $u8 + $commonDifference
  226.       $u10 = $u9 + $commonDifference
  227.       $u11 = $u10 + $commonDifference
  228.       $u12 = $u11 + $commonDifference
  229.       $u13 = $u12 + $commonDifference
  230.       $u14 = $u13 + $commonDifference
  231.       $u15 = $u14 + $commonDifference
  232.       $u16 = $u15 + $commonDifference
  233.       $u17 = $u16 + $commonDifference
  234.       $u18 = $u17 + $commonDifference
  235.       $u19 = $u18 + $commonDifference
  236.       $u20 = $u19 + $commonDifference
  237.       $u21 = $u20 + $commonDifference
  238.  
  239.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13)
  240.  
  241.    EndIf
  242.  
  243.    If $n = 13 Then
  244.  
  245.       $u2 = $u1 + $commonDifference
  246.       $u3 = $u2 + $commonDifference
  247.       $u4 = $u3 + $commonDifference
  248.       $u5 = $u4 + $commonDifference
  249.       $u6 = $u5 + $commonDifference
  250.       $u7 = $u6 + $commonDifference
  251.       $u8 = $u7 + $commonDifference
  252.       $u9 = $u8 + $commonDifference
  253.       $u10 = $u9 + $commonDifference
  254.       $u11 = $u10 + $commonDifference
  255.       $u12 = $u11 + $commonDifference
  256.       $u13 = $u12 + $commonDifference
  257.       $u14 = $u13 + $commonDifference
  258.       $u15 = $u14 + $commonDifference
  259.       $u16 = $u15 + $commonDifference
  260.       $u17 = $u16 + $commonDifference
  261.       $u18 = $u17 + $commonDifference
  262.       $u19 = $u18 + $commonDifference
  263.       $u20 = $u19 + $commonDifference
  264.       $u21 = $u20 + $commonDifference
  265.  
  266.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14)
  267.  
  268.    EndIf
  269.  
  270.    If $n = 14 Then
  271.  
  272.       $u2 = $u1 + $commonDifference
  273.       $u3 = $u2 + $commonDifference
  274.       $u4 = $u3 + $commonDifference
  275.       $u5 = $u4 + $commonDifference
  276.       $u6 = $u5 + $commonDifference
  277.       $u7 = $u6 + $commonDifference
  278.       $u8 = $u7 + $commonDifference
  279.       $u9 = $u8 + $commonDifference
  280.       $u10 = $u9 + $commonDifference
  281.       $u11 = $u10 + $commonDifference
  282.       $u12 = $u11 + $commonDifference
  283.       $u13 = $u12 + $commonDifference
  284.       $u14 = $u13 + $commonDifference
  285.       $u15 = $u14 + $commonDifference
  286.       $u16 = $u15 + $commonDifference
  287.       $u17 = $u16 + $commonDifference
  288.       $u18 = $u17 + $commonDifference
  289.       $u19 = $u18 + $commonDifference
  290.       $u20 = $u19 + $commonDifference
  291.       $u21 = $u20 + $commonDifference
  292.  
  293.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15)
  294.  
  295.    EndIf
  296.  
  297.    If $n = 15 Then
  298.  
  299.       $u2 = $u1 + $commonDifference
  300.       $u3 = $u2 + $commonDifference
  301.       $u4 = $u3 + $commonDifference
  302.       $u5 = $u4 + $commonDifference
  303.       $u6 = $u5 + $commonDifference
  304.       $u7 = $u6 + $commonDifference
  305.       $u8 = $u7 + $commonDifference
  306.       $u9 = $u8 + $commonDifference
  307.       $u10 = $u9 + $commonDifference
  308.       $u11 = $u10 + $commonDifference
  309.       $u12 = $u11 + $commonDifference
  310.       $u13 = $u12 + $commonDifference
  311.       $u14 = $u13 + $commonDifference
  312.       $u15 = $u14 + $commonDifference
  313.       $u16 = $u15 + $commonDifference
  314.       $u17 = $u16 + $commonDifference
  315.       $u18 = $u17 + $commonDifference
  316.       $u19 = $u18 + $commonDifference
  317.       $u20 = $u19 + $commonDifference
  318.       $u21 = $u20 + $commonDifference
  319.  
  320.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16)
  321.  
  322.    EndIf
  323.  
  324.    If $n = 16 Then
  325.  
  326.       $u2 = $u1 + $commonDifference
  327.       $u3 = $u2 + $commonDifference
  328.       $u4 = $u3 + $commonDifference
  329.       $u5 = $u4 + $commonDifference
  330.       $u6 = $u5 + $commonDifference
  331.       $u7 = $u6 + $commonDifference
  332.       $u8 = $u7 + $commonDifference
  333.       $u9 = $u8 + $commonDifference
  334.       $u10 = $u9 + $commonDifference
  335.       $u11 = $u10 + $commonDifference
  336.       $u12 = $u11 + $commonDifference
  337.       $u13 = $u12 + $commonDifference
  338.       $u14 = $u13 + $commonDifference
  339.       $u15 = $u14 + $commonDifference
  340.       $u16 = $u15 + $commonDifference
  341.       $u17 = $u16 + $commonDifference
  342.       $u18 = $u17 + $commonDifference
  343.       $u19 = $u18 + $commonDifference
  344.       $u20 = $u19 + $commonDifference
  345.       $u21 = $u20 + $commonDifference
  346.  
  347.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17)
  348.  
  349.    EndIf
  350.  
  351.    If $n = 17 Then
  352.  
  353.       $u2 = $u1 + $commonDifference
  354.       $u3 = $u2 + $commonDifference
  355.       $u4 = $u3 + $commonDifference
  356.       $u5 = $u4 + $commonDifference
  357.       $u6 = $u5 + $commonDifference
  358.       $u7 = $u6 + $commonDifference
  359.       $u8 = $u7 + $commonDifference
  360.       $u9 = $u8 + $commonDifference
  361.       $u10 = $u9 + $commonDifference
  362.       $u11 = $u10 + $commonDifference
  363.       $u12 = $u11 + $commonDifference
  364.       $u13 = $u12 + $commonDifference
  365.       $u14 = $u13 + $commonDifference
  366.       $u15 = $u14 + $commonDifference
  367.       $u16 = $u15 + $commonDifference
  368.       $u17 = $u16 + $commonDifference
  369.       $u18 = $u17 + $commonDifference
  370.       $u19 = $u18 + $commonDifference
  371.       $u20 = $u19 + $commonDifference
  372.       $u21 = $u20 + $commonDifference
  373.  
  374.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18)
  375.  
  376.    EndIf
  377.  
  378.    If $n = 18 Then
  379.  
  380.       $u2 = $u1 + $commonDifference
  381.       $u3 = $u2 + $commonDifference
  382.       $u4 = $u3 + $commonDifference
  383.       $u5 = $u4 + $commonDifference
  384.       $u6 = $u5 + $commonDifference
  385.       $u7 = $u6 + $commonDifference
  386.       $u8 = $u7 + $commonDifference
  387.       $u9 = $u8 + $commonDifference
  388.       $u10 = $u9 + $commonDifference
  389.       $u11 = $u10 + $commonDifference
  390.       $u12 = $u11 + $commonDifference
  391.       $u13 = $u12 + $commonDifference
  392.       $u14 = $u13 + $commonDifference
  393.       $u15 = $u14 + $commonDifference
  394.       $u16 = $u15 + $commonDifference
  395.       $u17 = $u16 + $commonDifference
  396.       $u18 = $u17 + $commonDifference
  397.       $u19 = $u18 + $commonDifference
  398.       $u20 = $u19 + $commonDifference
  399.       $u21 = $u20 + $commonDifference
  400.  
  401.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19)
  402.  
  403.    EndIf
  404.  
  405.    If $n = 19 Then
  406.  
  407.       $u2 = $u1 + $commonDifference
  408.       $u3 = $u2 + $commonDifference
  409.       $u4 = $u3 + $commonDifference
  410.       $u5 = $u4 + $commonDifference
  411.       $u6 = $u5 + $commonDifference
  412.       $u7 = $u6 + $commonDifference
  413.       $u8 = $u7 + $commonDifference
  414.       $u9 = $u8 + $commonDifference
  415.       $u10 = $u9 + $commonDifference
  416.       $u11 = $u10 + $commonDifference
  417.       $u12 = $u11 + $commonDifference
  418.       $u13 = $u12 + $commonDifference
  419.       $u14 = $u13 + $commonDifference
  420.       $u15 = $u14 + $commonDifference
  421.       $u16 = $u15 + $commonDifference
  422.       $u17 = $u16 + $commonDifference
  423.       $u18 = $u17 + $commonDifference
  424.       $u19 = $u18 + $commonDifference
  425.       $u20 = $u19 + $commonDifference
  426.       $u21 = $u20 + $commonDifference
  427.  
  428.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20)
  429.  
  430.    EndIf
  431.  
  432.    If $n = 20 Then
  433.  
  434.       $u2 = $u1 + $commonDifference
  435.       $u3 = $u2 + $commonDifference
  436.       $u4 = $u3 + $commonDifference
  437.       $u5 = $u4 + $commonDifference
  438.       $u6 = $u5 + $commonDifference
  439.       $u7 = $u6 + $commonDifference
  440.       $u8 = $u7 + $commonDifference
  441.       $u9 = $u8 + $commonDifference
  442.       $u10 = $u9 + $commonDifference
  443.       $u11 = $u10 + $commonDifference
  444.       $u12 = $u11 + $commonDifference
  445.       $u13 = $u12 + $commonDifference
  446.       $u14 = $u13 + $commonDifference
  447.       $u15 = $u14 + $commonDifference
  448.       $u16 = $u15 + $commonDifference
  449.       $u17 = $u16 + $commonDifference
  450.       $u18 = $u17 + $commonDifference
  451.       $u19 = $u18 + $commonDifference
  452.       $u20 = $u19 + $commonDifference
  453.       $u21 = $u20 + $commonDifference
  454.  
  455.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20 & ", " & $u21)
  456.  
  457.    EndIf
  458.  
  459.  
  460.  
  461.  
  462.  
  463. EndFunc
  464.  
  465.  
  466. Func Geometric()
  467.  
  468. Local $u1 = InputBox("Intrest Calculator", "Please enter your starting value: ", "", "", _
  469.              - 1, -1, 0, 0)
  470.  
  471.  
  472.    Local $commonRatio = InputBox("Intrest Calculator", "Please enter your Common Ratio: ", "", "", _
  473.              - 1, -1, 0, 0)
  474.  
  475.    Local $n = InputBox("Intrest Calculator", "Please enter your n value: ", "", "", _
  476.              - 1, -1, 0, 0)
  477.  
  478.    If $n = 1 Then
  479.  
  480.       MsgBox( 1, "Intrest Calculator", $u1 * $commonRatio)
  481.  
  482.    EndIf
  483.  
  484.    If $n = 2 Then
  485.  
  486.       $u2 = $u1 * $commonRatio
  487.       $u3 = $u2 * $commonRatio
  488.  
  489.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 )
  490.  
  491.  
  492.    EndIf
  493.  
  494.    If $n = 3 Then
  495.  
  496.       $u2 = $u1 * $commonRatio
  497.       $u3 = $u2 * $commonRatio
  498.       $u4 = $u3 * $commonRatio
  499.       $u5 = $u4 * $commonRatio
  500.       $u6 = $u5 * $commonRatio
  501.       $u7 = $u6 * $commonRatio
  502.       $u8 = $u7 * $commonRatio
  503.       $u9 = $u8 * $commonRatio
  504.       $u10 = $u9 * $commonRatio
  505.  
  506.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 )
  507.  
  508.    EndIf
  509.  
  510.    If $n = 4 Then
  511.  
  512.       $u2 = $u1 * $commonRatio
  513.       $u3 = $u2 * $commonRatio
  514.       $u4 = $u3 * $commonRatio
  515.       $u5 = $u4 * $commonRatio
  516.       $u6 = $u5 * $commonRatio
  517.       $u7 = $u6 * $commonRatio
  518.       $u8 = $u7 * $commonRatio
  519.       $u9 = $u8 * $commonRatio
  520.       $u10 = $u9 * $commonRatio
  521.  
  522.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5)
  523.  
  524.    EndIf
  525.  
  526.    If $n = 5 Then
  527.  
  528.       $u2 = $u1 * $commonRatio
  529.       $u3 = $u2 * $commonRatio
  530.       $u4 = $u3 * $commonRatio
  531.       $u5 = $u4 * $commonRatio
  532.       $u6 = $u5 * $commonRatio
  533.       $u7 = $u6 * $commonRatio
  534.       $u8 = $u7 * $commonRatio
  535.       $u9 = $u8 * $commonRatio
  536.       $u10 = $u9 * $commonRatio
  537.  
  538.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6)
  539.  
  540.    EndIf
  541.  
  542.    If $n = 6 Then
  543.  
  544.      $u2 = $u1 * $commonRatio
  545.       $u3 = $u2 * $commonRatio
  546.       $u4 = $u3 * $commonRatio
  547.       $u5 = $u4 * $commonRatio
  548.       $u6 = $u5 * $commonRatio
  549.       $u7 = $u6 * $commonRatio
  550.       $u8 = $u7 * $commonRatio
  551.       $u9 = $u8 * $commonRatio
  552.       $u10 = $u9 * $commonRatio
  553.  
  554.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7)
  555.  
  556.    EndIf
  557.  
  558.    If $n = 7 Then
  559.  
  560.       $u2 = $u1 * $commonRatio
  561.       $u3 = $u2 * $commonRatio
  562.       $u4 = $u3 * $commonRatio
  563.       $u5 = $u4 * $commonRatio
  564.       $u6 = $u5 * $commonRatio
  565.       $u7 = $u6 * $commonRatio
  566.       $u8 = $u7 * $commonRatio
  567.       $u9 = $u8 * $commonRatio
  568.       $u10 = $u9 * $commonRatio
  569.  
  570.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8)
  571.  
  572.    EndIf
  573.  
  574.    If $n = 8 Then
  575.  
  576.       $u2 = $u1 * $commonRatio
  577.       $u3 = $u2 * $commonRatio
  578.       $u4 = $u3 * $commonRatio
  579.       $u5 = $u4 * $commonRatio
  580.       $u6 = $u5 * $commonRatio
  581.       $u7 = $u6 * $commonRatio
  582.       $u8 = $u7 * $commonRatio
  583.       $u9 = $u8 * $commonRatio
  584.       $u10 = $u9 * $commonRatio
  585.  
  586.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9)
  587.  
  588.    EndIf
  589.  
  590.    If $n = 9 Then
  591.  
  592.       $u2 = $u1 * $commonRatio
  593.       $u3 = $u2 * $commonRatio
  594.       $u4 = $u3 * $commonRatio
  595.       $u5 = $u4 * $commonRatio
  596.       $u6 = $u5 * $commonRatio
  597.       $u7 = $u6 * $commonRatio
  598.       $u8 = $u7 * $commonRatio
  599.       $u9 = $u8 * $commonRatio
  600.       $u10 = $u9 * $commonRatio
  601.  
  602.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10)
  603.  
  604.    EndIf
  605.  
  606.    If $n = 10 Then
  607.  
  608.       $u2 = $u1 * $commonRatio
  609.       $u3 = $u2 * $commonRatio
  610.       $u4 = $u3 * $commonRatio
  611.       $u5 = $u4 * $commonRatio
  612.       $u6 = $u5 * $commonRatio
  613.       $u7 = $u6 * $commonRatio
  614.       $u8 = $u7 * $commonRatio
  615.       $u9 = $u8 * $commonRatio
  616.       $u10 = $u9 * $commonRatio
  617.       $u11 = $u10 * $commonRatio
  618.       $u12 = $u11 * $commonRatio
  619.       $u13 = $u12 * $commonRatio
  620.       $u14 = $u13 * $commonRatio
  621.       $u15 = $u14 * $commonRatio
  622.       $u16 = $u15 * $commonRatio
  623.       $u17 = $u16 * $commonRatio
  624.       $u18 = $u17 * $commonRatio
  625.       $u19 = $u18 * $commonRatio
  626.       $u20 = $u19 * $commonRatio
  627.       $u21 = $u20 * $commonRatio
  628.  
  629.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11)
  630.  
  631.    EndIf
  632.  
  633.    If $n = 11 Then
  634.  
  635.       $u2 = $u1 * $commonRatio
  636.       $u3 = $u2 * $commonRatio
  637.       $u4 = $u3 * $commonRatio
  638.       $u5 = $u4 * $commonRatio
  639.       $u6 = $u5 * $commonRatio
  640.       $u7 = $u6 * $commonRatio
  641.       $u8 = $u7 * $commonRatio
  642.       $u9 = $u8 * $commonRatio
  643.       $u10 = $u9 * $commonRatio
  644.       $u11 = $u10 * $commonRatio
  645.       $u12 = $u11 * $commonRatio
  646.       $u13 = $u12 * $commonRatio
  647.       $u14 = $u13 * $commonRatio
  648.       $u15 = $u14 * $commonRatio
  649.       $u16 = $u15 * $commonRatio
  650.       $u17 = $u16 * $commonRatio
  651.       $u18 = $u17 * $commonRatio
  652.       $u19 = $u18 * $commonRatio
  653.       $u20 = $u19 * $commonRatio
  654.       $u21 = $u20 * $commonRatio
  655.  
  656.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12)
  657.  
  658.    EndIf
  659.  
  660.    If $n = 12 Then
  661.  
  662.       $u2 = $u1 * $commonRatio
  663.       $u3 = $u2 * $commonRatio
  664.       $u4 = $u3 * $commonRatio
  665.       $u5 = $u4 * $commonRatio
  666.       $u6 = $u5 * $commonRatio
  667.       $u7 = $u6 * $commonRatio
  668.       $u8 = $u7 * $commonRatio
  669.       $u9 = $u8 * $commonRatio
  670.       $u10 = $u9 * $commonRatio
  671.       $u11 = $u10 * $commonRatio
  672.       $u12 = $u11 * $commonRatio
  673.       $u13 = $u12 * $commonRatio
  674.       $u14 = $u13 * $commonRatio
  675.       $u15 = $u14 * $commonRatio
  676.       $u16 = $u15 * $commonRatio
  677.       $u17 = $u16 * $commonRatio
  678.       $u18 = $u17 * $commonRatio
  679.       $u19 = $u18 * $commonRatio
  680.       $u20 = $u19 * $commonRatio
  681.       $u21 = $u20 * $commonRatio
  682.  
  683.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13)
  684.  
  685.    EndIf
  686.  
  687.    If $n = 13 Then
  688.  
  689.       $u2 = $u1 * $commonRatio
  690.       $u3 = $u2 * $commonRatio
  691.       $u4 = $u3 * $commonRatio
  692.       $u5 = $u4 * $commonRatio
  693.       $u6 = $u5 * $commonRatio
  694.       $u7 = $u6 * $commonRatio
  695.       $u8 = $u7 * $commonRatio
  696.       $u9 = $u8 * $commonRatio
  697.       $u10 = $u9 * $commonRatio
  698.       $u11 = $u10 * $commonRatio
  699.       $u12 = $u11 * $commonRatio
  700.       $u13 = $u12 * $commonRatio
  701.       $u14 = $u13 * $commonRatio
  702.       $u15 = $u14 * $commonRatio
  703.       $u16 = $u15 * $commonRatio
  704.       $u17 = $u16 * $commonRatio
  705.       $u18 = $u17 * $commonRatio
  706.       $u19 = $u18 * $commonRatio
  707.       $u20 = $u19 * $commonRatio
  708.       $u21 = $u20 * $commonRatio
  709.  
  710.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14)
  711.  
  712.    EndIf
  713.  
  714.    If $n = 14 Then
  715.  
  716.       $u2 = $u1 * $commonRatio
  717.       $u3 = $u2 * $commonRatio
  718.       $u4 = $u3 * $commonRatio
  719.       $u5 = $u4 * $commonRatio
  720.       $u6 = $u5 * $commonRatio
  721.       $u7 = $u6 * $commonRatio
  722.       $u8 = $u7 * $commonRatio
  723.       $u9 = $u8 * $commonRatio
  724.       $u10 = $u9 * $commonRatio
  725.       $u11 = $u10 * $commonRatio
  726.       $u12 = $u11 * $commonRatio
  727.       $u13 = $u12 * $commonRatio
  728.       $u14 = $u13 * $commonRatio
  729.       $u15 = $u14 * $commonRatio
  730.       $u16 = $u15 * $commonRatio
  731.       $u17 = $u16 * $commonRatio
  732.       $u18 = $u17 * $commonRatio
  733.       $u19 = $u18 * $commonRatio
  734.       $u20 = $u19 * $commonRatio
  735.       $u21 = $u20 * $commonRatio
  736.  
  737.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15)
  738.  
  739.    EndIf
  740.  
  741.    If $n = 15 Then
  742.  
  743.       $u2 = $u1 * $commonRatio
  744.       $u3 = $u2 * $commonRatio
  745.       $u4 = $u3 * $commonRatio
  746.       $u5 = $u4 * $commonRatio
  747.       $u6 = $u5 * $commonRatio
  748.       $u7 = $u6 * $commonRatio
  749.       $u8 = $u7 * $commonRatio
  750.       $u9 = $u8 * $commonRatio
  751.       $u10 = $u9 * $commonRatio
  752.       $u11 = $u10 * $commonRatio
  753.       $u12 = $u11 * $commonRatio
  754.       $u13 = $u12 * $commonRatio
  755.       $u14 = $u13 * $commonRatio
  756.       $u15 = $u14 * $commonRatio
  757.       $u16 = $u15 * $commonRatio
  758.       $u17 = $u16 * $commonRatio
  759.       $u18 = $u17 * $commonRatio
  760.       $u19 = $u18 * $commonRatio
  761.       $u20 = $u19 * $commonRatio
  762.       $u21 = $u20 * $commonRatio
  763.  
  764.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16)
  765.  
  766.    EndIf
  767.  
  768.    If $n = 16 Then
  769.  
  770.       $u2 = $u1 * $commonRatio
  771.       $u3 = $u2 * $commonRatio
  772.       $u4 = $u3 * $commonRatio
  773.       $u5 = $u4 * $commonRatio
  774.       $u6 = $u5 * $commonRatio
  775.       $u7 = $u6 * $commonRatio
  776.       $u8 = $u7 * $commonRatio
  777.       $u9 = $u8 * $commonRatio
  778.       $u10 = $u9 * $commonRatio
  779.       $u11 = $u10 * $commonRatio
  780.       $u12 = $u11 * $commonRatio
  781.       $u13 = $u12 * $commonRatio
  782.       $u14 = $u13 * $commonRatio
  783.       $u15 = $u14 * $commonRatio
  784.       $u16 = $u15 * $commonRatio
  785.       $u17 = $u16 * $commonRatio
  786.       $u18 = $u17 * $commonRatio
  787.       $u19 = $u18 * $commonRatio
  788.       $u20 = $u19 * $commonRatio
  789.       $u21 = $u20 * $commonRatio
  790.  
  791.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17)
  792.  
  793.    EndIf
  794.  
  795.    If $n = 17 Then
  796.  
  797.       $u2 = $u1 * $commonRatio
  798.       $u3 = $u2 * $commonRatio
  799.       $u4 = $u3 * $commonRatio
  800.       $u5 = $u4 * $commonRatio
  801.       $u6 = $u5 * $commonRatio
  802.       $u7 = $u6 * $commonRatio
  803.       $u8 = $u7 * $commonRatio
  804.       $u9 = $u8 * $commonRatio
  805.       $u10 = $u9 * $commonRatio
  806.       $u11 = $u10 * $commonRatio
  807.       $u12 = $u11 * $commonRatio
  808.       $u13 = $u12 * $commonRatio
  809.       $u14 = $u13 * $commonRatio
  810.       $u15 = $u14 * $commonRatio
  811.       $u16 = $u15 * $commonRatio
  812.       $u17 = $u16 * $commonRatio
  813.       $u18 = $u17 * $commonRatio
  814.       $u19 = $u18 * $commonRatio
  815.       $u20 = $u19 * $commonRatio
  816.       $u21 = $u20 * $commonRatio
  817.  
  818.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18)
  819.  
  820.    EndIf
  821.  
  822.    If $n = 18 Then
  823.  
  824.       $u2 = $u1 * $commonRatio
  825.       $u3 = $u2 * $commonRatio
  826.       $u4 = $u3 * $commonRatio
  827.       $u5 = $u4 * $commonRatio
  828.       $u6 = $u5 * $commonRatio
  829.       $u7 = $u6 * $commonRatio
  830.       $u8 = $u7 * $commonRatio
  831.       $u9 = $u8 * $commonRatio
  832.       $u10 = $u9 * $commonRatio
  833.       $u11 = $u10 * $commonRatio
  834.       $u12 = $u11 * $commonRatio
  835.       $u13 = $u12 * $commonRatio
  836.       $u14 = $u13 * $commonRatio
  837.       $u15 = $u14 * $commonRatio
  838.       $u16 = $u15 * $commonRatio
  839.       $u17 = $u16 * $commonRatio
  840.       $u18 = $u17 * $commonRatio
  841.       $u19 = $u18 * $commonRatio
  842.       $u20 = $u19 * $commonRatio
  843.       $u21 = $u20 * $commonRatio
  844.  
  845.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19)
  846.  
  847.    EndIf
  848.  
  849.    If $n = 19 Then
  850.  
  851.       $u2 = $u1 * $commonRatio
  852.       $u3 = $u2 * $commonRatio
  853.       $u4 = $u3 * $commonRatio
  854.       $u5 = $u4 * $commonRatio
  855.       $u6 = $u5 * $commonRatio
  856.       $u7 = $u6 * $commonRatio
  857.       $u8 = $u7 * $commonRatio
  858.       $u9 = $u8 * $commonRatio
  859.       $u10 = $u9 * $commonRatio
  860.       $u11 = $u10 * $commonRatio
  861.       $u12 = $u11 * $commonRatio
  862.       $u13 = $u12 * $commonRatio
  863.       $u14 = $u13 * $commonRatio
  864.       $u15 = $u14 * $commonRatio
  865.       $u16 = $u15 * $commonRatio
  866.       $u17 = $u16 * $commonRatio
  867.       $u18 = $u17 * $commonRatio
  868.       $u19 = $u18 * $commonRatio
  869.       $u20 = $u19 * $commonRatio
  870.       $u21 = $u20 * $commonRatio
  871.  
  872.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20)
  873.  
  874.    EndIf
  875.  
  876.    If $n = 20 Then
  877.  
  878.       $u2 = $u1 * $commonRatio
  879.       $u3 = $u2 * $commonRatio
  880.       $u4 = $u3 * $commonRatio
  881.       $u5 = $u4 * $commonRatio
  882.       $u6 = $u5 * $commonRatio
  883.       $u7 = $u6 * $commonRatio
  884.       $u8 = $u7 * $commonRatio
  885.       $u9 = $u8 * $commonRatio
  886.       $u10 = $u9 * $commonRatio
  887.       $u11 = $u10 * $commonRatio
  888.       $u12 = $u11 * $commonRatio
  889.       $u13 = $u12 * $commonRatio
  890.       $u14 = $u13 * $commonRatio
  891.       $u15 = $u14 * $commonRatio
  892.       $u16 = $u15 * $commonRatio
  893.       $u17 = $u16 * $commonRatio
  894.       $u18 = $u17 * $commonRatio
  895.       $u19 = $u18 * $commonRatio
  896.       $u20 = $u19 * $commonRatio
  897.       $u21 = $u20 * $commonRatio
  898.  
  899.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20 & ", " & $u21)
  900.  
  901.    EndIf
  902.  
  903.  
  904.  
  905. EndFunc
  906.  
  907.  
  908. Func ShiftedGeometricFunc()
  909.  
  910.  
  911.  
  912.    Local $u1 = InputBox("Intrest Calculator", "Please enter your starting value: ", "", "", _
  913.              - 1, -1, 0, 0)
  914.  
  915.  
  916.    Local $commonRatio = InputBox("Intrest Calculator", "Please enter your Common Ratio: ", "", "", _
  917.              - 1, -1, 0, 0)
  918.  
  919.    Local $commonDifference = InputBox("Intrest Calculator", "Please enter your Common Difference: ", "", "", _
  920.              - 1, -1, 0, 0)
  921.  
  922.    Local $n = InputBox("Intrest Calculator", "Please enter your n value: ", "", "", _
  923.              - 1, -1, 0, 0)
  924.  
  925.    If $n = 1 Then
  926.  
  927.       MsgBox( 1, "Intrest Calculator", $u1 * $commonRatio + $commonDifference)
  928.  
  929.    EndIf
  930.  
  931.    If $n = 2 Then
  932.  
  933.       $u2 = $u1 * $commonRatio + $commonDifference
  934.       $u3 = $u2 * $commonRatio + $commonDifference
  935.  
  936.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 )
  937.  
  938.  
  939.    EndIf
  940.  
  941.    If $n = 3 Then
  942.  
  943.       $u2 = $u1 * $commonRatio + $commonDifference
  944.       $u3 = $u2 * $commonRatio + $commonDifference
  945.       $u4 = $u3 * $commonRatio + $commonDifference
  946.       $u5 = $u4 * $commonRatio + $commonDifference
  947.       $u6 = $u5 * $commonRatio + $commonDifference
  948.       $u7 = $u6 * $commonRatio + $commonDifference
  949.       $u8 = $u7 * $commonRatio + $commonDifference
  950.       $u9 = $u8 * $commonRatio + $commonDifference
  951.       $u10 = $u9 * $commonRatio + $commonDifference
  952.  
  953.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 )
  954.  
  955.    EndIf
  956.  
  957.    If $n = 4 Then
  958.  
  959.       $u2 = $u1 * $commonRatio + $commonDifference
  960.       $u3 = $u2 * $commonRatio + $commonDifference
  961.       $u4 = $u3 * $commonRatio + $commonDifference
  962.       $u5 = $u4 * $commonRatio + $commonDifference
  963.       $u6 = $u5 * $commonRatio + $commonDifference
  964.       $u7 = $u6 * $commonRatio + $commonDifference
  965.       $u8 = $u7 * $commonRatio + $commonDifference
  966.       $u9 = $u8 * $commonRatio + $commonDifference
  967.       $u10 = $u9 * $commonRatio + $commonDifference
  968.  
  969.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5)
  970.  
  971.    EndIf
  972.  
  973.    If $n = 5 Then
  974.  
  975.       $u2 = $u1 * $commonRatio + $commonDifference
  976.       $u3 = $u2 * $commonRatio + $commonDifference
  977.       $u4 = $u3 * $commonRatio + $commonDifference
  978.       $u5 = $u4 * $commonRatio + $commonDifference
  979.       $u6 = $u5 * $commonRatio + $commonDifference
  980.       $u7 = $u6 * $commonRatio + $commonDifference
  981.       $u8 = $u7 * $commonRatio + $commonDifference
  982.       $u9 = $u8 * $commonRatio + $commonDifference
  983.       $u10 = $u9 * $commonRatio + $commonDifference
  984.  
  985.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6)
  986.  
  987.    EndIf
  988.  
  989.    If $n = 6 Then
  990.  
  991.      $u2 = $u1 * $commonRatio + $commonDifference
  992.       $u3 = $u2 * $commonRatio + $commonDifference
  993.       $u4 = $u3 * $commonRatio + $commonDifference
  994.       $u5 = $u4 * $commonRatio + $commonDifference
  995.       $u6 = $u5 * $commonRatio + $commonDifference
  996.       $u7 = $u6 * $commonRatio + $commonDifference
  997.       $u8 = $u7 * $commonRatio + $commonDifference
  998.       $u9 = $u8 * $commonRatio + $commonDifference
  999.       $u10 = $u9 * $commonRatio + $commonDifference
  1000.  
  1001.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7)
  1002.  
  1003.    EndIf
  1004.  
  1005.    If $n = 7 Then
  1006.  
  1007.       $u2 = $u1 * $commonRatio + $commonDifference
  1008.       $u3 = $u2 * $commonRatio + $commonDifference
  1009.       $u4 = $u3 * $commonRatio + $commonDifference
  1010.       $u5 = $u4 * $commonRatio + $commonDifference
  1011.       $u6 = $u5 * $commonRatio + $commonDifference
  1012.       $u7 = $u6 * $commonRatio + $commonDifference
  1013.       $u8 = $u7 * $commonRatio + $commonDifference
  1014.       $u9 = $u8 * $commonRatio + $commonDifference
  1015.       $u10 = $u9 * $commonRatio + $commonDifference
  1016.  
  1017.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8)
  1018.  
  1019.    EndIf
  1020.  
  1021.    If $n = 8 Then
  1022.  
  1023.       $u2 = $u1 * $commonRatio + $commonDifference
  1024.       $u3 = $u2 * $commonRatio + $commonDifference
  1025.       $u4 = $u3 * $commonRatio + $commonDifference
  1026.       $u5 = $u4 * $commonRatio + $commonDifference
  1027.       $u6 = $u5 * $commonRatio + $commonDifference
  1028.       $u7 = $u6 * $commonRatio + $commonDifference
  1029.       $u8 = $u7 * $commonRatio + $commonDifference
  1030.       $u9 = $u8 * $commonRatio + $commonDifference
  1031.       $u10 = $u9 * $commonRatio + $commonDifference
  1032.  
  1033.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9)
  1034.  
  1035.    EndIf
  1036.  
  1037.    If $n = 9 Then
  1038.  
  1039.       $u2 = $u1 * $commonRatio + $commonDifference
  1040.       $u3 = $u2 * $commonRatio + $commonDifference
  1041.       $u4 = $u3 * $commonRatio + $commonDifference
  1042.       $u5 = $u4 * $commonRatio + $commonDifference
  1043.       $u6 = $u5 * $commonRatio + $commonDifference
  1044.       $u7 = $u6 * $commonRatio + $commonDifference
  1045.       $u8 = $u7 * $commonRatio + $commonDifference
  1046.       $u9 = $u8 * $commonRatio + $commonDifference
  1047.       $u10 = $u9 * $commonRatio + $commonDifference
  1048.  
  1049.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10)
  1050.  
  1051.    EndIf
  1052.  
  1053.    If $n = 10 Then
  1054.  
  1055.       $u2 = $u1 * $commonRatio + $commonDifference
  1056.       $u3 = $u2 * $commonRatio + $commonDifference
  1057.       $u4 = $u3 * $commonRatio + $commonDifference
  1058.       $u5 = $u4 * $commonRatio + $commonDifference
  1059.       $u6 = $u5 * $commonRatio + $commonDifference
  1060.       $u7 = $u6 * $commonRatio + $commonDifference
  1061.       $u8 = $u7 * $commonRatio + $commonDifference
  1062.       $u9 = $u8 * $commonRatio + $commonDifference
  1063.       $u10 = $u9 * $commonRatio + $commonDifference
  1064.       $u11 = $u10 *$commonRatio + $commonDifference
  1065.  
  1066.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11)
  1067.  
  1068.    EndIf
  1069.  
  1070.    If $n = 11 Then
  1071.  
  1072.       $u2 = $u1 * $commonRatio + $commonDifference
  1073.       $u3 = $u2 * $commonRatio + $commonDifference
  1074.       $u4 = $u3 * $commonRatio + $commonDifference
  1075.       $u5 = $u4 * $commonRatio + $commonDifference
  1076.       $u6 = $u5 * $commonRatio + $commonDifference
  1077.       $u7 = $u6 * $commonRatio + $commonDifference
  1078.       $u8 = $u7 * $commonRatio + $commonDifference
  1079.       $u9 = $u8 * $commonRatio + $commonDifference
  1080.       $u10 = $u9 * $commonRatio + $commonDifference
  1081.       $u11 = $u10 * $commonRatio + $commonDifference
  1082.       $u12 = $u11 * $commonRatio + $commonDifference
  1083.       $u13 = $u12 * $commonRatio + $commonDifference
  1084.       $u14 = $u13 * $commonRatio + $commonDifference
  1085.       $u15 = $u14 * $commonRatio + $commonDifference
  1086.       $u16 = $u15 * $commonRatio + $commonDifference
  1087.       $u17 = $u16 * $commonRatio + $commonDifference
  1088.       $u18 = $u17 * $commonRatio + $commonDifference
  1089.       $u19 = $u18 * $commonRatio + $commonDifference
  1090.       $u20 = $u19 * $commonRatio + $commonDifference
  1091.       $u21 = $u20 * $commonRatio + $commonDifference
  1092.  
  1093.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12)
  1094.  
  1095.    EndIf
  1096.  
  1097.     If $n = 12 Then
  1098.  
  1099.       $u2 = $u1 * $commonRatio + $commonDifference
  1100.       $u3 = $u2 * $commonRatio + $commonDifference
  1101.       $u4 = $u3 * $commonRatio + $commonDifference
  1102.       $u5 = $u4 * $commonRatio + $commonDifference
  1103.       $u6 = $u5 * $commonRatio + $commonDifference
  1104.       $u7 = $u6 * $commonRatio + $commonDifference
  1105.       $u8 = $u7 * $commonRatio + $commonDifference
  1106.       $u9 = $u8 * $commonRatio + $commonDifference
  1107.       $u10 = $u9 * $commonRatio + $commonDifference
  1108.       $u11 = $u10 * $commonRatio + $commonDifference
  1109.       $u12 = $u11 * $commonRatio + $commonDifference
  1110.       $u13 = $u12 * $commonRatio + $commonDifference
  1111.       $u14 = $u13 * $commonRatio + $commonDifference
  1112.       $u15 = $u14 * $commonRatio + $commonDifference
  1113.       $u16 = $u15 * $commonRatio + $commonDifference
  1114.       $u17 = $u16 * $commonRatio + $commonDifference
  1115.       $u18 = $u17 * $commonRatio + $commonDifference
  1116.       $u19 = $u18 * $commonRatio + $commonDifference
  1117.       $u20 = $u19 * $commonRatio + $commonDifference
  1118.       $u21 = $u20 * $commonRatio + $commonDifference
  1119.  
  1120.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13)
  1121.  
  1122.  
  1123.    EndIf
  1124.  
  1125.        If $n = 13 Then
  1126.  
  1127.       $u2 = $u1 * $commonRatio + $commonDifference
  1128.       $u3 = $u2 * $commonRatio + $commonDifference
  1129.       $u4 = $u3 * $commonRatio + $commonDifference
  1130.       $u5 = $u4 * $commonRatio + $commonDifference
  1131.       $u6 = $u5 * $commonRatio + $commonDifference
  1132.       $u7 = $u6 * $commonRatio + $commonDifference
  1133.       $u8 = $u7 * $commonRatio + $commonDifference
  1134.       $u9 = $u8 * $commonRatio + $commonDifference
  1135.       $u10 = $u9 * $commonRatio + $commonDifference
  1136.       $u11 = $u10 * $commonRatio + $commonDifference
  1137.       $u12 = $u11 * $commonRatio + $commonDifference
  1138.       $u13 = $u12 * $commonRatio + $commonDifference
  1139.       $u14 = $u13 * $commonRatio + $commonDifference
  1140.       $u15 = $u14 * $commonRatio + $commonDifference
  1141.       $u16 = $u15 * $commonRatio + $commonDifference
  1142.       $u17 = $u16 * $commonRatio + $commonDifference
  1143.       $u18 = $u17 * $commonRatio + $commonDifference
  1144.       $u19 = $u18 * $commonRatio + $commonDifference
  1145.       $u20 = $u19 * $commonRatio + $commonDifference
  1146.       $u21 = $u20 * $commonRatio + $commonDifference
  1147.  
  1148.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14)
  1149.  
  1150.  
  1151.  
  1152.    EndIf
  1153.  
  1154.    If $n = 14 Then
  1155.  
  1156.       $u2 = $u1 * $commonRatio + $commonDifference
  1157.       $u3 = $u2 * $commonRatio + $commonDifference
  1158.       $u4 = $u3 * $commonRatio + $commonDifference
  1159.       $u5 = $u4 * $commonRatio + $commonDifference
  1160.       $u6 = $u5 * $commonRatio + $commonDifference
  1161.       $u7 = $u6 * $commonRatio + $commonDifference
  1162.       $u8 = $u7 * $commonRatio + $commonDifference
  1163.       $u9 = $u8 * $commonRatio + $commonDifference
  1164.       $u10 = $u9 * $commonRatio + $commonDifference
  1165.       $u11 = $u10 * $commonRatio + $commonDifference
  1166.       $u12 = $u11 * $commonRatio + $commonDifference
  1167.       $u13 = $u12 * $commonRatio + $commonDifference
  1168.       $u14 = $u13 * $commonRatio + $commonDifference
  1169.       $u15 = $u14 * $commonRatio + $commonDifference
  1170.       $u16 = $u15 * $commonRatio + $commonDifference
  1171.       $u17 = $u16 * $commonRatio + $commonDifference
  1172.       $u18 = $u17 * $commonRatio + $commonDifference
  1173.       $u19 = $u18 * $commonRatio + $commonDifference
  1174.       $u20 = $u19 * $commonRatio + $commonDifference
  1175.       $u21 = $u20 * $commonRatio + $commonDifference
  1176.  
  1177.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15)
  1178.  
  1179.       EndIf
  1180.  
  1181.       If $n = 15 Then
  1182.  
  1183.       $u2 = $u1 * $commonRatio + $commonDifference
  1184.       $u3 = $u2 * $commonRatio + $commonDifference
  1185.       $u4 = $u3 * $commonRatio + $commonDifference
  1186.       $u5 = $u4 * $commonRatio + $commonDifference
  1187.       $u6 = $u5 * $commonRatio + $commonDifference
  1188.       $u7 = $u6 * $commonRatio + $commonDifference
  1189.       $u8 = $u7 * $commonRatio + $commonDifference
  1190.       $u9 = $u8 * $commonRatio + $commonDifference
  1191.       $u10 = $u9 * $commonRatio + $commonDifference
  1192.       $u11 = $u10 * $commonRatio + $commonDifference
  1193.       $u12 = $u11 * $commonRatio + $commonDifference
  1194.       $u13 = $u12 * $commonRatio + $commonDifference
  1195.       $u14 = $u13 * $commonRatio + $commonDifference
  1196.       $u15 = $u14 * $commonRatio + $commonDifference
  1197.       $u16 = $u15 * $commonRatio + $commonDifference
  1198.       $u17 = $u16 * $commonRatio + $commonDifference
  1199.       $u18 = $u17 * $commonRatio + $commonDifference
  1200.       $u19 = $u18 * $commonRatio + $commonDifference
  1201.       $u20 = $u19 * $commonRatio + $commonDifference
  1202.       $u21 = $u20 * $commonRatio + $commonDifference
  1203.  
  1204.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16)
  1205.  
  1206.       EndIf
  1207.  
  1208.       If $n = 16 Then
  1209.  
  1210.       $u2 = $u1 * $commonRatio + $commonDifference
  1211.       $u3 = $u2 * $commonRatio + $commonDifference
  1212.       $u4 = $u3 * $commonRatio + $commonDifference
  1213.       $u5 = $u4 * $commonRatio + $commonDifference
  1214.       $u6 = $u5 * $commonRatio + $commonDifference
  1215.       $u7 = $u6 * $commonRatio + $commonDifference
  1216.       $u8 = $u7 * $commonRatio + $commonDifference
  1217.       $u9 = $u8 * $commonRatio + $commonDifference
  1218.       $u10 = $u9 * $commonRatio + $commonDifference
  1219.       $u11 = $u10 * $commonRatio + $commonDifference
  1220.       $u12 = $u11 * $commonRatio + $commonDifference
  1221.       $u13 = $u12 * $commonRatio + $commonDifference
  1222.       $u14 = $u13 * $commonRatio + $commonDifference
  1223.       $u15 = $u14 * $commonRatio + $commonDifference
  1224.       $u16 = $u15 * $commonRatio + $commonDifference
  1225.       $u17 = $u16 * $commonRatio + $commonDifference
  1226.       $u18 = $u17 * $commonRatio + $commonDifference
  1227.       $u19 = $u18 * $commonRatio + $commonDifference
  1228.       $u20 = $u19 * $commonRatio + $commonDifference
  1229.       $u21 = $u20 * $commonRatio + $commonDifference
  1230.  
  1231.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17)
  1232.  
  1233.       EndIf
  1234.  
  1235.       If $n = 17 Then
  1236.  
  1237.       $u2 = $u1 * $commonRatio + $commonDifference
  1238.       $u3 = $u2 * $commonRatio + $commonDifference
  1239.       $u4 = $u3 * $commonRatio + $commonDifference
  1240.       $u5 = $u4 * $commonRatio + $commonDifference
  1241.       $u6 = $u5 * $commonRatio + $commonDifference
  1242.       $u7 = $u6 * $commonRatio + $commonDifference
  1243.       $u8 = $u7 * $commonRatio + $commonDifference
  1244.       $u9 = $u8 * $commonRatio + $commonDifference
  1245.       $u10 = $u9 * $commonRatio + $commonDifference
  1246.       $u11 = $u10 * $commonRatio + $commonDifference
  1247.       $u12 = $u11 * $commonRatio + $commonDifference
  1248.       $u13 = $u12 * $commonRatio + $commonDifference
  1249.       $u14 = $u13 * $commonRatio + $commonDifference
  1250.       $u15 = $u14 * $commonRatio + $commonDifference
  1251.       $u16 = $u15 * $commonRatio + $commonDifference
  1252.       $u17 = $u16 * $commonRatio + $commonDifference
  1253.       $u18 = $u17 * $commonRatio + $commonDifference
  1254.       $u19 = $u18 * $commonRatio + $commonDifference
  1255.       $u20 = $u19 * $commonRatio + $commonDifference
  1256.       $u21 = $u20 * $commonRatio + $commonDifference
  1257.  
  1258.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18)
  1259.  
  1260.       EndIf
  1261.  
  1262.       If $n = 18 Then
  1263.  
  1264.       $u2 = $u1 * $commonRatio + $commonDifference
  1265.       $u3 = $u2 * $commonRatio + $commonDifference
  1266.       $u4 = $u3 * $commonRatio + $commonDifference
  1267.       $u5 = $u4 * $commonRatio + $commonDifference
  1268.       $u6 = $u5 * $commonRatio + $commonDifference
  1269.       $u7 = $u6 * $commonRatio + $commonDifference
  1270.       $u8 = $u7 * $commonRatio + $commonDifference
  1271.       $u9 = $u8 * $commonRatio + $commonDifference
  1272.       $u10 = $u9 * $commonRatio + $commonDifference
  1273.       $u11 = $u10 * $commonRatio + $commonDifference
  1274.       $u12 = $u11 * $commonRatio + $commonDifference
  1275.       $u13 = $u12 * $commonRatio + $commonDifference
  1276.       $u14 = $u13 * $commonRatio + $commonDifference
  1277.       $u15 = $u14 * $commonRatio + $commonDifference
  1278.       $u16 = $u15 * $commonRatio + $commonDifference
  1279.       $u17 = $u16 * $commonRatio + $commonDifference
  1280.       $u18 = $u17 * $commonRatio + $commonDifference
  1281.       $u19 = $u18 * $commonRatio + $commonDifference
  1282.       $u20 = $u19 * $commonRatio + $commonDifference
  1283.       $u21 = $u20 * $commonRatio + $commonDifference
  1284.  
  1285.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19)
  1286.  
  1287.       EndIf
  1288.  
  1289.       If $n = 19 Then
  1290.  
  1291.       $u2 = $u1 * $commonRatio + $commonDifference
  1292.       $u3 = $u2 * $commonRatio + $commonDifference
  1293.       $u4 = $u3 * $commonRatio + $commonDifference
  1294.       $u5 = $u4 * $commonRatio + $commonDifference
  1295.       $u6 = $u5 * $commonRatio + $commonDifference
  1296.       $u7 = $u6 * $commonRatio + $commonDifference
  1297.       $u8 = $u7 * $commonRatio + $commonDifference
  1298.       $u9 = $u8 * $commonRatio + $commonDifference
  1299.       $u10 = $u9 * $commonRatio + $commonDifference
  1300.       $u11 = $u10 * $commonRatio + $commonDifference
  1301.       $u12 = $u11 * $commonRatio + $commonDifference
  1302.       $u13 = $u12 * $commonRatio + $commonDifference
  1303.       $u14 = $u13 * $commonRatio + $commonDifference
  1304.       $u15 = $u14 * $commonRatio + $commonDifference
  1305.       $u16 = $u15 * $commonRatio + $commonDifference
  1306.       $u17 = $u16 * $commonRatio + $commonDifference
  1307.       $u18 = $u17 * $commonRatio + $commonDifference
  1308.       $u19 = $u18 * $commonRatio + $commonDifference
  1309.       $u20 = $u19 * $commonRatio + $commonDifference
  1310.       $u21 = $u20 * $commonRatio + $commonDifference
  1311.  
  1312.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20)
  1313.  
  1314.       EndIf
  1315.  
  1316.       If $n = 20 Then
  1317.  
  1318.       $u2 = $u1 * $commonRatio + $commonDifference
  1319.       $u3 = $u2 * $commonRatio + $commonDifference
  1320.       $u4 = $u3 * $commonRatio + $commonDifference
  1321.       $u5 = $u4 * $commonRatio + $commonDifference
  1322.       $u6 = $u5 * $commonRatio + $commonDifference
  1323.       $u7 = $u6 * $commonRatio + $commonDifference
  1324.       $u8 = $u7 * $commonRatio + $commonDifference
  1325.       $u9 = $u8 * $commonRatio + $commonDifference
  1326.       $u10 = $u9 * $commonRatio + $commonDifference
  1327.       $u11 = $u10 * $commonRatio + $commonDifference
  1328.       $u12 = $u11 * $commonRatio + $commonDifference
  1329.       $u13 = $u12 * $commonRatio + $commonDifference
  1330.       $u14 = $u13 * $commonRatio + $commonDifference
  1331.       $u15 = $u14 * $commonRatio + $commonDifference
  1332.       $u16 = $u15 * $commonRatio + $commonDifference
  1333.       $u17 = $u16 * $commonRatio + $commonDifference
  1334.       $u18 = $u17 * $commonRatio + $commonDifference
  1335.       $u19 = $u18 * $commonRatio + $commonDifference
  1336.       $u20 = $u19 * $commonRatio + $commonDifference
  1337.       $u21 = $u20 * $commonRatio + $commonDifference
  1338.  
  1339.       MsgBox( 1, "Intrest Calculator", $u2 & ", " & $u3 & ", " & $u4 & ", " & $u5 & ", " & $u6 & ", " & $u7 & ", " & $u8 & ", " & $u9 & ", " & $u10 & ", " & $u11 & ", " & $u12 & ", " & $u13 & ", " & $u14 & ", " & $u15 & ", " & $u16 & ", " & $u17 & ", " & $u18 & ", " & $u19 & ", " & $u20 & ", " & $u21)
  1340.  
  1341.       EndIf
  1342.  
  1343.  
  1344.    EndFunc
  1345.  
  1346.  
  1347. Func Limit()
  1348.  
  1349.  
  1350.    $m = InputBox( "Intrest Calculator", "Enter the value of your common ratio: ", "", "")
  1351.    $b = InputBox( "Intrest Calculator", "Enter the value of your common difference", "", "")
  1352.    $x = 1 - $m
  1353.    $limit = $b / $x
  1354.    MsgBox( 1, "Limit Calculator", $limit)
  1355.  
  1356.  
  1357.  
  1358.    EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!