| Labfans是一个针对大学生、工程师和科研工作者的技术社区。 | 论坛首页 | 联系我们(Contact Us) | 
![]()  | 
	
| 		
			
			 | 
		#2 | 
| 
			
			 普通会员 
			
			
			
			注册日期: 2008-08-17 
				
				年龄: 43 
				
					帖子: 77
				 
				
				
				声望力: 19 ![]()  | 
	
	
	
		
		
			
			 
			
			方程求解应该用mathematica,给出数值解方法,算出来1024组解(想算符号解的话把最开头第一个N去掉,估计电脑死机了也算不出来) 
		
		
		
		
		
		
		
	NSolve[Flatten[{Table[(3 - 5 Subscript[x, i]) Subscript[x, i] + 1 - Subscript[x, i - 1] - 2 Subscript[x, i + 1] == 0, {i, 2, 9}], (3 - 5 Subscript[x, 1]) Subscript[x, 1] + 1 - 2 Subscript[x, 2] == 0, (3 - 5 Subscript[x, 10]) Subscript[x, 10] + 1 - Subscript[x, 9] == 0}], Table[Subscript[x, i], {i, 10}]]  | 
| 
		 | 
	
	
	
		
		
		
		
			 
		
		
		
		
		
		
		
			
		
		
		
	 |