Перейти к публикации

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


Рекомендованные сообщения

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

Изменено пользователем Fedor
Ссылка на сообщение
Поделиться на других сайтах


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

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

16 minutes ago, Jesse said:

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

:rolleyes:

Ссылка на сообщение
Поделиться на других сайтах
6 минут назад, piden сказал:
4 часа назад, ДОБРЯК сказал:

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

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

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

:rolleyes:

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

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

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

 

44.png

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
Только что, Fedor сказал:
  Показать содержимое

 

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

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

Ссылка на сообщение
Поделиться на других сайтах
19 минут назад, ДОБРЯК сказал:

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

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

Screenshot_20190416-103513.thumb.png.aaf59f8836d6859e7652045961f6db5f.png

Ссылка на сообщение
Поделиться на других сайтах

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 неравенство справедливо :)

Ссылка на сообщение
Поделиться на других сайтах
11 минуту назад, Fedor сказал:

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

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

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

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

 

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

Ссылка на сообщение
Поделиться на других сайтах

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

Изменено пользователем Fedor
Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

 

Ссылка на сообщение
Поделиться на других сайтах
55 минут назад, Fedor сказал:

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

А если x = 2 ))

Ссылка на сообщение
Поделиться на других сайтах
3 часа назад, Jesse сказал:

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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, но при больших все сглаживается :)

Изменено пользователем Fedor
Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, Fedor сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, ДОБРЯК сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах
7 минут назад, Jesse сказал:

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

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

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

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

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

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

 

Ссылка на сообщение
Поделиться на других сайтах
  • MFS закрыл это тему
  • MFS разблокировал тему

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...