109 lines
2.8 KiB
Matlab
109 lines
2.8 KiB
Matlab
%load all the FEMM functions. the folder with all the M files for FEMM should have already been added to path
|
||
addpath('c:\\femm42\\mfiles');
|
||
openfemm;
|
||
|
||
function make_round_turn(x, y, radius, material, circuit)
|
||
x1 = x - radius;
|
||
x2 = x + radius;
|
||
y1 = y;
|
||
y2 = y;
|
||
|
||
mi_drawarc(x1, y1, x2, y2, 180, 10);
|
||
mi_addarc(x2, y2, x1, y1, 180, 10);
|
||
|
||
mi_addblocklabel(x,y);
|
||
mi_selectlabel(x,y);
|
||
%comment out first for automeshing
|
||
mi_setblockprop(material, 1, 0, circuit, 0, 0, 1);
|
||
%mi_setblockprop(material, 0, 10E-3, circuit, 0, 0, 1);
|
||
mi_clearselected;
|
||
|
||
endfunction
|
||
|
||
% materials
|
||
copper_conductivity = 58.0;
|
||
|
||
%parameters
|
||
r_wire = 0.5; % radius of wire
|
||
freq = 0;
|
||
probe_offset = 0.1; % distance from probe tip to wire
|
||
|
||
%constants
|
||
i_wire = 1;
|
||
sensor_offset = 1.6; %offset of from sensor to end of probe tip
|
||
probe_sensitivity_H = 0.8; %volts/gauss
|
||
probe_sensitivity_L = 0.2;
|
||
probe_max_G = 6.0; % max field strength for sensor saturation
|
||
|
||
wire_sizes = [0.1 : 0.05 : 3]
|
||
field_strengths = []
|
||
for wire_size = wire_sizes
|
||
r_wire = wire_size;
|
||
%create new document
|
||
% "0 for a magnetics problem, 1 for an electrostatics problem, 2 for a heat flow problem, or 3 for a current flow problem"
|
||
|
||
newdocument(0);
|
||
|
||
% Define the problem type. Magnetostatic; Units of mm; Axisymmetric;
|
||
% Precision of 10^(-8) for the linear solver; a placeholder of 0 for
|
||
% the depth dimension, and an angle constraint of 30 degrees
|
||
|
||
%(freq,units,type,precision,depth,minangle,(acsolver))
|
||
mi_probdef(freq, 'millimeters', 'planar', 1.e-8, 100, 30);
|
||
|
||
%define materials and circuits
|
||
|
||
mi_addmaterial('Air', 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0);
|
||
mi_addmaterial('Copper', 1, 1, 0, 0, copper_conductivity, 0, 0, 1, 0, 0, 0);
|
||
|
||
mi_addcircprop('iwire', i_wire, 1);
|
||
|
||
%air
|
||
mi_addblocklabel(0, -5);
|
||
mi_selectlabel(0,-5);
|
||
% (’blockname’, automesh, meshsize, ’incircuit’, magdir, group, turns)
|
||
mi_setblockprop('Air', 1, 0, '<None>', 0, 0, 0);
|
||
mi_clearselected
|
||
|
||
% wire
|
||
make_round_turn(0,0,r_wire,'Copper', 'iwire');
|
||
|
||
%boundary condition
|
||
mi_makeABC(5, 25, 0,0, 0);
|
||
mi_saveas('wire.fem');
|
||
|
||
% mesh
|
||
smartmesh(1);
|
||
mi_createmesh();
|
||
|
||
|
||
%run simulation
|
||
mi_analyze();
|
||
mi_loadsolution();
|
||
|
||
%obtain B field
|
||
|
||
measuredB = abs(mo_getb(0,(r_wire + probe_offset + sensor_offset))(1));
|
||
measuredG = measuredB ./ 1E-4; % convert tesla to gauss
|
||
current_sensitivity_H = measuredG * probe_sensitivity_H;
|
||
current_sensitivity_L = measuredG * probe_sensitivity_L;
|
||
|
||
probe_max_current = probe_max_G ./ measuredG;
|
||
disp("Field Strength:");
|
||
disp(measuredG);
|
||
disp("Sensitivity High Gain:");
|
||
disp(current_sensitivity_H);
|
||
disp("Sensitivity Low Gain:");
|
||
disp(current_sensitivity_L);
|
||
disp("Max Current:");
|
||
disp(probe_max_current);
|
||
|
||
field_strengths = [field_strengths measuredG]
|
||
mi_close();
|
||
endfor
|
||
export_data = [wire_sizes;field_strengths]'; % '
|
||
csvwrite("wire_fields.csv", export_data )
|
||
|
||
|
||
|