Question: How do I plot this graph, it gives a error.

Why does it give a error? I don't get it and I'm frustrated! Thanks a lot!

 

> restart; Digits := 4;
Verplaatsing (s) achteras naar hoek alpha



> AG := 382.5; AB := 45; BC := 369; CE := 117; EF := 108; GE := 135; CD := 238; FG := 36; BG := 346.5; DF := 222.8;
> rc := Vector(2, {(1) = 0, (2) = 0});
Vector[column](%id = 213058548)
> rcb := Vector(2, {(1) = BC*cos(alpha(t)), (2) = BC*sin(alpha(t))});
Vector[column](%id = 209907648)
> rce := Vector(2, {(1) = CE, (2) = 0});
Vector[column](%id = 213058676)
> rcg := Vector(2, {(1) = CE+GE*cos(Pi-beta(t)), (2) = GE*sin(Pi-beta(t))});
Vector[column](%id = 213058932)
> rbg := rcb-rcg;
Vector[column](%id = 213059572)
> alpha1 := proc (t) options operator, arrow; 1.79-arctan(s/(AB+BC)) end proc;
/ s \
t -> 1.79 - arctan|-------|
\AB + BC/
>
Verhouding hoek alpha en hoek delta
>
> lengteBG := rbg[1]^2+rbg[2]^2;
2
(369 cos(alpha(t)) - 117 + 135 cos(beta(t)))

2
+ (369 sin(alpha(t)) - 135 sin(beta(t)))
> beta1 := solve(lengteBG, beta);
proc(t) ... end;
Relatie tussen verplaatsing en indrukking
> indrukking := DF-DF2;
222.8 - DF2
> DF2 := DE-EF2;
DE - EF2
> DE := ``(152.5, -105.6);
Vector[column](%id = 182015816)
>
> EF2 := ``(EF*cos(beta1[1]), EF*sin(beta1[1]));
>
>
> DF2 := sqrt(DF2[1]^2+DF2[2]^2);
Gemeten waardes
>
Plot verplaatsing en indrukking
> alpha1 := proc (t) options operator, arrow; t end proc;
t -> t
> plot(indrukking, s = 0 .. 180);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

>
Please Wait...