2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему На страницу 1, 2  След.
 
 есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение25.06.2014, 22:47 


14/10/12
210
т.е. в виде обычной формулы. Вот например это:
Код:
h0approx =
  Interpolation[
   Flatten[Table[{{sigma = sigmaint (j - 1),
       tor = (istart + (i - 1) 0.1) ns}, echoes0[[j, 2]][tor]}, {j, 1,
       nsigma + 1}, {i, 1, npoints}], 1]];
zerosig = {{0., g12}}
echoes = Table[{sigma = (2/c) sigmaint j,
    samf0 = Table[g12[istart ns + 0.1 i ns], {i, 0, npoints}];
    sampan1 =
     Table[If[i < 2048, rough0[0.1 (i - 1) ns, sigma],
       rough0[0.1 (i - 4197) ns, sigma]], {i, 1, 4196}];
    zeroes = Table[0., {i, npoints + 2, 4196}];
    samf0extend = Join[samf0, zeroes];
    trsamf0extend =
     Sqrt[4196] 10^(-10) Fourier[samf0extend,
       FourierParameters -> {0, 1}];
    trsampan =
     Sqrt[4196] 10^(-10) Fourier[sampan1, FourierParameters -> {0, 1}];
    prod = Table[trsampan[[i]] trsamf0extend[[i]], {i, 1, 4196}];
    conv = (1/Sqrt[4196]) (1/10^(-10)) Fourier[prod,
       FourierParameters -> {0, -1}];
    pwr = Table[{istart ns + 0.1 i ns, conv[[i]]}, {i, 0, npoints}];
    g1 = Interpolation[pwr]}, {j, 1, nsigma}];

echoes2 = Join[zerosig, echoes];
Plot[echoes2[[1, 2]][t], {t, -50 ns, 120 ns}]

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение25.06.2014, 22:57 
Заслуженный участник


25/02/11
1796
Код нерабочий.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 06:34 


14/10/12
210
это неважно. Как перевести-то?

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 09:48 
Заслуженный участник


11/05/08
32166
salang в сообщении #880123 писал(а):
это неважно. Как перевести-то?

Действительно неважно. Никак в принципе -- независимо от рабочести или нерабочести алгоритм невозможно представить в виде формулы.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 10:13 
Заслуженный участник


25/02/11
1796
Что "это"? Последней командой стоит построение графика. Требуется найти формулу для функции, задающей график? Или "это" весь приведенный текст? О чем речь то вообще?

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 12:20 


14/10/12
210
ewert в сообщении #880180 писал(а):
Никак в принципе
благодарю, это и хотел уточнить
Vince Diesel в сообщении #880197 писал(а):
Что "это"? Последней командой стоит построение графика. Требуется найти формулу для функции, задающей график? Или "это" весь приведенный текст? О чем речь то вообще?

это только небольшая часть численного расчета, значительно отличающегося от аналитики. Да, требуется найти математическую модель, использованную в расчете.
По каким критериям работает $Flatten$?
Перед интерполированием сглаживание зачем производится? Вроде при интерполяции оно автоматически выполняется?

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 12:53 
Заслуженный участник


25/02/11
1796
По всем командам математики есть подробный хелп. В том числе и по Flatten и Interpolation.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение26.06.2014, 14:53 
Заслуженный участник


27/04/09
28128
salang в сообщении #880247 писал(а):
По каким критериям работает $Flatten$?
Здесь это, скорее, техническая деталь реализации, т. е. для математической модели, если это не модель реализации, это не нужно.

-- Чт июн 26, 2014 18:03:40 --

Кстати, для маленьких кусков кода есть тег tt: Flatten. В виде формулы их можно записывать, но надо тогда использовать \verbsкодs, где s — символ, не встречающийся в коде; типа \verb|Flatten|: $\verb|Flatten|$, но это лишние изощрения при наличии tt. Так, на заметку. :-)

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 07:14 


14/10/12
210
А возможно ли не использовать вложенный один в другой массив в одной строке, т.е. сделать это в разных строках
Код:
echoes = Table[{sigma = (2/c) sigmaint j,
   samf0 = Table[g01[istart ns + 0.1 i ns], {i, 0, npoints}];

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 13:28 
Аватара пользователя


11/06/12
10390
стихия.вздох.мюсли
У вас тут вообще какой-то бред написан. Вы точно ничего не потеряли при копировании?

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 14:05 


14/10/12
210
нет, это одна строка из файла.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 14:08 
Аватара пользователя


11/06/12
10390
стихия.вздох.мюсли
Там тупо не хватает скобок. Перепроверьте.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 19:15 


14/10/12
210
cкопировал целиком:
Код:
echoes = Table[{sigma = (2/c) sigmaint j,
    samf0 = Table[g01[istart ns + 0.1 i ns], {i, 0, npoints}];
    sampan1 =
     Table[If[i < 2048, rough0[0.1 (i - 1) ns, sigma],
       rough0[0.1 (i - 4197) ns, sigma]], {i, 1, 4196}];
    zeroes = Table[0., {i, npoints + 2, 4196}];
    samf0extend = Join[samf0, zeroes];
    trsamf0extend =
     Sqrt[4196] 10^(-10) Fourier[samf0extend,
       FourierParameters -> {0, 1}];
    trsampan =
     Sqrt[4196] 10^(-10) Fourier[sampan1, FourierParameters -> {0, 1}];
    prod = Table[trsampan[[i]] trsamf0extend[[i]], {i, 1, 4196}];
    conv = (1/Sqrt[4196]) (1/10^(-10)) Fourier[prod,
       FourierParameters -> {0, -1}];
    pwr = Table[{istart ns + 0.1 i ns, conv[[i]]}, {i, 0, npoints}];
    g1 = Interpolation[pwr]}, {j, 1, nsigma}];

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 21:57 
Аватара пользователя


11/06/12
10390
стихия.вздох.мюсли
Это ужас какой-то, а не код. Чего вы вообще хотите добиться? Даже не знаю, с какого конца к этому подбираться. Вот вы понимаете, например, что переменная nsigma у вас нигде не определена, а вы пытаетесь использовать её в качестве итератора. Ай, что это я о мелочах. Да так вообще никто не пишет. Жуть и мрак.

 Профиль  
                  
 
 Re: есть способ перевести выраж. из Mathematica в читаемый вид?
Сообщение01.07.2014, 22:52 


14/10/12
210
3-мя страницами ранее в этом файле все константы и функции определены. Если требуется, я готов выложить. Мне бы упростить немного для облегчения восприятия и все. Результатом расчета является численное интегрирование и построение графика этой функции.

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 23 ]  На страницу 1, 2  След.

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group