<% Option Explicit
Dim i
Dim icount
Dim itarget
iTarget=Request.Form("number")
If Not IsEmpty(iTarget) then
if iTarget="" then%>
Theospohical Extension Calculator
The Theosophical Extension of a number is the sum of all integer values from 1 to the object number.
i.e. the theosophical extension of the number 4 is: 1 + 2 + 3 + 4 = 10.
You may alternatively use the formula (n x (n+1))/2.
i.e. (4 x (4 + 1))/2 = (4 x 5)/2 = 20 / 2 = 10.
Enter the number for which you would like the Theosophical Extension:
<%if iTarget="" then%>
Please enter a value.
<%end if
else
i = (iTarget * (iTarget + 1)/2)
%>
Theospohical Extension Result
The Theosophical Extension of <%=iTarget%> is <%=i%>.
Calculate another
Back to PFC Archive page
Visit Brian's Home Page
<%end if%>
<%Else%>
Theospohical Extension Calculator
The Theosophical Extension of a number is the sum of all integer values from 1 to the object number.
i.e. the theosophical extension of the number 4 is: 1 + 2 + 3 + 4 = 10.
You may alternatively use the formula (n x (n+1))/2.
i.e. (4 x (4 + 1))/2 = (4 x 5)/2 = 20 / 2 = 10.
Enter the number for which you would like the Theosophical Extension:
<%End if%>