All streams
Search
Write a publication
Pull to refresh
178
1

Человек

Send message
А что. Вот вызвали вы такси, а таксист вам не про Путина и разворовали, а про будущее функциональных языков и трендовые фреймворки рассказывает. Или даже дельный совет по фиксу бага даст, с которым вы уже несколько дней мучаетесь.
UPD: Похоже, тег Source для Mathematica не совсем корректно работает… На предпросмотре ничего не раскрашивал.
Для практических целей можно воспользоваться мат. пакетом. В Wolfram Mathematica это выглядит так:
RSolve[{
a[n] == 3 a[n - 1] - 2 a[n - 2], 
a[1] == 10, 
a[0] == 0
}, a[n],  n]

{{a[n] -> 10 (-1 + 2^n)}}


Интересно, что если таким же образом посчитать ряд Фибонначи
RSolve[{a[n] == a[n - 1] + a[n - 2], a[1] == 1, a[2] == 1}, a[n], n]

То ответ таким и будет:
{{a[n] -> Fibonacci[n]}}

Ну а саму формулу, с корнями и косинусом, можно получить через
Fibonacci[n] // FunctionExpand

((1/2 (1 + Sqrt[5]))^n - (2/(1 + Sqrt[5]))^n Cos[n \[Pi]])/Sqrt[5]
Я этот эффект не просто заметил — а он был ключевым в мотивации поддерживать некурящий образ жизни. И дело даже не в слышимости высоких частот — при курении снижается эмоциональное восприятие музыки. Я также заметил, что когда (иногда) срываюсь и начинаю курить, то теряю способность игры на гитаре — струны вроде дёргаешь, а никакой обратной связи не происходит — получается просто набор нот, который в музыку никак не складывается.
Хорошая статья, спасибо. Но в последнем примере не всё так просто:

Так как она не была уверена в своем партнере, то решила таким образом его проверить на надёжность, и он эту проверку не прошел. Мало сказать «Я тебя люблю», слова стоит подтвердить делом, и в данном случае подтверждением был бы разрыв договора аренды, а отказ мужчины стал достаточным подтверждением обратного. И разрыв отношений со стороны женщины был логичным.

Более вероятно, что женщина не была уверена вовсе не в партнёре, а своих собственных чувствах — иначе не смогла бы добровольно и по собственной инициативе разорвать отношения. И проверка партнёра проводилась не на «надёжность», а скорее на «подкаблучность», при котором мужчина должен поступать не так, как считает правильным он сам, а так, как считает правильным его женщина.
Знаю людей, постоянно скучающих и занимающихся скучной работой на постоянной основе. Не замечал у них ни творческих способностей, ни каких-либо других способностей тоже. Кроссворды разгадывать разве что умеют и то, если те не особо сложные. Если к чему и стимулирует скука — так это приключения искать на свою ж.
И где в сумме синуса с параболой присутствует суперпозиция? В каждой точке (x,y) значение по-прежнему однозначно определено.
Mathematica 11 рисует эту функцию с разрывом, как и полагается:
image
Каюсь, фигню написал, не проснулся ещё. «Обратная» там лишнее. Но раз ты упорно хочешь верить, что твоя функция — непрерывная только потому, что вольфрам альфа при построении графика функции не смог распознать в ней разрыв — то пусть будет по-твоему. Каждый вправе иметь свои личные заблуждения.
Да ладно, друг. Ну тогда покажи мне обратную функцию, которая в точках n pi/2 выдаст число, представляющее из себя суперпозицию чисел от -1 до 1.
Без разрыва можно только параметрически:
image
UPD: только масштаб по x получился в 2 раза больше, проглядел.
В смысле «не устранён»?? Его в этой задаче не может не быть по определению.
Или даже так:
Sqrt[2 + E^(-2 i x) + E^(2 i x)]/(E^(-i x) + E^(i x))
Ещё, без модулей:
Sqrt[Cos[x]^2]/Cos[x]
Вот если бы Вы нашли ещё какую-нибудь такую функцию без параметра
Да запросто:
Tan[x]/Abs[Tan[x]]
Вот мой вариант — чем больше n, тем больше косинус «квадратный»:
image
Для спектрума больше 5000 игр — замучаешься для каждой графику перерисовывать.

Я в своё время наоборот пытаться делать — приблизить картинку в эмуляторе к «телевизионной» посредственном различных, в том числе и нелинейных, фильтров.

image

image
Как бы то ни было, в задаче, где я с этим столкнулся (посчитать сдвиг фаз между частотами, чтобы амплитуда их суммы была равна заданной), используется именно Atan2. Комплексное значение там появляется, в частности, когда заданная амплитуда превышает сумму исходных, что в ходе решения приводит к корню из отрицательного числа.
Кстати, арктангенс от комплексного аргумента вполне себе определён и даже имеет тот же самый смысл — подставив его в функции sin и cos мы получим изначальные (комплексные) значения.
Я имел в виду приведение ArcTan от двух действительных аргументов к функции аргумента от одного комплексного:
ArcTan[x, y] // ComplexExpand
=
Arg[x + i y]

Information

Rating
1,693-rd
Location
Россия
Works in
Registered
Activity