Wolfram 언어™

차분몫의 갤러리 생성

몇 가지 함수의 차분몫과 관련 도함수를 계산합니다.

In[1]:=

fList = {1, x, x^2, x^3, x^4, 1/x, Sin[x], Cos[x], Sinh[x], Cosh[x], a^(x)}; dqList = DifferenceQuotient[fList, {x, h}]; derList = Limit[dqList, h -> 0];

포맷된 테이블에 결과를 표시합니다.

In[2]:=

Grid[Map[Style[#, ScriptLevel -> 0] &, Prepend[Transpose[{fList, dqList, derList}], Style[#, FontWeight -> Bold, FontSize -> Larger] & /@ {f[x], ( f[x + h] - f[x])/h, f'[x]}], {2}], Dividers -> All, Spacings -> {4, 2}, Background -> {None, {{None, LightBlue}}, {1, #} -> Hue[.6, .4, 1] & /@ Range[3]}, BaseStyle -> {FontFamily -> Times, FontSize -> 13}] // TraditionalForm

Out[2]//TraditionalForm=