²é¿´: 2269  |  »Ø¸´: 6

СÁõ8885

ľ³æ (ÕýʽдÊÖ)

[ÇóÖú] Matalab ³ÌÐòµ÷ÊÔ

ÏÂÊö³ÌÐòÔËÐгö´í£¬Çó¸ßÊÖÖ¸µã¡£ÕâÊÇÒ»¸öMÎļþ¡£

function f4=func_main(name,a,q1,q2,x2,flag)
% flag=0 represent complex permittivity
% flag=1 represent complex permeability
data=load(name);
xf=data(:,1);
if (flag==0)
    y1=data(:,2)+data(:,3)*i;
elseif (flag==1)
    y1=data(:,4)+data(:,5)*i;
else
    disp('0 is complex perimittivity, 1 is complex permeability');
    return;
end

x11=func1(a,q1,y1,x2);  
%µ÷Óú¯Êýfunc1£¬Çó½âx1
%Hanai formula µÄÇó½â½á¹û %Çó½âµÄÊÇx1£¬Îª¾ø¶Ô½éµç³£Êý
x1=x11;
a=real(x1);
b=imag(x1);
c=[a,b];

x0=zeros(length(data),1);
F=fsolve(@(y2)func2(a,q2,x1,x2,y2),x0);
%µ÷ÓÃǰÊöfunc1ËùÇóµÃµÄx1£¬´úÈ뺯Êýfunc2
%Çó½â³¬Ô½·½³ÌµÄy2Öµ¡£
f4=F;
r = [real(f4), imag(f4)];

plotyy(xf,a,xf,b);
save('data1.txt', 'c', '-ascii');
save('data2.txt', 'r', '-ascii');

function x1=func1(a,q1,y1,x2)
x1=(q1.*x2-x2+y1.*(x2./y1).^a)./(q1+(x2./y1).^a-1);
%Çó½âx1

function F=func2(a,q2,x1,x2,y2)
F=(((1-q2)*(x2-x1))./(x2^a)).*(y2.^a)-y2+x1;
%Çó½ây2



ÁíÍâµÄµ÷ÓôúÂëÈçÏ£º

% Exop4
clear up;
clc;

a=1/3;
q1=0.06;
q2=0.107;
x2=3.7+0.703*i;
flag=0;
func_main('3.txt',a,q1,q2,x2,flag);
¸´ÖƵ½command´°¿Ú¾Í¿ÉÒÔÔËÐС£
»Ø¸´´ËÂ¥

» ±¾Ìû¸½¼þ×ÊÔ´Áбí

  • »¶Ó­¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
    ±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
  • ¸½¼þ 1 : func_main.m
  • 2012-05-27 11:38:14, 945 bytes
  • ¸½¼þ 2 : 3.txt
  • 2012-05-27 11:38:25, 3.1 K
  • ¸½¼þ 3 : Exop4.m
  • 2012-05-27 11:39:11, 119 bytes

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

csgt0

ÈÙÓþ°æÖ÷ (ÖøÃûдÊÖ)

²ÊÉ«¹Òͼ

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
FÀïµÄx2^aÓ¦¸Ãµã³Ë°É£¿ÓÐʲôÎÊÌâ³öʲô´íÒ²²»Ëµ£¬Óм¸¸öÄܰïÄã
showmethemoney
2Â¥2012-05-28 09:10:18
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lijie169

Í­³æ (ÖøÃûдÊÖ)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
СÁõ8885: ½ð±Ò+1, ¡ïÓаïÖú 2012-05-29 10:09:49
plotyy(xf,a,xf,b);Õâ¾ä²»¶Ô°É£¡£¡£¡
3Â¥2012-05-28 13:11:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

СÁõ8885

ľ³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
2Â¥: Originally posted by csgt0 at 2012-05-28 09:10:18
FÀïµÄx2^aÓ¦¸Ãµã³Ë°É£¿ÓÐʲôÎÊÌâ³öʲô´íÒ²²»Ëµ£¬Óм¸¸öÄܰïÄã

Äú¿ÉÒÔ°ïÎÒ¿´¿´£¬¸ÄÕýµã³ËÖ®ºó£¬ÔËÐÐÖ®ºóÏÔʾÏÂÃæµÄ´íÎó£º
Error using trustnleqn (line 28)
Objective function is returning undefined values at initial point. FSOLVE cannot continue.

Error in fsolve (line 399)
    [x,FVAL,JACOB,EXITFLAG,OUTPUT,msgData]=...

Error in func_main (line 27)
F=fsolve(@(y2)func2(a,q2,x1,x2,y2),x0);
4Â¥2012-05-28 18:43:31
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

СÁõ8885

ľ³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
3Â¥: Originally posted by lijie169 at 2012-05-28 13:11:52
plotyy(xf,a,xf,b);Õâ¾ä²»¶Ô°É£¡£¡£¡

Õâ¾äÓï¾ä¾ÍÊÇ»­Ò»¸öË«yÖáµÄµÄͼ£¬ºÃÏñûÓÐ´í°¡¡£
function f4=func_main(name,a,q1,q2,X,flag)
% flag=0 represent complex permittivity
% flag=1 represent complex permeability
data=load(name);
xf=data(:,1);
x2=X*ones(length(data),1);
if (flag==0)
    y1=data(:,2)+data(:,3)*i;
   
elseif (flag==1)
    y1=data(:,4)+data(:,5)*i;
else
    disp('0 is complex perimittivity, 1 is complex permeability');
    return;
end

x11=func1(a,q1,y1,x2);  
%µ÷Óú¯Êýfunc1£¬Çó½âx1
%Hanai formula µÄÇó½â½á¹û %Çó½âµÄÊÇx1£¬Îª¾ø¶Ô½éµç³£Êý
x1=x11;
a=real(x1);
b=imag(x1);
c=[a,b];
plotyy(xf,a,xf,b);

x0=zeros(length(data),1);
F=fsolve(@(y2)func2(a,q2,x1,x2,y2),x0);
%µ÷ÓÃǰÊöfunc1ËùÇóµÃµÄx1£¬´úÈ뺯Êýfunc2
%Çó½â³¬Ô½·½³ÌµÄy2Öµ¡£
f4=F;
r = [real(f4), imag(f4)];


save('data1.txt', 'c', '-ascii');
save('data2.txt', 'r', '-ascii');

function x1=func1(a,q1,y1,x2)
x1=(q1.*x2-x2+y1.*(x2./y1).^a)./(q1+(x2./y1).^a-1);
%Çó½âx1

function F=func2(a,q2,x1,x2,y2)
F=(((1-q2)*(x2-x1))./(x2.^a)).*(y2.^a)-y2+x1;
%Çó½ây2

ÎÒ°Ñ plotyy(xf,a,xf,b); ÕâÒ»Óï¾äÌáµ½Ç°ÃæÈ¥ÊÇ¿ÉÒÔÖ´Ðе쬻¹»­³öÁËͼ¡£ÔËÐÐÖ®ºóÌáʾÎÒÎÊÌâ³öÔÚ fsolve ÄǸöÓï¾ä¡£
5Â¥2012-05-28 18:46:10
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

csgt0

ÈÙÓþ°æÖ÷ (ÖøÃûдÊÖ)

²ÊÉ«¹Òͼ

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
СÁõ8885: ½ð±Ò+29, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸, ¹ûÈ»ÊÇÅ£ÈË£¬´ó²Å¡£ 2012-05-29 10:09:20
x0=zeros(length(data),1);
¸Ä³Éx0=ones(length(data),1);
Èç¹ûx0=0£¬y2=0,F2¾ÍÎÞÇî´óÁËËùÒÔ±¨´í

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

showmethemoney
6Â¥2012-05-29 09:21:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

СÁõ8885

ľ³æ (ÕýʽдÊÖ)

ËÍÏÊ»¨Ò»¶ä
ÒýÓûØÌû:
6Â¥: Originally posted by csgt0 at 2012-05-29 09:21:27
x0=zeros(length(data),1);
¸Ä³Éx0=ones(length(data),1);
Èç¹ûx0=0£¬y2=0,F2¾ÍÎÞÇî´óÁËËùÒÔ±¨´í

¹ûȻϬÀû£¬±»ÄãµãÖÐÁË¡£ÎÊÌâ½â¾öÁË£¬Ð»Ð»£¡
7Â¥2012-05-29 10:05:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ СÁõ8885 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] »¯Ñ§Çóµ÷¼Á +4 ÁÙÔó¾³llllll 2026-03-17 5/250 2026-03-21 02:23 by JourneyLucky
[¿¼ÑÐ] 278Çóµ÷¼Á +6 ÑÌ»ðÏÈÓÚ´º 2026-03-17 6/300 2026-03-21 01:57 by JourneyLucky
[¿¼ÑÐ] 324·Ö 085600²ÄÁÏ»¯¹¤Çóµ÷¼Á +4 llllkkkhh 2026-03-18 4/200 2026-03-21 01:24 by JourneyLucky
[¿¼ÑÐ] 354Çóµ÷¼Á +5 Tyoumou 2026-03-18 8/400 2026-03-21 00:35 by JourneyLucky
[¿¼ÑÐ] Äϲý´óѧ²ÄÁÏר˶311·ÖÇóµ÷¼Á +5 77chaselx 2026-03-20 5/250 2026-03-20 23:42 by lovewei0727
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤ 322Çóµ÷¼Á +4 È»11 2026-03-19 4/200 2026-03-20 22:12 by luoyongfeng
[¿¼ÑÐ] Ò»Ö¾Ô¸ËÕÖÝ´óѧ²ÄÁÏÇóµ÷¼Á£¬×Ü·Ö315£¨Ó¢Ò»£© +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[¿¼ÑÐ] 329Çóµ÷¼Á +9 ÏëÉÏѧ߹߹ 2026-03-19 9/450 2026-03-20 22:01 by luoyongfeng
[¿¼ÑÐ] AÇøÏß²ÄÁÏѧµ÷¼Á +5 ÖÜÖÜÎÞ¼« 2026-03-20 5/250 2026-03-20 21:33 by laoshidan
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷ÄϽ»Í¨ ר˶ ²ÄÁÏ355 ±¾¿ÆË«·Ç Çóµ÷¼Á +5 Î÷ÄϽ»Í¨×¨²Ä355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷°²½»Í¨´óѧ ѧ˶ 354Çóµ÷¼Á +3 ÎÒÏëÒª¶ÁÑо¿Éú 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á £¬Áù¼¶Òѹý£¬ÓпÆÑо­Àú +13 êØÎõÙâ 2026-03-15 13/650 2026-03-20 19:35 by Dream007008
[¿¼ÑÐ] 086500 325 Çóµ÷¼Á +3 Áì´øÐ¡ÐÜ 2026-03-19 3/150 2026-03-20 18:38 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] 266Çóµ÷¼Á +5 ÑôÑôÍÛÈû 2026-03-14 10/500 2026-03-19 15:08 by ÑôÑôÍÛÈû
[¿¼ÑÐ] 346Çóµ÷¼Á[0856] +3 WayneLim327 2026-03-16 6/300 2026-03-19 11:21 by WayneLim327
[¿¼ÑÐ] ²ÄÁϹ¤³Ìר˶µ÷¼Á +5 204818@lcx 2026-03-17 6/300 2026-03-18 22:55 by 204818@lcx
[¿¼ÑÐ] ²ÄÁÏר˶326Çóµ÷¼Á +6 Ä«ìÏæ¦Ý· 2026-03-15 7/350 2026-03-17 17:10 by ruiyingmiao
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÎÄ˼¿Í 2026-03-16 7/350 2026-03-16 18:21 by ÎÄ˼¿Í
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á 290·ÖÓпÆÑо­Àú£¬ÂÛÎÄÔÚͶ +7 ÄåÄågk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û