arrow core creator [Alvaro]

f686aac3-ee10-4987-9305-c5f429c602cd 24 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Part.1 General arrow creator [Adapted unrecorded source]

shift left/right
shift up/dn
length SP.x 5 - : SP.y 0 : L.v 10 : 31 sys

α rot α cos α sin α sin - α cos 22 mat :

rotation α 90 ° * :

length of spike
width of spike
zoom  width spike 
... > 1 zoom dn H.L 1 : H.W 0.5 : size 2 : 31 sys

Arrow 00 L.v 0 L.v H.L - H.W size / L.v H.L - H.W size / - L.v 052 mat α rot * (SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y 52 mat + :

Arrow 5 - 05 - 10 5.25 - 9 4.75 - 95 - 1052 mat

else 1 SP.y L.v α cos * + SP.x L.v α cos * + 12 mat * α rot * :

Arrow Arrow - 2 1 sys

rotation α 0 ° * :

size 3 :

shifts both directions ... preserves length z 2 :

Arrow 00 L.v 0 L.v H.L - H.W size / L.v H.L - H.W size / - L.v 052 mat α rot * (SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y 52 mat + :

Arrow z + 3 - 2726 2.1667 6 1.8333 7252 mat

plot Arrow Arrow - Arrow z + 0.75 Arrow * 2 + (- 41 sys :

plot

x y axes x y / - :

length NOT preserved 0.75 Arrow * 2 + (-

plot axes 2 1 sys

Part.2 Algo style in-situ [Alvaro: arrow(P,V,L,sf(1))]

arrow core creator [Alvaro]

P V L 1 sf arrow t V norme eval : a 0.5 0.3 0.15 0.65 0.35 14 mat * t sf * eval : 12 mat x L 1 el a 1 el - 000 a 1 el 51 mat * eval : y L 2 el a 3 el a 4 el - a 3 el a 4 el + a 3 el a 4 el + (- a 3 el a 4 el + a 3 el a 4 el - 51 mat * eval : 12 mat θ t 0 ≡ 0 V 1 el sign V 2 el t / acos * - if eval : c θ cos : s θ sin : 13 mat k 15 range x k el y k el 21 mat P c x k el * s y k el * - s x k el * c y k el * + 21 mat + eval : for x y augment eval 51 line :

roots of unity

x f 1 x 2^- sqrt ± :

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 31 line for data r3 r4 r5 augment 21 line :

n 12 :

roots x n^1 - 0 ≡ x solve maple :

U roots Re roots Im augment :

rootsU U . 14 black plot :

rotation ∠ 45 ° * :

length red 3 :

Origin P 0021 mat :

± shift left/right
± shift up/dn p 0021 mat :

end coord's V ∠ cos ∠ sin 21 mat :

orthogonal v 0121 mat :

width
length L 0.25 221 mat :

λ 0.5 red 21 mat :

zoom system(s) z 1 : t sf z t * : 21 sys

center P 1 el P 2 el o 10 black augment :

red_depos p v λ t sf arrow 22 el : 1.5

plot P V L t sf arrow p v λ t sf arrow 1 x 2^- sqrt ± center rootsU 0.5 - red_depos 0.5 red_depos 22 mat 61 sys :

plot

Part.3 Otherwise arrow

H.L 1 :

H.W 0.5 :

α 315 ° * :

SP.x SP.y L.v α Arrow 00 L.v 0 L.v H.L - H.W 2 / L.v H.L - H.W 2 / - L.v 052 mat α rot * (SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y 52 mat + :

pilot from command line pilot 218315 ° * Arrow 84445 ° * Arrow 4 - 26135 ° * Arrow 31 sys :

pilot pilot

Basic Arrow

λ 1.25 : ο 0.125 : L 2 : α 45 ° * : 41 sys

a L - 0 L 0 λ ο - L 0 λ ο 52 mat :

α rot α cos α sin α sin - α cos 22 mat :

x y axes x y / - :

NOT comutative α Arrow a α rot * :

α Arrow α Arrow axes 2 1 sys

α Arrow 1.414 - 1.414 - 1.414 1.414 0.972 0.795 1.414 1.414 0.795 0.972 52 mat

SP.x 0 :

SP.y 0 :

L.v 5 :

α 315 ° * :

H.L 0.8 :

H.W 0.8 :

α rot α cos α sin α sin - α cos 22 mat :

Arrow 00 L.v 0 L.v H.L - H.W 2 / L.v H.L - H.W 2 / - L.v 052 mat α rot * (SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y SP.x SP.y 52 mat + :

Circle definition t u D u 2 el u 1 el - 21 mat :

IC 0 L.v 21 mat :

t0 0 : t1 2 π * : N 360 : 31 line

Either 'rkfixed' or 'Rkadapt' s IC t0 t1 N t u D rkfixed :

x s 1 col : X s 2 col : Y s 3 col : 31 line

U x X augment : V x Y augment : 21 line

SOL X Y augment : (inverse the path Y <- X ≡

Arrow L.v 5 L.v 5 - 2 2 mat SOL SP.x SP.y o 7 red 1 5 mat 4 1 sys

m α 360 ° * / 2 * π * : 5.4978

U V 2 1 sys