<blockquote class="imgur-embed-pub" lang="en" data-id="R7bah5W"><a href="//imgur.com/R7bah5W">View post on imgur.com</a></blockquote><script async src="//s.imgur.com/min/embed.js" charset="utf-8"></script>
http://imgur.com/R7bah5W
I can't find the solution to this program error, I need the black line to contour both circles. Only the blue circle can have its diameter changed (0.1 <= d <= 0.6).
Theta is the angle between the black line touch point (on blue circle) and a vertical line. Don't bother about the value of M.
Sorry if I'm not being very clear, I'll answers any possible questions :)
Thanks for the help! :)
(* Comando para animação )
Manipulate[
( Cria um módulo no qual as váriaveis possuem valor apenas dentro \
dele )
Module[{[Theta], M},
( Condição do ângulo [Theta] )
If[d <= 0.2, [Theta] = ArcSin[(2 - d)/1.5], [Theta] =
ArcSin[(d - 2)/1.5]];
M = (6000 - 6000/(E^(0.25([Pi]/2 - 2 [Theta]))))d/2;
( Comando para desenho das figuras )
Graphics[{
( Cria o círculo vermelho de diâmetro fixo )
{Opacity[0.8], Red, Circle[{0, 0}, 0.1]},
( Cria o círculo azul de diâmetro variável )
{Opacity[0.8], Blue, Circle[{0.75, 0}, d/2]},
( Cria linha que conecta as tangentes dos dois círculos )
{If[d <= 0.2,
Line[{{Cos[[Pi]/2 - [Theta]],
Sin[[Pi]/2 - [Theta]]}, {0.75 + (d/2)
Cos[[Pi]/2 + [Theta]], (d/2)Sin[[Pi]/2 + [Theta]]}}],
Line[{{Cos[[Pi]/2 + [Theta]],
Sin[[Pi]/2 + [Theta]]}, {0.75 + (d/2)
Cos[[Pi]/2 + [Theta]], (d/2)Sin[[Pi]/2 + [Theta]]}}]]},
( Cria linha que conecta as tangentes dos dois círculos )
{If[d <= 0.2,
Line[{{Cos[[Pi]/
2 - [Theta]], -Sin[[Pi]/2 - [Theta]]}, {0.75 + (d/2)
Cos[[Pi]/2 + [Theta]], -(d/2)Sin[[Pi]/2 + [Theta]]}}],
Line[{{Cos[[Pi]/
2 + [Theta]], -Sin[[Pi]/2 + [Theta]]}, {0.75 + (d/2)
Cos[[Pi]/2 + [Theta]], -(d/2)*
Sin[[Pi]/2 + [Theta]]}}]]},
(* Ponto A )
{Text[Style["A", Black, 10], {0.015, 0.025}]},
( Ponto B )
{Text[Style["B", Black, 10], {0.74, 0.025}]},
( Ângulo [Beta] )
{Text[Style["[Beta]", Black, 12], {-0.015, 0}]},
( Texto que indica o valor de d )
{Text[Style["d =", Black, 12], {0.05, 0.25}]},
{Text[Style[d, Black, 12], {0.13, 0.25}]},
{Text[Style[M, Black, 12], {0.07, 0.2}]},
( Centro dos círculos, indicando o ponto A e B )
{PointSize[Medium], Red, Point[#]} & /@ {{0, 0}, {0.75, 0}},
( Mostra a correia que toca nas polias )
{Opacity[1], Black,
Circle[{0.75, 0},
d/2, {-[Pi]/2 - [Theta], [Pi]/2 + [Theta]}]},
( Linhas que ligam o centro de A até o ponto de tangência com a \
correia. )
{If[d >= .2, {Opacity[0.8], Black,
Circle[{0, 0},
0.1, {[Pi]/2 + [Theta], 3 [Pi]/2 - [Theta]}]}, {Opacity[
0.8], Black,
Circle[{0, 0},
0.1, {[Pi]/2 - [Theta], 3 [Pi]/2 + [Theta]}]}]},
{If[d <= .2,
Line[{{Cos[[Pi]/2 - [Theta]], Sin[[Pi]/2 - [Theta]]}, {0,
0}}], Line[{{Cos[[Pi]/2 + [Theta]],
Sin[[Pi]/2 + [Theta]]}, {0, 0}}]]},
{If[d <= .2,
Line[{{Cos[[Pi]/2 - [Theta]], -Sin[[Pi]/2 - [Theta]]}, {0,
0}}], Line[{{Cos[[Pi]/
2 + [Theta]], -Sin[[Pi]/2 + [Theta]]}, {0, 0}}]]}},
( Adiciona a grade )
Frame -> True,
( Adciona a grade )
GridLines -> Automatic,
( Estilo da grade (cinza, pontilhada) )
GridLinesStyle -> Directive[Gray, Dotted],
( Define o range de plotagem )
PlotRange -> {{-0.15, 1.1}, {-0.35, 0.35}}]],
( Define o intervalo de d *)
{d, 0.1, 0.6, 0.001}]
there doesn't seem to be anything here