1
0
Fork 0
mirror of https://gitlab.rlp.net/mobitar/ReCo.jl.git synced 2024-09-17 18:51:17 +00:00

Updated center of mass graphics

This commit is contained in:
Mo8it 2022-01-29 01:04:51 +01:00
parent 01e989c6bb
commit 33c1c8e539
3 changed files with 27 additions and 23 deletions

View file

@ -6,13 +6,13 @@ function gen_COM_graphics()
box_length = 100
box_height = 100
L = 0.35 * box_length
L = 0.39 * box_length
R = 0.35 * box_length
R = 0.37 * box_length
A = -0.9 * L
B = 0.65 * L
particel_radius = 0.04 * L
particle_radius = 0.05 * L
Ap_vec = Vector(ReCo.Shape.project_to_unit_circle(A, L))
Bp_vec = Vector(ReCo.Shape.project_to_unit_circle(B, L))
@ -38,9 +38,10 @@ function gen_COM_graphics()
Drawing(box_length, box_height, "$graphics_export_dir/linear.pdf")
origin()
fontsize(5)
setcolor("black")
arrow(Point(-1.1 * L, 0), Point(1.2 * L, 0); arrowheadlength=0.1 * L, linewidth=0.8)
arrow(Point(-1.1 * L, 0), Point(1.2 * L, 0); arrowheadlength=0.1 * L, linewidth=1.0)
green_orange = blend(Point(-1.5 * L, 0), Point(1.5 * L, 0))
addstop(green_orange, 0.0, "orange")
@ -62,21 +63,20 @@ function gen_COM_graphics()
setcolor("blue")
for p in (A, B)
circle(Point(p, 0), particel_radius, :fill)
circle(Point(p, 0), particle_radius, :fill)
end
text("A", Point(A - 0.030 * L, -0.08 * L))
text("B", Point(B - 0.030 * L, -0.08 * L))
setcolor("brown")
circle(Point(COM, 0), particel_radius, :fill)
circle(Point(COM, 0), particle_radius, :fill)
text("COM", Point(COM - 0.098 * L, -0.08 * L))
setcolor("black")
fontsize(5)
text("x", Point(1.2 * L, 0.038 * L))
text("-L", Point(-L - 0.07 * L, 0.18 * L))
text("0", Point(0 - 0.035 * L, 0.18 * L))
text("+L", Point(L - 0.07 * L, 0.18 * L))
text("A", Point(A - 0.038 * L, -0.06 * L))
text("B", Point(B - 0.038 * L, -0.06 * L))
text("COM", Point(COM - 0.108 * L, -0.06 * L))
text("-L/2", Point(-L - 0.15 * L, 0.20 * L))
text("0", Point(0 - 0.030 * L, 0.18 * L))
text("+L/2", Point(L - 0.15 * L, 0.20 * L))
finish()
@ -84,18 +84,18 @@ function gen_COM_graphics()
Drawing(box_length, box_height, "$graphics_export_dir/circular_projectiong.pdf")
origin()
fontsize(5)
arrow(Point(-1.2 * R, 0), Point(1.2 * R, 0); arrowheadlength=0.1 * R, linewidth=0.8)
arrow(Point(0, 1.2 * R), Point(0, -1.2 * R); arrowheadlength=0.1 * R, linewidth=0.8)
arrow(Point(-1.2 * R, 0), Point(1.2 * R, 0); arrowheadlength=0.1 * R, linewidth=1.0)
arrow(Point(0, 1.2 * R), Point(0, -1.2 * R); arrowheadlength=0.1 * R, linewidth=1.0)
setcolor("black")
fontsize(5)
text("α", Point(1.22 * R, 0.035 * R))
text("β", Point(-0.04 * R, -1.23 * R))
orange_green = blend(Point(0, -R), Point(0, R), "green", "orange")
setblend(orange_green)
setline(0.8)
setline(1.0)
circle(Point(0, 0), R, :stroke)
setcolor("red")
@ -106,8 +106,10 @@ function gen_COM_graphics()
setcolor("blue")
for pp in (Ap, Bp)
circle(R * pp, particel_radius, :fill)
circle(R * pp, particle_radius, :fill)
end
text("A", 1.07 * R * Ap)
text("B", 1.14 * R * Bp)
setcolor("black")
setdash("dot")
@ -115,10 +117,12 @@ function gen_COM_graphics()
line(Point(0, 0), COMp, :stroke)
setcolor("purple1")
circle(M, particel_radius, :fill)
circle(M, particle_radius, :fill)
text("COM'", 0.019 * R * M + R * Point(0.0, -0.04))
setcolor("brown")
circle(COMp, particel_radius, :fill)
circle(COMp, particle_radius, :fill)
text("S", 0.029 * R * COMp)
finish()

View file

@ -61,7 +61,7 @@ function run_rl(;
seed::Int64=42,
ϵ_stable::Float64=0.0001,
skin_to_interaction_r_ratio::Float64=ReCo.DEFAULT_SKIN_TO_INTERACTION_R_RATIO,
packing_ratio::Float64=0.22,
packing_ratio::Float64=0.15,
show_progress::Bool=true,
) where {E<:Env}
@assert 0.0 <= elliptical_a_b_ratio <= 1.0

View file

@ -9,8 +9,8 @@ using LinearAlgebra: LinearAlgebra as LA
using ..ReCo: ReCo, Particle
function project_to_unit_circle(x::Real, half_box_len::Real)
φ = (x + half_box_len) * π / half_box_len
si, co = sincos(φ)
θ = (x + half_box_len) * π / half_box_len
si, co = sincos(θ)
return SVector(co, si)
end