求高手帮忙用数学软件Mathematica,做一下

*** 求过两点(2,5),(7,9)的直线方程。
我想要具体过程和结果,哪位好心人能帮忙一下啊,我都不会啊,正学习中。。或把结果发我邮箱:fyl2828@163.com 谢谢
我要的是 用数学软件Mathematica做。。那样谁还不会算啊。呵呵

g = {{2, 5}, {7, 9}};
Fit[g, {1, x}, x] 大括号里的1是0次方、x是一次方的意思

Fit函数的使用格式:
Fit[data,funs,vars]
例如,用数据拟合二次函数则是Fit[data,{1,x,x^2},x]
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-10-27
设直线方程为y=kx+b
将(2,5)(7,9)带入上式,得
5=2k+b ①
9=7k+b ②
联立②-①,可得4=5k,则k=0.8
将k=0.8带入①或②中,得b=3.4

或者直接根据两个坐标点求斜率,K=(y2-y1)/(x2-x1)=(9-5)/(7-2)=0.8
利用(y-y0)=k(x-x0),将x0,y0代任意坐标点,可得直线方程

求高手用数学软件Mathematica做一下这个题
写出与下列数学条件等价的Mathematica逻辑表达式。答:1. m>s && m<t,2. x≤-10 || x≥10,3. -3<x<= 6 && -2<=y<7 注: <= 与 ≤ 有相同效果

用matlab 或mathematica求出积分微分的图或数值解
Solve[%, LaplaceTransform[V[u], u, s]] \/. V[0] -> 1 sol = InverseLaplaceTransform[%, s, u]Plot[Chop[V[u] \/. sol], {u, 0, 2}]———注意,以上解法是一个因为错误的赋值顺序而造成的错误结果。至少在我所找的这个参数下,因为软件没法求解LaplaceTransform[V[u], u, s...

谁能教导一下用mathematica运行一下命令为什么会出错?
第一,二阶导数不是你那样表示的,而是应该用形如 x''[t] 的式子。第二,你的三个方程里,第三个方程写漏了……怎么只有等式左边却没右边的啊。第三,应变量不是像你那样表示的,{x, y, z},前面的那三个要去掉。综合以上三点,一个可行的例子是(不全的等式我随便补了个条件):DSolve[...

求数学软件高手帮忙 急盼!用Matlab或者Mathematica 利用非线性最小二...
同意一楼的

求高手赐教!用Mathematica 利用非线性最小二乘法 实现曲线拟合 求解...
上次偷懒了,没继续往下看,不好意思^^ 把后两行改成:modelf = Function[{x}, Evaluate[model \/. fit]][x]Plot[modelf, {x, 0, 0.5}, Epilog -> Map[Point, data]]注意也只是把[x]换了个位置,还是笔误,呵呵.运行可得 1.82153*10^-7 Sin[1450.28 x]^2 图我昨天上传了一天都没...

求高手 用Mathematica 做出 十字路口的车速改变的动画 帮给出程序...
学会最基础的mathematica语法,包括函数的定义方法,还有指令的基本格式等。然后,定义一个路程随时间的函数,再用Graphics画出若干个图形,把路程做为一个矩形的纵坐标,红绿灯大概也要用到一个逻辑判断式来表示它的颜色,再把以上函数关系塞到一个Animate指令里面去,差不多就完事了吧……

拜求mathematica高手帮我排除错误~
首先格式有误,那句警告的意思就是Solve只能有两个参数,而你里面有4个.Solve的格式是:Solve[{等式s},{变量s}],应该写成:Solve[{f[X[1]] == Y[1], f[X[2]] == Y[2],Integrate[Sqrt[1 + f'[x]^2], {x, X[1], X[2]}] == s}, {a, b, c}]求解中间的积分其实是可以...

如何在mathematica 5.0 中求曲线在某个区间的最大值和最小值和某点的...
用FindMaximum和FindMinimum命令,然后结果中存在那个点的位置,你在用D[...]方法来把那个点导数求出来。这是连续函数的命令。若是离散函数,你应该用Max,Min做,找那个点用Position命令,然后得出它点的位置,最后把那点用[[...]]给它挑出来,就是了,求导数用求差分的方法。具体的你自己要把它编...

求高手帮忙画二次分段函数图,函数如图
我是用Mathematica作图的,这个软件是非常强大符号系统,另外做数学图片也非常漂亮。这里的命令是:F[y_] := Module[{},If[y >= 0 && y <= 550, Return[3\/6050000 y^2]];If[y >= 550 && y <= 580,Return[0.15 + 1\/135600 (y + 550) (y - 550)]];If[y >= 580 && y <...

Mathematica画一个函数的曲线图,求高手解答。。
Mathematica有现成函数的

相似回答