%% 突入電流を計算する% https://ak1211.com% Copyright (c) 2015 Akihiro Yamamoto%%% This software is released under the MIT License.% http://opensource.org/licenses/mit-license.php%e=12;r=0.020;c=0.0082;t=linspace(0,0.001,1000);i=e/r*exp(-1/(r*c)*t);plot(t*1000,i,'cb-');gridon;holdon;xticks=get(gca(), "xtick");xticks=[xticks[0.164]];xticks=sort(xticks);set(gca(), "xtick",xticks);xlabel('time [ms]');ylabel('current [A]');legend('inrush current', "location",'north');d=(i(2)-i(1))/(t(2)-t(1));y=i(1)+d*t;y(y<0.0)=NA;plot(t*1000,y,'cm-');
%% 突入電流を計算する% http://ak1211.com% Copyright (c) 2015 Akihiro Yamamoto%%% This software is released under the MIT License.% http://opensource.org/licenses/mit-license.php%e=12;r=33+0.020;c=0.0082;t=linspace(0,1,1000);i=e/r*exp(-1/(r*c)*t);plot(t*1000,i,'cb-');gridon;holdon;xticks=get(gca(), "xtick");xticks=[xticks[270]];xticks=sort(xticks);set(gca(), "xtick",xticks);xlabel('time [ms]');ylabel('current [A]');legend('inrush current', "location",'north');d=(i(2)-i(1))/(t(2)-t(1));y=i(1)+d*t;y(y<0.0)=NA;plot(t*1000,y,'cm-');