% math Mathematica 3.0 for Solaris Copyright 1988-97 Wolfram Research, Inc. -- Motif graphics initialized -- In[1]:= Cos[a*x]*Sech[b*x] Out[1]= Cos[a x] Sech[b x] In[2]:= Series[%,{x,0,5}] 2 2 4 2 2 4 -a b 2 a a b 5 b 4 6 Out[2]= 1 + (--- - --) x + (-- + ----- + ----) x + O[x] 2 2 24 4 24 In[3]:= Quit$B>e5-$N=PNO$N$&$A!":G=i$N(B % math (Mathematica $B$N5/F0(B) $B$H(B In[]:= $B$N8e$KB3$/ItJ,$,;d$,F~NO$7$?$b$N$G!"(B Out[]:= $B$KB3$/ItJ,$,(B Mathematica $B$,JV$7$?=PNO$G$"$k!#(B
$B:G=i$K4X?t$r@_Dj$9$k!#(B $B$b(B
$B$b(B
Mathematica $B$K$O$"$i$+$8$a(B
Cos[x], Sech[x] $B$H$7$FAH$_9~$^$l$F$$$k!#(B
$B$=$7$F(B Series[,{,,}] $B$,%F%$%i!
$B:#2s$O(B 5 $B
$B$3$N7W;;$r
Next: $B$3$NJ8=q$K$D$$$F(B...
Up: $B@Q!">&!"9g@.4X?tEy$N%F%$%i!
2002$BG/(B 7$B7n(B 30$BF|(B