ビオ・サバールの法則、Calculation of Field Intensity by Biot-Savart Law.

Equation H=\frac{nr^{2}I}{2\sqrt{(r^{2}+d^{2})^{3}}}000229Scilab 2290122902
 -->clear;
-->function Result=func()
-->    Result=n*r^2*I/(2*((r^2+d^2)^3)^0.5);
-->endfunction
-->for www=1:2;
-->    funcprot(0);
-->    NNN=100;
-->    equation='Result=func()';
-->    xset("window",www);clf();xgrid();
-->    /////////////////////////////////////    
-->    n=10;I=1000;
-->    graphtitle='Field Intensity by Biot-Savart Law.'+string('n=10;I=1000;');
-->    if www==1 | www==2 then
-->        r=linspace(5,10,NNN);
-->        d=linspace(5,10,NNN);
-->        xtitle(graphtitle,'r(mm)','d(mm)','H(A/m)',boxed=1);
-->        fnt='[Result]=func1(r,d)';
-->        deff(fnt,equation);
-->        if www==1 then 
-->            R=245;G=255;B=250;color(R,G,B);idcolor=color(R,G,B);
-->            fplot3d(r,d,func1,flag=[idcolor , 2 , 4]);
-->        elseif www==2 then
-->            nz=30;
-->            contour(r,d,func1,nz,flag=[2,2,4]);
-->            axe=gca();
-->            for iii=1:nz;
-->                cnt=axe.children(iii).children;
-->                eee=length(cnt);
-->                if eee==2 then
-->                    cnt(2).font_size=4;
-->                end
-->            end
-->            func1(10,10)    
-->            func1(5,5)    
-->        end
-->    else
-->        //////
-->    end 
-->    currentaxes=gca();
-->    currentaxes.font_size=6;
-->    currentaxes.title.font_size=6;
-->    currentaxes.x_label.font_size=6;
-->    currentaxes.y_label.font_size=6;
-->    currentaxes.z_label.font_size=6;
-->    currentaxes.tight_limits="on";
-->    currentaxes.cube_scaling="on";
-->    currentaxes.auto_clear="on";
-->    currentaxes.auto_scale="on";
-->end
 ans  =
 
    176.7767  
 ans  =
 
    353.55339  
SciNotes
clear;
function Result=func()
    Result=n*r^2*I/(2*((r^2+d^2)^3)^0.5);
endfunction
for www=1:2;
    funcprot(0);
    NNN=100;
    equation='Result=func()';
    xset("window",www);clf();xgrid();
    /////////////////////////////////////    
    n=10;I=1000;
    graphtitle='Field Intensity by Biot-Savart Law.'+string('n=10;I=1000;');
    if www==1 | www==2 then
        r=linspace(5,10,NNN);
        d=linspace(5,10,NNN);
        xtitle(graphtitle,'r(mm)','d(mm)','H(A/m)',boxed=1);
        fnt='[Result]=func1(r,d)';
        deff(fnt,equation);
        if www==1 then 
            R=245;G=255;B=250;color(R,G,B);idcolor=color(R,G,B);
            fplot3d(r,d,func1,flag=[idcolor , 2 , 4]);
        elseif www==2 then
            nz=30;
            contour(r,d,func1,nz,flag=[2,2,4]);
            axe=gca();
            for iii=1:nz;
                cnt=axe.children(iii).children;
                eee=length(cnt);
                if eee==2 then
                    cnt(2).font_size=4;
                end
            end
            func1(10,10)    
            func1(5,5)    
        end
    else
        //////
    end 
    currentaxes=gca();
    currentaxes.font_size=6;
    currentaxes.title.font_size=6;
    currentaxes.x_label.font_size=6;
    currentaxes.y_label.font_size=6;
    currentaxes.z_label.font_size=6;
    currentaxes.tight_limits="on";
    currentaxes.cube_scaling="on";
    currentaxes.auto_clear="on";
    currentaxes.auto_scale="on";
end
参考文献 岸上順一(2005).『RFID教科書』.アスキー.303pp.アプリケーション URL Scilab http://www.scilab.org/