一个小东西把我绕住了，关于数组的问题

cjd502

一个小程序：目的是找接近的公差，我年40了，没编程基础，烦请师弟帮看一下
第一步：输入数组：x1 x2 x3------xn
第二步：求任意两个数间的差  y（k）=x(j)-x(i)     j=2:n   i=1:n
第三步：比较所得的差y（k），一共有j个，把差的绝对值小于1(或某个数m)的所有差列出。

[ 本帖最后由 sigma665 于 2008-6-1 09:18 编辑 ]

ch_j1985

原帖由 cjd502 于 2008-5-31 22:21 发表

                               
登录/注册后可看大图

一个小程序：目的是找接近的公差，我年40了，没编程基础，烦请师弟帮看一下
第一步：输入数组：x1 x2 x3------xn
第二步：求任意两个数间的差  y（k）=x(j)-x(i)     j=2:n   i=1:n
第三步：比较所得的差y（k）， ...

看看下面的代码是不是您想要的：

1. 
   
2. clc
   
3. clear
   
4. X=input('输入数组X:\n');
   
5. k=length(X);
   
6. n=0;
   
7. for i=1:k-1
   
8.     for j=i+1:k
   
9.         n=n+1;
   
10.         Y1(n)=X(i)-X(j);%求差
    
11.     end
    
12. end
    
13. Y2=abs(Y1);%求差的绝对值
    
14. Z=find(Y2<2);
    
15. Y1(Z)
    

复制代码

cjd502

学习了，找资料验证了一下，确实很完整。多谢指教。