помогите с програмой

[romanow]

програма простая но до меня не как не доходит как её зделать
нужно найти решение неравенства:
(a+b)+3*(b+b)=a^a+b^b

[alibek]

Реши ее аналитическим способом, выразив a через b, полученную формулу реализуй в программе.
P.S. А почему неравенство?

[Ariman]

P.S. А почему неравенство?

Наверное, потому, что то, что справа непохоже на то, что слева

[vvs_adm]

P.S. А почему неравенство?

Наверное, потому, что то, что справа непохоже на то, что слева

А вот и неправильно!!! Неравенство - потому, что при подстановке всех возможных действительных пар (Х,У) количество пар, когда левая часть НЕравна правой в бесконечное количество раз больше, чем когда равно... Отсюда следует, что вероятность того, что это неравенство ОЧЕНЬ близко к единице, а вероятность того, что это равенство, вообще, с точки зрения физики - невероятное событие

[Ennor]

Хм. Что-то мне подсказывает, что в аналитическом виде это уравнение нерешаемо - я, конечно, бросил институт, но все равно не помню, чтобы X^X так вот легко уединялось...

[vvs_adm]

Ennor Что значит нерешаемо? Это же обычное квадратное уравнение... y1=(-b-sqr(D))/2a, y2=(-b+sqr(D))/2a

[Ariman]

Ennor
По-моему, это делается логарифмированием обоих частей....
vvs_adm
Моежт, я что-то недогоняю....
Но представь это уравнение, чтобы оно стало квадратным......
Хотя - где в нем переменные?
а и b? только а? только b?
В любом случае, получится независимая переменная в степени независимоу же переменной..... a^a или b^b. А это уже не квадратное уравнение.....

[vvs_adm]

Ariman Ахних!!!! a^a я малость перепутал с а^2, а так это же пипец какой-то, смахивающий на теорему Ферма Ну нихрена он нашел "простую программу". Может опечатался, бедняга?

[Faust]

Ждём автора, а то для меня, например, левая часть смотриться неправдоподобно - почему бы сразу не написать 7*b+a?
P.S. украина... мало того, что неинформативно, так ещё и неуважительно.

[vvs_adm]

Faust Ты что!!! Если сразу написать 7b, это же почти что равенство получится !!! А человек ЯСНО написал - НЕРАВЕНСТВО Хотя, ведь не все, что равенство в России, являестся равенством на Украине...

[suleyman]

Помогите написать ПРОГРАММУ!!!!!
Заранее СПАСИБО!!!!!!!

[alibek]

Мать моя женщина...

[Sirik]

Код: Выделить всё

    Dim R As Long, X As Double, Z As Double
   
    R = 5
    For X = -5 To 5 Step 0.5
        If X <= 0 Then
            Z = Sqr(Abs(R ^ 3) - X)
        ElseIf X >= 3 Then
            Z = 0.2 * R - X
        Else
            Z = (X ^ 2 - 2.5 * X) / 4
        End If
        Debug.Print "При x=" & Str(X) & ", Z=" & Str(Z)
    Next


только не пойму причём тут:

(a+b)+3*(b+b)=a^a+b^b

зы. кстати, тут идёт наложение условий!!! второе и третье (x=0)

зы2. 2 Faust не смотри на всю Украину по одному гражданину! Это к будущим высказываниям!

[Alexander N. Samarin]

Если перебирать все A и b If-ом, может получится
PS:: (длительность решения - год+-месяц, но это никого не волнует!)

[Sirik]

ты пробовал пример? пример работает примерно 0.5 сек. где тут год?

[vvs_adm]

Sirik Ну так он про изначальный пример... мне так кажется... Ну так там если просто ифом, то годом не отделаешься... А вот психушкой отделаться можно

[Ariman]

Нда.....
А где тов. romanow?? Очень интересно узнать подробности к этому((a+b)+3*(b+b)=a^a+b^b) примеру

[Sirik]

уж очень напоминает уровнение с параметрами (роль параметра "берёт" на себя a)

[Ariman]

Sirik
Где ты видел ур-я с параметрами такого уровня?? Что бы там не было парамтром, все равно останиется либо b^b если параметр а, либо a^a если b. И как его решать

[vvs_adm]

Sirik
Где ты видел ур-я с параметрами такого уровня?? Что бы там не было парамтром, все равно останиется либо b^b если параметр а, либо a^a если b. И как его решать

Элементарно.

Код: Выделить всё

For a= -(очень много) to +(очень много) step (совсем чуть-чуть)
   For b= -(очень много) to +(очень много) step (совсем чуть-чуть)
      If (a+7b-a^a-b^b)<(совсем чуть-чуть +\- еще меньше) then
         msgbox "Вы не поверите, но оно решилось !!!"
      End If
   Next b
Next a

[Ariman]

vvs_adm
Похоже, эта тема превращается в то, во что превратилась "Как достать точку из под формы"(http://bbs.vbstreets.ru/viewtopic.php?p=109040#109040)

[vvs_adm]

Ariman Ну ты даешь!! Зесь же совсем другая проблемма обсуждается. Скорее тогда уж не "Как достать точку из-под формы", а "Как найти точку на плоскости". Нам бы автора топика, мы бы уже давно все решили, а так написал какую то фигню, извините, и пропал

[Sirik]

я же написал что похожа!!!

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

[mainAlex]

Да, прикольное получилось общение на тему этого совершенно нелепого уравнения!!

[Ariman]

Видите - вопрос - это лишь тема для обширной беседы!