Mathmatica遇到的小问题，有金币送（暂无问题）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

下面是我在学习过来中遇到的一些小问题，有些可能是非常简单的，属于比较弱智的类型，如果你碰巧知道，希望不吝赐教！根据我想知道的急切程度，每个小问题都标有一定数量的金币。(1金币＝100论坛币）

1、如何将某个方程的解的“值”负给某一个变量。比如我用solve[x+1=0,x]，解出x=-1,现在我想把-1赋值给变量a,如何做？（请看三楼的解释）（8金币）已解决!

2、如何求一个反函数，比如f(x)=x+1，用什么命令能够求出它的反函数？（8金币）已解决!

3、Mathmatica能够导入Excel数据吗？那么EVIEW或STATA的数据能够导入吗？如果能够导入能不能部分导入，比如从几行几列到几行几列？txt或.dat的就不用介绍了（15金币）

以上问题共计金币31枚

[此贴子已经被作者于2008-1-5 4:04:34编辑过]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：mathmatica mathmatic Math Mat ATI mathmatica 金币

   本人用的是Maple数学软件，所以以下解答都是基于Maple，但应该具有互通性：

1. a:=solve(x+1=0,x); 前面加赋值符号就可以了；

2.数据导入问题，数学软件一般都可以，只不过可能对文件格式有一定要求，比较通用的文件格式是*.txt文件，如果楼主提到的软件不能直接导入Excel文件，可以先把它转为*.txt，应该复制粘贴就可以了。导入命令readdata("c:\\*.txt")，读取文件中所有数据，readline("c:\\*.txt")，读取一行。对于你所用软件，可以查找相关导入命令，应该是read有关命令，括号内列出文件具体位置。

3. 隐函数问题可以通过制作3d图形得到立体等量线：首先，制作三个函数：p:=unapply(x^a,x);q:=unapply(y^b,y);U:=p*q;然后，作图：plot3d(U,x=0..1,y=0..100)，可得到3d立体图像。

再次重申，上述解答是基于Maple做的，楼主可以查找相关命令；拿不拿金币都没什么问题，本人不缺钱

[此贴子已经被作者于2007-12-27 8:42:05编辑过]

phoenics398，

1、关于第1个问题，我将x+1=0的解赋值给a了，但在运算的时候出现这样的问题。

我需要的仅仅是解的数值，而不希望是一个集合，但它实际上并不是一个集合，因为，我按照提取集合元素的方法也不能把解的数值独立出来。有办法吗？

比如我要做这样的工作，a=x1, (x1就是方程x+1=0的解），然后我要解方程：y+1=a.

如果按你说的方法应该是

a=Solve[x+1=0,x];

Solve[y+1=a,y]

但是第二个不能得出答案。

2、U=X^aY^b，要画出U＝U0时的曲线，是二维，不是三维的呀，怎么画？

[此贴子已经被作者于2007-12-27 9:33:40编辑过]

由于本人所用软件不同，本人对mathmatica语句只能推测，无法验证。

第一个问题：

从你得出的结果来看，我猜mathmatica应该区分三种符号：函数赋值符号；等号；变量赋值符号；

可以先列出三个式子验证：

solve[x+1=0,x];

solve[x+1==0,x];

solve[x+1:=0,x];

看看运行的情况。哪个能得出x=1，就是等号；

然后，运行三个式子：

y=x;

y==x;

y:=x;

再看看运行情况。那个能得出{y->x}，就是函数赋值符号；

剩下就是变量赋值符号。

有结果告诉我，我每天八点到九点在线

问题1的答案：
eq01 = Solve[x + 1 == 0, x]
{b} = x /. eq01
b
b+1

注意这个时候b是一个代数值，而非借集形式。明天我再做第二题。

谢谢lizeze，第一个问题已经解决。

如果是多元就得这样一个一个弄了，能合在一起吗？

eq01 = Solve[{x + 1 == 0, y - 2 == 0}, {x, y}];
{b} = x /. eq01;
{c } = y /. eq01;
b
c

关于phoenics398说的，mathmatica只接受这样一种方式，solve[x+1==0,x];其它两种都会报错

2、如何求一个反函数，比如f(x)=x+1，用什么命令能够求出它的反函数？（8金币）

注意：InveseFunction通常只能求出内置函数的反函数，根据该函数的定义：
InverseFunction is generated by Solve when the option InverseFunctions is set to Automatic or True.
因此我们采用下列求法。
f[x_] := x + 1
eq02 = Solve[f[x] == t, x]
eq02
g[y_] := (x /. eq02)[[1]] /. {t -> y}
g[y]
g[2]

我有时间就解答楼主的问题吧，希望多交流

3、Mathmatica能够导入Excel数据吗？那么EVIEW或STATA的数据能够导入吗？如果能够导入能不能部分导入，比如从几行几列到几行几列？txt或.dat的就不用介绍了（15金币）
假定有fbc1.xls的文件在c：盘（附件），以下语句提取第二张数据并命名，为了明确语句作用，没有导入第四列数据。

year = Take[ Import["c:/fbc1.xls", {"Data", 2}], 10, {1, 1}] //
  TableForm
gdp1 = Take[ Import["c:/fbc1.xls", {"Data", 2}], 10, {2, 2}] //
  TableForm
gdp2 = Take[ Import["c:/fbc1.xls", {"Data", 2}], 10, {3, 3}] //
  TableForm
 
目前,mathematica尚不支持EVIEW或STATA的数据,请将数据转换成xls.txt.dat等再导入。

184945.rar (5.86 KB) 本附件包括：

• fbc1.xls

2007-12-28 16:17:00 上传

[此贴子已经被作者于2007-12-28 16:16:50编辑过]

非常感谢lizeze，按你的方法，我在导入excel的时候我遇到了问题，