wolfram-mathematica
Я пытаюсь импортировать данные из сохраненного массива MATLAB struct, но, похоже, Mathematica импортирует только первый элемент. MATLAB blank = struct('x', [], 'y', [], 'z', []); data = repmat(blank, 1, 10); for i = 1:10 data(i) = struct('x', i, 'y', i * 2, 'z', i * 3); end save('test.mat', 'data'); ...
Мой код опирается на версию Element, которая работает как MemberQ, но когда я загружаю Combinatorica, Element получает переопределение для работы типа Part. Какой самый простой способ устранить этот конфликт? В частности, каков синтаксис для удаления определения Combinatorica из DownValues? Вот что я получаю ...
Это должно быть быстро для эксперта, но я относительно новичок в определении функций с опциями. Вот схема того, что я попробовал, я объясню после показа кода: MyPlotFunction[params_, optionalparameter_List:{1,2,3}, opts:OptionsPattern[]]:= Plot [ stuff, {x,0,1}, Evaluate@FilterRules[{opts},Options@Plot...
Я играл с визуализацией Mathematica и возможностями webcrawling. Основываясь на некотором демонстрационном коде, я могу визуализировать сеть А. Вот пример на веб-странице университета: webcrawler[rooturl_, depth_] := Flatten[Rest[NestList[ Union[Flatten[Thread[# -> Import[#,"Hyperlinks"]] & ...
Рассмотрим следующий пример: expr = a (1 + b + c d + Sqrt[-2 d e + fg + h^2] + a j ); Теперь я хотел бы вставить комплекс I перед термином в квадратный корень и сохранить остальную часть выражения. Я знаю, что в expr есть только один член Sqrt. Поэтому я попробовал следующее: ToBoxes@# /. SqrtBox@x_ :&g...
У меня часто есть список пар, как data = {{0,0.0},{1,12.4},{2,14.6},{3,25.1}} И я хочу что-то сделать, например Rescale, со всеми вторыми элементами, не касаясь первых элементов. Самый аккуратный способ, который я знаю, это: Transpose[MapAt[Rescale, Transpose[data], 2]] Должен быть способ сделать это ...
У меня есть очень большой массив данных изображений с плавающей точкой: In[25]:= Dimensions[daylightImgd] Out[25]= {18, 2002, 2989} In[26]:= daylightImgd[[1, 1]][[1 ;; 10]] Out[26]= {0.0122293, 0.0104803, 0.0103955, 0.0115533, 0.0118063, 0.0120648, 0.0122957, 0.011398, 0.0117426, 0.0119997} Я могу сохр...
Я написал в этот пост раньше, но я все еще не мог полностью решить следующую проблему. В качестве примера: {pA, pB, pC, pD} = {{0, 0, Sqrt[61/3]}, {Sqrt[7], 4*Sqrt[2/3], 0}, {0, -5*Sqrt[2/3], 0}, {-Sqrt[71], 4*Sqrt[2/3], 0}}; axis={1,0,0};pt={0,1,0}; plotPolygon[{a_, b_, c_}] := {Opacity[.4], Polygon[{a, b...
Я бы хотел что-то вроде этого: each[i_, {1,2,3}, Print[i] ] Или, в более общем смысле, для деструкции произвольного материала в списке, который вы просматриваете, например: each[{i_, j_}, {{1,10}, {2,20}, {3,30}}, Print[i*j] ] Обычно вы хотите использовать Map или другие чисто функциональные конст...
Если вы используете Mathematica на некоторое время вы, вероятно, привязались к центру документации. Всегда есть что-то новое, что вы найдете на этих страницах. Пусть это будут варианты функции или просто некоторые примеры, которые в какой-то момент не показались вам полезными. вполне вероятно, что вы написа...