Hi Linda !
Here's another way to do it:
NB. Log 0 to 10, 4 decimals
a=: 0.01*i.10
b=: 0.1*i.100
ColumnHeader=:'<10^. ';8j2": a
RowHeader=: 8j1": ,. b
TableContent=: 8j4": 10^. b + / a
Page1=:ColumnHeader ,: ( 50{.RowHeader ); 50{. TableContent
Page2=:ColumnHeader ,: ( 50}.RowHeader ); 50}. TableContent
Page1,:Page2
Cheers,
Erling Hellenäs
On 2017-10-04 18:03, Linda Alvord wrote:
Here's a way to create the 2 pages found in most high school Algebra 2 texts.
NB. log tables.ijs
D=:8j4":10^.C=:(B=:0.1*i.50)+/A=:0.01*i.10
E=:(<8j2":A),:<D
F=:,.('<10^.');<":,.B
G=:F,.E
K=:8j4":10^.J=:(I=:0.1*50+i.50)+/H=:0.01*i.10
L=:(<8j2":A),:<K
M=:,.('<10^.');<":,.I
N=:M,.L
G,:N
Simplifications in simple J are great
Linda
Sent from AOL Mobile Mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
