HP Forums

If I wanted to, say, find what "x" would satisfy the integral of x^2 from 0 to x such that the area under the curve equaled 10, can this be accomplished in solve on an HP 42S?

You can set LLIM and ACC:

0
STO "LLIM"
1e-10
STO "ACC"

And then just use the SOLVER with the program ∫f and the variable x to get

3.10723250595

Cheers
Thomas

Easy!

Thanks.

(02-24-2019 08:13 PM)Thomas Klemm Wrote: [ -> ]

Code:

00 { 12-Byte Prgm }
01▸LBL "f"
02 MVAR "t"
03 RCL "t"
04 X↑2
05 END

Code:

00 { 28-Byte Prgm }
01▸LBL "∫f"
02 MVAR "x"
03 RCL "x"
04 STO "ULIM"
05 PGMINT "f"
06 INTEG "t"
07 10
08 -
09 END

You can set LLIM and ACC:

0
STO "LLIM"
1e-10
STO "ACC"

And then just use the SOLVER with the program ∫f and the variable x to get

3.10723250595

Cheers
Thomas

Line 002 of programme f is not essential.

(02-25-2019 05:17 AM)Gerald H Wrote: [ -> ]Line 002 of programme f is not essential.

Indeed not - MVAR statements are only used by the interactive solve and integrate.
Moreover, you can replace


by


straight away and solve for ULIM.

Cheers, Werner

(02-25-2019 05:17 AM)Gerald H Wrote: [ -> ]Line 002 of programme f is not essential.

We can also drop line 05 of program ∫f:

We just have to execute it once manually:

PGMINT "f"

This also allows to use the program ∫f with different functions without having to change the code.

Cheers
Thomas

So we end up with:


Example:

0
STO "LLIM"
1e-10
STO "ACC"
PGMINT "f"

Then use the SOLVER with the program ∫f and the variable ULIM to get

3.10723250595

Cheers
Thomas

It is fun (and instructive) to see how concise coding can be accomplished. I'm always fascinated and impressed.

Wondered if the HP 42S could integrate the maximum of (f(x), g(x)) over some interval. Quite easy! For max (sin(x), cos(x)), all that was necessary was to take sin(x), x<>y, cos(x), if x>=y, RTN, x<>y, END

I will begin to try-relearn indirect addressing (last did this on an HP 67 in the 1970's when I programmed a simple baseball game...had lineups and data of 1970 American League teams on the magnetic cards, and used indirect addressing to remember where in the lineup I was at). Then, try to refresh my knowledge on the usage of flags!

(02-26-2019 03:15 AM)lrdheat Wrote: [ -> ]I will begin to try-relearn indirect addressing (last did this on an HP 67 in the 1970's

You're in for a treat, then! I have no experience with the HP-67 myself (I own one now, purchased on eBay, but couldn't have afforded it back when it was new), but I do have experience with the HP-19C, which is very similar. Both have only one "indirect" register, which makes a lot of algorithms awkward to implement, always having to shuffle things around to get the right pointer into register 0 (which is the I equivalent on the 19C and 29C).

Compared to that, programming the 41C, where every register, even the stack registers, can be used for indirect addressing, is so much more pleasant, and the 42S inherited that programming model.

(02-26-2019 03:30 AM)Thomas Okken Wrote: [ -> ]Both have only one "indirect" register, which makes a lot of algorithms awkward to implement, always having to shuffle things around to get the right pointer into register 0 (which is the I equivalent on the 19C and 29C).

Compared to that, programming the 41C, where every register, even the stack registers, can be used for indirect addressing, is so much more pleasant, and the 42S inherited that programming model.

From Calculator Speed Benchmark using the N-Queens Problem:

HP-67

HP-41

Compare e.g. the inner loop between LBL 2 … GTO 2:

HP-67

HP-41

Cheers
Thomas

(02-25-2019 08:09 AM)Thomas Klemm Wrote: [ -> ]So we end up with:

Code:

00 { 9-Byte Prgm }
01▸LBL "f"
02 RCL "x"
03 X↑2
04 END

Code:

00 { 19-Byte Prgm }
01▸LBL "∫f"
02 MVAR "ULIM"
03 INTEG "x"
04 10
05 -
06 END

Example:

0
STO "LLIM"
1e-10
STO "ACC"
PGMINT "f"

Then use the SOLVER with the program ∫f and the variable ULIM to get

3.10723250595

Cheers
Thomas

It would make sense to then add ACC and LLIM as MVARS to "∫f":


.. makes it a lot easier to enter the numbers, and to play with different ACC's.

Cheers, Werner

(02-26-2019 07:41 AM)Werner Wrote: [ -> ]It would make sense to then add ACC and LLIM as MVARS to "∫f":

Code:

00 { 30-Byte Prgm }
01▸LBL "∫f"
02 MVAR "ACC"
03 MVAR "LLIM"
04 MVAR "ULIM"
05 INTEG "x"
06 10
07 -
08 END

.. makes it a lot easier to enter the numbers, and to play with different ACC's.

Cheers, Werner

Would anyone want to SOLVE for ACC though?

A useful thing to add would be the (signed) area, which is fixed at 10 in the above versions of ∫f.

This is how I did the calculation for Normal distribution.

First set accuracy by entering number of decimal digits accuracy required, eg

4

then activate FXACC


to set accuracy to 0.0001

To find probability from Z value, enter Z & activate Z→P,

& to find Z value , enter P & activate P→Z.