声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 947|回复: 2

[综合讨论] 一个小东西把我绕住了,关于数组的问题

[复制链接]
发表于 2008-5-31 22:21 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
一个小程序:目的是找接近的公差,我年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 编辑 ]
回复
分享到:

使用道具 举报

发表于 2008-5-31 22:49 | 显示全部楼层
原帖由 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. clc
  2. clear
  3. X=input('输入数组X:\n');
  4. k=length(X);
  5. n=0;
  6. for i=1:k-1
  7.     for j=i+1:k
  8.         n=n+1;
  9.         Y1(n)=X(i)-X(j);%求差
  10.     end
  11. end
  12. Y2=abs(Y1);%求差的绝对值
  13. Z=find(Y2<2);
  14. Y1(Z)
复制代码

评分

1

查看全部评分

 楼主| 发表于 2008-6-1 18:15 | 显示全部楼层
学习了,找资料验证了一下,确实很完整。多谢指教。
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-28 16:09 , Processed in 0.056418 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表