Raekuul Delicious!
![](./ohr/images/avatars/gallery/Final Fantasy VII/ff7_caitsith.gif)
Joined: 31 Mar 2004 Posts: 641 Location: Nowhere
|
Posted: Wed Apr 08, 2009 8:39 am Post subject: Why the hell is it easier to understand it this way? |
|
|
Yes, I *know* this would never parse, but writing it this way, I *get* it!
Code: | script, Exam_on_series, begin
check_pseries
check_geometric
comparison
check_divergance
check_alternating
check_ratio
check_root
check_integral
end
script, convergant, begin
mark series(convergent, Sum)
end:full
script, divergant, begin
mark series(divergent)
end:full
script, polyone, begin
if L > 1, convergant
elseif L < 1, divergant
else, end:script
script, check_pseries, begin
read series:pseries
assign (p:exponent)
if p > 1, convergant
else, divergant
end:full
script, check_geometric, begin
read series:geometric
assign (a:series(n=0), r:(series(n=1)/a))
if r >= 1, divergant
else, convergant
end:full
script, comparison, begin
determine:form
if form:p
compare(p:highest(p))
elseif form:r
compare(1/(n^2))
end:full
script, check_limit, begin
take:limit
if lim(series, 1, inf) =! 0, divergant
end:full
else
end:script
script, check_alternating, begin
factor:(-1^n) OR (-1^(n-1))
if [b(n+1) <= b(n): all n]
and [lim(series, n, inf) = 0]
convergant
end:full
else
end:script
script, check_ratio, begin
detect:factorial
detect:exponential
L = lim(abs(series(n+1)/series), n, inf)
polyone
end:script
script, check_root, begin
reform:series(root((abs(series)), n))
L = lim(series, n, inf)
polyone
end:script
script, check_integral, begin
reform:series(integral)
integrate(integral, 1, inf)
if lim(integral) =! 0, divergant
end:full |
Tim is derived from Hamsterspeak, which is in turn derived from BASIC... I think in BASIC! _________________ A broken clock is still right twice a day. |
|