mathematica中多元函数的定义及调用

紫电青霜

我是新手，想用mathematica编一个算法，这个算法在计算时需要调用定义的函数对表进行计算，求得值后决定这个表的去和留。但是这个函数是多元函数，比如f[x_,y_,z_]:=x^2+y^3-Log[z];f[1,3,5]；是一种定义方法，但是当自变量数目为100或者更多时，怎么定义？
如果用xnum = Table[xi,{i, 1, 10}]];来定义（Xi,i为下标），fun = Sum[xnum, {i, 1, 10}];
fun=Compile[xnum,fun];fun[1,1,1,1,1,1,1,1,1,1]；运行时为什么不对？还有在调用fun时，自变量的值是个表，在本例中是个含有十个元素的向量，表有{}，怎么去掉{}而实现调用？希望大侠可以帮帮我！感激不尽！！！

eigen

回复 1# 紫电青霜

你程序中的错误：
1. xnum = Table[xi,{i, 1, 10}]] 中的“xi”要写成“Subscript[x, i],”，才是下标的意思；
2.上式多了个右括号；
可以改成：

1. 
   
2. xnum=Table[Subscript[x,i],{i,10}]
   
3. fun=Sum[xnum[[i]],{i,1,10}]
   

复制代码

紫电青霜

谢谢大侠指教，因为上面的不好表示，所以我在编辑帖子的时候把下标改了下，你说的确实对！我想了一下可以这样定义：s = Module[{xnum = Table[Subscript[x, i], {i, 1, 10}]}, Sum[xnum[[i]], {i, 1, 10}]]；但是调用的时候要根据不同的表值来求得s,这个怎么实现呢？

eigen

你可以这样实现

1. 
   
2. n:=Length[{2,3}]
   
3. xnum:=Table[Subscript[x,i],{i,n}]
   
4. fun:=Sum[xnum[[i]],{i,1,n}]
   
5. xnum := {2, 3}
   
6. fun
   
7. 
   
8. n:=Length[{2,3,6,8}]
   
9. xnum:=Table[Subscript[x,i],{i,n}]
   
10. fun:=Sum[xnum[[i]],{i,1,n}]
    
11. xnum:={2,3,6,8}
    
12. fun
    

复制代码

紫电青霜

回复 4# eigen

恩，明白了，能得到类似于matlab中function的结果，很不错，谢谢！

guocong89

回复 1# 紫电青霜


   
学习使用 Apply。
不要局限在函数的概念里。

紫电青霜

回复 6# guocong89
谢谢版主。。。