clear all;
clc;
y=[];
y3=[];
data=[
2.0408
2.8807
4.1667
5.7082
9.6491
10.6195
12.3596
15.4734
19.9041
25.6281
];
x1=data(:,1);
y8=5./(100+x1).*1000;
y8
t=900;
t1=20;
a=0.00013;
x=x1+x1*a*(t-t1);
y=[y
x];
c=y(:,1);
y1=5./(100+c).*1000;
y1
y6=[0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9];
y2=y6';
y3=[y3 y2];
y3=[y3 y1];
x2=y3(:,1);
y5=y3(:,2);
A(:,1)=ones(size(x2));A(:,2)=x2;
c1=A\y5;
xx=0:0.02:1;
g=c1(1)*ones(size(xx))+c1(2)*xx;
data1=[
0 49.8
0.1 49.0
0.2 48.6
0.3 48.0
0.4 47.3
0.5 45.6
0.6 45.2
0.7 44.5
0.8 43.3
0.9 41.7];
x7=data1(:,1);
y7=data1(:,2);
figure(1),subplot(1,2,1),plot(x7,y8,'o',x7,y8,'k');axis([0 0.9 39.0 49.0]);title('电流变化曲线');
legend('离散电流值','电流变化曲线')
xlabel('电阻烧蚀长度(单位:mm)')
ylabel('电流值(单位:mA)')
subplot(1,2,2),plot(x2,y5,'o',x2,y5,'k');axis([0 0.9 39.0 49.0]);
title('修正后电流变化曲线');
legend('离散电流值','电流变化曲线')
xlabel('电阻烧蚀长度(单位:mm)')
ylabel('电流值(单位:mA)')
figure(2),plot(x2,y5,'sk',xx,g,':k');axis([0 0.9 39 49]);
hold on
plot(x2,y5,'o',x2,y5,'k');axis([0 0.9 39 49]);
title('函数组合曲线拟合');
legend('电流变化曲线','拟合后函数曲线')
xlabel('电阻烧蚀长度(单位:mm)')
ylabel('电流值(单位:mA)')
% figure(3),plot(x7,y8,'o',x7,y8,'k');axis([0 0.9 44.0 49.0]);title('电流变化曲线');
% legend('离散电流值','电流变化曲线')
% xlabel('电阻烧蚀长度(单位:mm)')
% ylabel('电流值(单位:mA)')
没有合适的资源?快使用搜索试试~ 我知道了~
neichanihe.rar_MATLAB内插_内插_函数 曲线拟合_数据内插_曲线拟合
共3个文件
m:2个
txt:1个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 34 浏览量
2022-07-15
09:10:48
上传
评论
收藏 1KB RAR 举报
温馨提示
实现采集数据的曲线拟合,及内插函数等功能
资源推荐
资源详情
资源评论
收起资源包目录
neichanihe.rar (3个子文件)
neicha.m 860B
www.pudn.com.txt 218B
tcr.m 2KB
共 3 条
- 1
资源评论
局外狗
- 粉丝: 67
- 资源: 1万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功