Guest User

Untitled

a guest
Oct 19th, 2017
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. Manipulate[
  2. Graphics[Arrow[{{x1,f/.x->x1},{x2,g/.x->x2}}],Axes->True,ImageSize->300],
  3. Grid[{
  4. {Control[{{f,Sin[x]},InputField}],Control[{{x1,Pi/2}}],InputField},
  5. {Control[{{g,Cos[x]},InputField}],Control[{{x2,Pi}}],InputField}}
  6. ]
  7. ]
Add Comment
Please, Sign In to add comment