24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 3263  |  回复: 2

1025493989

新虫 (正式写手)

[求助] 使用matlab用介电常数和磁导率求解反射率的程序问题 已有2人参与

load w.txt;
f=w(:,1);
e1=w(:,2);
e11=w(:,3);
u1=w(:,4);
u11=w(:,5);
e=e1-i*e11;
u=u1-i*u11;
k1=(u./e).^0.5;
k2=(u.*e).^0.5;
K=2*pi*0.0080/3;
z=k1.*tanh(i*(K.*f./1).*k2);
RL=20.*log10(abs(z-1)./abs(z+1));
%计算结果输出,Excel格式
Excel=actxserver('Excel.Application');
set(Excel,'Visible',1);
Workbooks=Excel.Workbooks;
Workbook=invoke(Workbooks,'Add');
Sheets=Excel.ActiveworkBook.Sheets;
Sheet2=get(Sheets,'Item',2);
invoke(Sheet2,'Activate');
Activesheet=Excel.Activesheet;
A=[f,RL];
ActivesheetRange=get(Activesheet,'Range','A1:B201');
set(ActivesheetRange,'Value',A);
Range=get(Activesheet,'Range','A1:B201');
plot(f,RL);xlabel('\it  频率 / GHz\rm'),ylabel('\it 吸收损耗 / dB \rm');
%输出路径
invoke(Workbook,'SaveAs','C:\Documents and Settings\Administrator\桌面\新建文件夹 );invoke(Excel,'Quit');

出现以下错误提示,不知道原因出在哪,求指导,谢谢
Error using load
Unknown text on line number 1 of ASCII file C:\Users\thinkpad\Desktop\w.txt
"f".
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小懒虫1号

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
fegg7502: 金币+1, 鼓励交流 2015-10-18 11:02:49
1025493989: 金币+20, ★★★很有帮助, 谢谢 2015-10-18 11:18:28
一、纯数据txt文件(没有字母和中文,纯数字)

例如test.txt文件,内容为“17.901 -1.1111 33.045
                          17.891 -1.1286 33.045
                          17.884 -1.1345 33.045”

   可以在command window中输入load test.txt ,然后就会产生一个test的数据文件,内容跟test.txt中的数据一样

;另一种方法是在file/import data....../next/finish 也可产生一个叫test的数据文件。

二、中英文和数据txt文件,如test1.txt

“你好
欢迎来到
振动论坛
vib.hit.edu.cn
1 11 111 1111
2 22 222 2222
3 33 333 3333
4 44 444 4444
5 55 555 5555”
这样的文件怎么读入数据呢?
方法有多种,现举两个比较简单实用的。


方法一:
file/import data....../next/finish
>> whos
Name           Size                   Bytes Class

data           5x4                      160 double array
textdata       4x1                      300 cell array

Grand total is 54 elements using 460 bytes

>> data

data =

           1          11         111        1111
           2          22         222        2222
           3          33         333        3333
           4          44         444        4444
           5          55         555        5555

>> textdata

textdata =

    '你好'
    '欢迎来到'
    '振动论坛'
    'vib.hit.edu.cn'


方法二:
[a1,a2,a3,a4]=textread('test1.txt','%s%s%s%s','headerlines',4)
说明:%s可以是其他形式,跟读入的数据类型有关,比如这里也可以用%n,%f等。
这里%s的个数和[a1,a2,a3,a4]对应。
>> [a1,a2,a3,a4]=textread('test1.txt','%s%s%s%s','headerlines',4)

a1 =

    '1'
    '2'
    '3'
    '4'
    '5'


a2 =

    '11'
    '22'
    '33'
    '44'
    '55'


a3 =

    '111'
    '222'
    '333'
    '444'
    '555'


a4 =

    '1111'
    '2222'
    '3333'
    '4444'
    '5555'
因以字符串的形式读入,所以有''。
————————————————————————————————

三、中文 数据 英文 混乱txt文件如test.txt

你好
1 11 111 1111
欢迎来到
2 22 222 2222
振动论坛
3 33 333 3333
vib.hit.edu.cn
4 44 444 4444
5 55 555 5555

说明:这种内容格式的文件用上面的方法是不行的。

fidin=fopen('test.txt');                               % 打开test2.txt文件            
fidout=fopen('mkmatlab.txt','w');                       % 创建MKMATLAB.txt文件
while ~feof(fidin)                                      % 判断是否为文件末尾               
    tline=fgetl(fidin);                                 % 从文件读行   
    if double(tline(1))>=48&&double(tline(1))<=57       % 判断首字符是否是数值
       fprintf(fidout,'%s\n\n',tline);                  % 如果是数字行,把此行数据写入文件MKMATLAB.txt
       continue                                         % 如果是非数字继续下一次循环
    end
end
fclose(fidout);
MK=importdata('MKMATLAB.txt');      % 将生成的MKMATLAB.txt文件导入工作空间,变量名为MK,实际上它不显示出


>> MK

MK =

           1          11         111        1111
           2          22         222        2222
           3          33         333        3333
           4          44         444        4444
           5          55         555        5555
做一只勤奋的小懒虫
2楼2015-10-18 11:01:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小龙123457

新虫 (初入文坛)

【答案】应助回帖

引用回帖:
1楼: Originally posted by 1025493989 at 2015-10-17 22:42:52
load w.txt;
f=w(:,1);
e1=w(:,2);
e11=w(:,3);
u1=w(:,4);
u11=w(:,5);
e=e1-i*e11;
u=u1-i*u11;
k1=(u./e).^0.5;
k2=(u.*e).^0.5;
K=2*pi*0.0080/3;
z=k1.*tanh(i*(K.*f./1).*k2);
RL=20.*log10(abs ...

能将这个程序发给我吗??

发自小木虫IOS客户端
3楼2017-06-06 16:42:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 1025493989 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 327求调剂 +15 Xxjc1107. 2026-04-13 16/800 2026-04-13 20:48 by paopaotu326
[硕博家园] 有没有学校材料专业收跨调(一志愿085410) +13 momo(上岸版) 2026-04-06 16/800 2026-04-13 15:27 by Xurambo2014
[考研] 366求调剂 +9 不知名的小卅 2026-04-11 9/450 2026-04-13 01:19 by 幸免 ..
[考研] 332求调剂 +14 蕉蕉123 2026-04-10 14/700 2026-04-12 00:27 by 蓝云思雨
[考研] 086003调剂求助 +21 苏弋万 2026-04-09 22/1100 2026-04-11 20:25 by dongdian1
[考研] 269求调剂 +11 啊啊我我 2026-04-07 11/550 2026-04-11 16:45 by vgtyfty
[考研] 283求调剂 086004考英二数二 +17 那个噜子 2026-04-10 18/900 2026-04-11 16:27 by 明月此时有
[考研] 085600材料与化工329分求调剂 +16 叶zilin 2026-04-10 16/800 2026-04-11 11:04 by may_新宇
[考研] 085410-273求调剂 +6 X1999 2026-04-10 6/300 2026-04-11 10:32 by Delta2012
[考研] 283求调剂,工科! +12 苏打水7777 2026-04-08 12/600 2026-04-11 10:28 by 逆水乘风
[考研] 广东省 085601 329分求调剂 +14 Eddieddd 2026-04-10 14/700 2026-04-11 09:58 by bljnqdcc
[考研] 282,求调剂 +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by 猪会飞
[考研] 考研调剂 +26 硕星赴 2026-04-09 27/1350 2026-04-10 22:24 by 猪会飞
[考研] 一志愿京区985,085401电子信息,本科电子信息 +3 阳光开朗的男孩 2026-04-10 3/150 2026-04-10 16:29 by sophia_93
[考研] 071000生物学调剂求助 +17 zzzzwww 2026-04-09 20/1000 2026-04-10 15:55 by 求调剂zz
[考研] 367求调剂 +10 hffQAQ 2026-04-09 10/500 2026-04-09 18:06 by lijunpoly
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 263分B区求调剂 +6 李nihao 2026-04-08 6/300 2026-04-08 09:38 by 南开小綦
[考研] 求考研材料调剂 +3 材化李可 2026-04-07 3/150 2026-04-08 00:21 by JourneyLucky
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
信息提示
请填处理意见