Хитрые математические и физические задачки.

[Fedor 1 630]

Тогда 6.5 примерно. Погрешность то на уровне 2.5%   :)

Изменено 16 апреля 2019 пользователем Fedor

[piden 2 874]

4 hours ago, ДОБРЯК said:

Дан параллелограмм ABCD.

16 minutes ago, Jesse said:

отрезки, идущие из точек D и B параллельны?

[ДОБРЯК 615]

6 минут назад, piden сказал:

4 часа назад, ДОБРЯК сказал:

Дан параллелограмм ABCD.

23 минуты назад, Jesse сказал:

отрезки, идущие из точек D и B параллельны?

Объясняю еще раз дан параллелограмм ABCD.

Отрезки, идущие из точек D и B (DF и BG) пусть будут параллельны. 

Это поможет? )

 

29 минут назад, Fedor сказал:

Тогда 6.5 примерно. Погрешность то на уровне 2.5%   :)

С такой погрешностью если перебрать все варианты, то вы быстро найдете правильный ответ. )

[Fedor 1 630]

Скрытый текст

 

Точнее и не надо :)

[ДОБРЯК 615]

Только что, Fedor сказал:

  Показать содержимое

 

Точнее и не надо :)

Надо Федя, надо. ))

[Fedor 1 630]

Кому надо тот пускай и париться :)

[ДОБРЯК 615]

6 часов назад, ДОБРЯК сказал:

@Fedor зарядите своего коня. Решите неравенство. )

[vasillevich68 703]

19 минут назад, ДОБРЯК сказал:

зарядите своего коня. Решите неравенство.

Имеющийся у меня, младший брат железного коня, дал вот такой ответ

[Fedor 1 630]

In[70]:=
x = {0.000001, 5};
Simplify[Log[Sqrt[(x - 1)^2], Sqrt[6 - x] + 4] -
   2  Log[(x - 1)^2, 10 - 2 x] >= 0 ]

Out[71]= {438584., \[Infinity]} >= 0

In[82]:=
x = {0.00000000000001, 3. , 5 - 0.00000000000001};
Simplify[Log[Sqrt[(x - 1)^2], Sqrt[6 - x] + 4] -
   2  Log[(x - 1)^2, 10 - 2 x] >= 0 ]

Out[83]= {4.38935*10^13, 0.519051, 23.9312} >= 0

In[84]:=
x = {0, 3. , 5 + 0.00000000000001};
Simplify[Log[Sqrt[(x - 1)^2], Sqrt[6 - x] + 4] -
   2  Log[(x - 1)^2, 10 - 2 x] >= 0 ]

During evaluation of In[84]:= Power::infy: Infinite expression 1/0 encountered.

During evaluation of In[84]:= Power::infy: Infinite expression 1/0 encountered.

During evaluation of In[84]:= Infinity::indet: Indeterminate expression ComplexInfinity+ComplexInfinity encountered.

Out[85]= {Indeterminate, 0.519051, 23.9312 - 2.26618 I} >= 0

 

 

Справедливо примерно в диапазоне x = {0.00000000000001, 3. , 5 - 0.00000000000001};    Если больше 5 то комплексное для них больше меньше не определено как известно.  Ну  и ноль дает бесконечность :)

Ответ может быть приближенным, но обязан быть чисто конкретным по инженерным понятиям  :)

In[121]:= epsil = 0.000000000000001;
x = {epsil, 5 - epsil};
Simplify[Log[Abs[x - 1], Sqrt[6 - x] + 4] -
   2  Log[(x - 1)^2, 10 - 2 x] >= 0 ]

Out[123]= {4.38935*10^14, 25.661} >= 0 

 

В таком диапазоне x неравенство справедливо :)

[ДОБРЯК 615]

11 минуту назад, Fedor сказал:

Справедливо примерно в диапазоне x = {0.00000000000001, 3. , 5 - 0.00000000000001};

Вы напишите ответ внятно. В каком интервале. )

14 минуты назад, vasillevich68 сказал:

Имеющийся у меня, младший брат железного коня, дал вот такой ответ

 

Икс чему равен? )

[Fedor 1 630]

(0,1 )  и (1,5)  Если быть точным интервала два. Приложил бы и график, да не умею  :)

Изменено 16 апреля 2019 пользователем Fedor

[Blurp 1 678]

@piden Прикольно, когда этворк не то, что WM, а кроме VBA нету ни фига.

Попытался повторить твой подвиг. 

Скрытый текст

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94,
95, 96, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 112, 114, 115, 116, 117, 119, 120, 121, 123, 124, 125, 126, 128,
 129, 130, 132, 133, 135, 136, 138, 140, 143, 144, 145, 147, 148, 150, 152, 153, 154, 155, 156, 160, 161, 162, 165, 168,
 169, 170, 171, 174, 175, 176, 180, 182, 184, 186, 187, 189, 190, 192, 195, 196, 198, 200, 203, 204, 207, 208, 209, 210,
 216, 220, 221, 224, 225, 228, 230, 231, 234, 238, 240, 242, 243, 245, 247, 250, 252, 253, 255, 256, 260, 264, 266, 270,
 272, 273, 275, 276, 280, 285, 286, 288, 294, 297, 300, 304, 306, 308, 312, 315, 320, 323, 324, 325, 330, 336, 340, 342,
 343, 350, 351, 352, 357, 360, 364, 374, 375, 378, 384, 385, 390, 392, 396, 400, 405, 416, 420, 429, 432, 440, 441, 448,
 450, 455, 462, 468, 480, 486, 490, 495, 500, 504, 512, 520, 525, 528, 539, 540, 550, 560, 567, 576, 594, 600, 616, 630,
 640, 648, 672, 675, 700, 720, 756, 768, 800, 810, 840, 864, 896, 945, 960, 1008, 1080

 

[ДОБРЯК 615]

55 минут назад, Fedor сказал:

(0,1 )  и (1,5)  Если быть точным интервала два. Приложил бы и график, да не умею  :)

А если x = 2 ))

[ДОБРЯК 615]

3 часа назад, Jesse сказал:

отрезки, идущие из точек D и B параллельны?

@Jesse кто первый решит эту задачу получит бутылку хорошего коньяка. Самовывоз из Москвы. )

44 минуты назад, Blurp сказал:

Прикольно, когда этворк не то, что WM, а кроме VBA нету ни фига.

На плюсах, что не умеешь программы писать? ))

[Fedor 1 630]

Plot[Log[Abs[x - 1], Sqrt[6 - x] + 4] -
  2  Log[(x - 1)^2, 10 - 2 x], {x, 1.99999, 2.000001}]     осцилляции любопытные  начинаются :)

 

eps = 2.0001;
Plot[Log[Abs[x - 1], Sqrt[6 - x] + 4] -
  2  Log[(x - 1)^2, 10 - 2 x], {x, 2 - eps, 2 + eps}]    меняя eps можно посмотреть болтанку при малых eps, но при больших все сглаживается :)

Изменено 16 апреля 2019 пользователем Fedor

[ДОБРЯК 615]

1 минуту назад, Fedor сказал:

Plot[Log[Abs[x - 1], Sqrt[6 - x] + 4] -
  2  Log[(x - 1)^2, 10 - 2 x], {x, 1.99999, 2.000001}]     осцилляции любопытные  начинаются :)

Я языка вашего железного коня не понимаю (в данном случае). Вы прямо скажите... )

[Fedor 1 630]

eps = 0.0010000;   начиная с этого значения видна болтанка, а при eps = 0.010000; ее не видно и все гладко. то есть с точки теории меры можно говорить о почти гладкости. То есть возмущение на мере ноль по Лебегу https://ru.wikipedia.org/wiki/Мера_Лебега      :)  

[Jesse 979]

1 час назад, ДОБРЯК сказал:

кто первый решит эту задачу получит бутылку хорошего коньяка. Самовывоз из Москвы. )

мотивация крутая конечно, но отвлекают постоянно) подумать не дают..

[ДОБРЯК 615]

7 минут назад, Jesse сказал:

мотивация крутая конечно, но отвлекают постоянно) подумать не дают..

Так я же не тороплю. Главное быть первым. )

Каждый съел примерно поровну харчей,- И судья не зафиксирует ничьей.

[Blurp 1 678]

В очередной раз комментировать добуяковскую прогугленность смысла нет.

Скрытый текст

Треда тренд: ацофство теоретега + детская сыновья (дочерняя) непосредственность есайнсбичи.