Hi,
I set the geometry, applied the field shown in the figure, and plotted the absorption power vs B_bias.
x_num := 40
y_num := x_num
x_len := 0.5e-9 * x_num
y_len := x_len
z_num := 80
z_len := 2.5e-9 * z_num
setgridsize(x_num, y_num, z_num)
setcellsize(x_len/x_num, y_len/y_num, z_len/z_num)
nanowire := cylinder(x_len, z_len)
setgeom(nanowire)
saveas(geom, "com_zone")
DefRegion(1, nanowire)
m = uniform(0, 0, 1)
Ms := 10345e2
EdgeSmooth = 0
Msat = Ms
Aex = 15e-12
alpha = 0.01
relax()
mu_0 := 4*pi*1e-7
I0 := 2e-3
p := newVectorMask(x_num, y_num, z_num)
for i := 0; i < x_num; i++ {
for j := 0; j < y_num; j++ {
r := index2coord(i, j, 0)
x := r.X()
y := r.Y()
if !(x == 0 && y == 0) {
for k := 0; k < z_num; k++ {
if regions.Getcell(i, j, k) == 1 {
Bx := (mu_0*I0*y) / (2*pi*(x*x + y*y))
By := -(mu_0*I0*x) / (2*pi*(x*x + y*y))
p.setvector(i, j, k, vector(Bx, By, 0))
}
}
}
}
}
B_bias := 0.25
f := 7e9
TableAddVar(B_bias, "B_bias", "T")
for B_bias = 0.25; B_bias >= -0.25; B_bias -= 0.01 {
B_ext = vector(0,0,0)
B_ext.add(p, cos(2*pi*f*t))
biasMask := newVectorMask(x_num, y_num, z_num)
for i := 0; i < x_num; i++ {
for j := 0; j < y_num; j++ {
for k := 0; k < z_num; k++ {
if regions.Getcell(i, j, k) == 1 {
biasMask.setvector(i, j, k, vector(0, 0, B_bias))
}
}
}
}
B_ext.add(biasMask, 1)
autosave(m, 5e-10)
autosave(B_ext, 5e-10)
tableautosave(0.1e-10)
run(5e-9)
}
I think there is a problem with my script as well as with the pre-calculation. How can I fix them? I am attaching some figures..