Mathematica Tool 1

This Mathematica notebook is designed to be used with Activity 6 in Section 5.3

The table below corresponds to the partially filled-in Table 1. Fill in the missing values, using the commands below the table.

TableForm[
{{1.0,.841470984807897,.8414709848,-.459697694131860,-.4596976941},
{.1,0.0998334166468282,.9983341665,-0.004995834721974,-0.04995834722},
{.01, "???",                                "???",                    "???",                        "???"},
{.001, "???",                                "???",                    "???",                        "???"},
{.001, "???",                                "???",                    "???",                        "???"},
{.00001, "???",                                "???",                    "???",                        "???"}},
TableHeadings->{None,{"Δt","Sin(Δt)","((Sin (Δt))/(Δt))","Cos(Δt)-1","((Cos (Δt) - 1)/(Δt))"}}]

Δt=1.0
Sin[Δt]
((Sin[Δt])/(Δt))
Cos[Δt]-1
((Cos[Δt]-1)/(Δt))