# Question:How to plot 2D and 3D addition of vectors on different plotters?

## Question:How to plot 2D and 3D addition of vectors on different plotters?

My maplet

mpt := Maplet(Window("Точка выше или ниже прямой",
[[Plotter[f]()], ["1st vector"],
[TextField[v1](), TextField[v2](), TextField[v5]()],
["2nd vector"],
[TextField[v3](), TextField[v4](), TextField[v6]()], ["Скаляр"],
[[ToggleButton['d2']("2D", 'value' = true, 'group' = 'BG1')],
[ToggleButton['d3']("3D", 'value' = false, 'group' = 'BG1')]]]),
ButtonGroup['BG1']())

Now I choose via toogle button what to plot 2D or 3D addition but I need to plot it in two different plotter, is there a way to do it?

Procedure

with(Maplets);
with(Elements);
with(Tools);

SetTimeout, StartEngine, StopEngine]
with(plots);
with(LinearAlgebra);
with(Student[LinearAlgebra]);

with(Maplets[Elements]);

work:=proc(g)

local x1, y1, x2, y2, scalar;z1, z2,d2,d3,u,v,U,V,r1,r2,r3,R1,R2,R3,V1:
x1 := Get(v1::algebraic);
y1 := Get(v2::algebraic);

z1 := Get(v5::algebraic);

x2 := Get(v3::algebraic);

y2 := Get(v4::algebraic);

z2 := Get(v6::algebraic);

scalar := Get(scalar::algebraic);

d2:= Get(d2);

d3:= Get(d3);

if d2 = true then  u, v:=<x1, y1>, <x2, y2>;

elif d3 = true then   u, v:=<x1, y1,z1>, <x2, y2,z2>;

end if;  U:=arrow(u, color=red):

V:=arrow(u, v, color=black):

r1:=u+v: r2:=u-v: r3:=ScalarMultiply(u,scalar):r4:=ScalarMultiply(v,scalar):

R1:=arrow(r1, color=red):

R2:=arrow(v, r2, color=black):

R3:=arrow(r3, color=black):

R4:=arrow(r4, color=black):

V1:=arrow(v, color=blue):

if g = 1 then return VectorSumPlot(u,v, show=1, caption="Треугольник", vectorcolors=[red,blue]);

end if;

end proc:

Repeat once again what do I need: I want to plot addition of vectors in 2D and 3D in 2 different plotters at once

﻿