4
$\begingroup$

I'm using Mathematica 12.3 and in this version sliders are placed really awkwardly:

enter image description here

They are placed to the side instead of on top which makes them take up huge amounts of space. I believe in old versions they used to be on top. Is there a way to make them display on top without too much hassle (otherwise I would have to do that for everytime I use manipulate and I use manipulate a lot)

Code:

a = 1;
ω0 = 1.;
ω =.;
t =.;
k[ω_] := 2/a ArcSin[ω/(2 ω0)]
Manipulate[
 Animate[Plot[Re[Exp[I (ω t - k[ω] x)]], {x, 0, 6}, 
   PlotRange -> {-1, 1}], {t, 0, (2 π)/ω}], {{ω, 1}, 0, 3}]
$\endgroup$
0

1 Answer 1

4
$\begingroup$

You can adjust the ControlPlacement option. To avoid setting the option every time, you may add

SetOptions[Manipulate, ControlPlacement -> Top]

to your SystemOpen@"init.m" file.

$\endgroup$
1
  • $\begingroup$ Oh wow how did I not find this option. Thanks this is very useful! $\endgroup$ Feb 5, 2022 at 13:41

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.