origin is Point(350, 200);
unit is 15;

pbro is Point(150, 450);
vectorP is Line(origin.x, origin.y, origin.x+unit*px*pc ,origin.y-unit*py*pc, "red");
pbr1 is Arc(pbro.x+20, pbro.y, 50, (3/4)*${{Math.PI}}$, (5/4)*${{Math.PI}}$, false);
pbr2 is Arc(pbro.x-20, pbro.y, 50, (7/4)*${{Math.PI}}$, (9/4)*${{Math.PI}}$, false);
pxText is Div("pxtext", ((pbr1.x+pbr2.x)/2)+5, pbr2.y-27, 1, 1, "<p>"+px+"</p>");
pyText is Div("pytext", ((pbr1.x+pbr2.x)/2)+5, pbr2.y+3, 1, 1, "<p>"+py+"</p>");
pcText is Div("pctext", ((pbr1.x+pbr2.x)/2)-40, pbr2.y-12, 1, 1, "<p>"+pc+"</p>");
pSlider is Slider("pslide", -10, 10, 1/100, 0, horizontal, ((pbr1.x+pbr2.x)/2)-90, pbr2.y+50);
pc is k*15;
px is 3;
py is -1;

vectorQ is Line(origin.x, origin.y, origin.x+unit*qx*qc ,origin.y-unit*qy*qc, "blue");
qbr1 is Arc(pbro.x+20+250, pbro.y, 50, (3/4)*${{Math.PI}}$, (5/4)*${{Math.PI}}$, false);
qbr2 is Arc(pbro.x-20+250, pbro.y, 50, (7/4)*${{Math.PI}}$, (9/4)*${{Math.PI}}$, false);
qxText is Div("qxtext", ((qbr1.x+qbr2.x)/2)+5, qbr2.y-27, 1, 1, "<p>"+qx+"</p>");
qyText is Div("qytext", ((qbr1.x+qbr2.x)/2)+5, qbr2.y+3, 1, 1, "<p>"+qy+"</p>");
qcText is Div("qctext", ((qbr1.x+qbr2.x)/2)-40, qbr2.y-12, 1, 1, "<p>"+qc+"</p>");
qSlider is Slider("qslide", -10, 10, 1/100, 0, horizontal, ((qbr1.x+qbr2.x)/2)-90, qbr2.y+50);
qc is k*21;
qx is -2;
qy is 1;

vectorR is Line(origin.x, origin.y, origin.x+unit*rx*rc ,origin.y-unit*ry*rc, "green");
rbr1 is Arc(pbro.x+20+500, pbro.y, 50, (3/4)*${{Math.PI}}$, (5/4)*${{Math.PI}}$, false);
rbr2 is Arc(pbro.x-20+500, pbro.y, 50, (7/4)*${{Math.PI}}$, (9/4)*${{Math.PI}}$, false);
rxText is Div("rxtext", ((rbr1.x+rbr2.x)/2)+5, rbr2.y-27, 1, 1, "<p>"+rx+"</p>");
ryText is Div("rytext", ((rbr1.x+rbr2.x)/2)+5, rbr2.y+3, 1, 1, "<p>"+ry+"</p>");
rcText is Div("rctext", ((rbr1.x+rbr2.x)/2)-40, rbr2.y-12, 1, 1, "<p>"+rc+"</p>");
rSlider is Slider("rslide", -10, 10, 1/100, 0, horizontal, ((rbr1.x+rbr2.x)/2)-90, rbr2.y+50);
rc is k*(-3);
rx is 1;
ry is 2;

vectorS is Line(origin.x, origin.y, origin.x+unit*rx*rc+unit*qx*qc+unit*px*pc ,origin.y-unit*ry*rc-unit*qy*qc-unit*py*pc, "orange");

lenS is((vectorS.x2-vectorS.x1)*(vectorS.x2-vectorS.x1)+(vectorS.y2-vectorS.y1)*(vectorS.y2-vectorS.y1));
lenStext is Text(lenS, 50, 50, "purple");

k is qslide_value;

picture is [lenStext, vectorS, origin, pbr1, pbr2, pxText, pyText, pcText, pSlider, vectorP, qbr1, qbr2, qxText, qyText, qcText, qSlider, vectorQ, rbr1, rbr2, rxText, ryText, rcText, rSlider, vectorR];