Как этот файл можно перевести в dxf боле менее автоматом.
Команда make вызывает такую ошибку
libtool: link: g++ -g -O2 -fopenmp -o .libs/netgen demoview.o ngappinit.o onetcl.o parallelfunc.o ngpkg.o -Wl,--export-dynamic ../libsrc/visualization/.libs/libvisual.a ../libsrc/csg/.libs/libcsgvis.so ../libsrc/csg/.libs/libcsg.so ../libsrc/interface/.libs/libinterface.so ../libsrc/meshing/.libs/libmesh.so -L/usr/lib/Togl1.7 -lTogl -lGLU -L/usr/lib/x86_64-linux-gnu -ltk8.6 -ltcl8.6 -lGL -lXmu -lX11 -fopenmp -Wl,-rpath -Wl,/opt/netgen/lib
/usr/bin/ld: cannot find -lXmu: No such file or directory
collect2: error: ld returned 1 exit status
Как можно проверить код, во время написания, на такую ошибку. Ну, и что делать, чтобы обрулить эту ошибку.
нужно убрать \"
;"(\"- F1 * (a - a1) + F2 * (a2 - a) + F3 * (a3 - a)\") / (\"b - a\")"
и получить
"(- F1 * (a - a1) + F2 * (a2 - a) + F3 * (a3 - a)) / (b - a)"
используя emacs API
(defun f-F-a (product lst1 lst2)
(if (eq (car lst1) nil)
product
(f-F-a (cons (message "%S * %S" (car lst1) (car lst2)) product) (cdr lst1) (cdr lst2))))
(f-F-a '() '("- F1" "+ F2" "- F3") '("a1" "a2" "a3")) ;;=>
;;=> ("\"- F3\" * \"a3\"" "\"+ F2\" * \"a2\"" "\"- F1\" * \"a1\"") получилось
;;а хочется вот так
;;"- F3 * a3 + F2 * a2 - F1 * a1"
напишите кодом, как это можно сделать, пожалуйста.
(require 'subr)
Debugger entered--Lisp error: (error "Loading file /usr/share/emacs/27.1/lisp/subr.elc f...")
require(subr)
(string-trim "f" "jdjjfjjj") => "f"
(string-trim "jdjjfjjj" "f") => "jdjjfjjj"
(string-trim-left "f" "jdjjfjjj") => "f"
(string-trim-right "jdjjfjjj" "f") => "jdjjfjjj"
Кто нибудь программировал такую задачу
В точку на поверхности пластины ввели тепла (кал) в течении нескольких секунд, затем источник тепла убрали. Надо определить скорость распространения температуры по пластине, конечную температуру пластины. Все решаемые задачи в краевых условиях оговаривают одинаковую температуру по телу. Мне это не помогает.
Какое время нагрева, размеры участка нагрева, размеры пластины, какой коэффициент теплопроводности. И что именно надо в итоге получить (и зачем).
Пластина 300Х300 мм
Толщина пластины 4 мм
Теплопроводность 41 Вт/(м град)
Скорость движения электрода 22 м/ч
Мощность дуги 1833 Вт
Среда окружающая атмосфера
Получить время остывания шва от 1540 град до 600 град
У меня создалось впечатление, из разговора с Вами, что под каждую сварную кострукцию надо решать уравнение теплопрводности. Вы понимаете, что Вы просто подрываете авторитет наших сварщиков технологов!
AntonI ну и все кому интересно.
Как у товарища настроен emacs вот тут https://www.youtube.com/watch?v=p4HH8w3f-8s
set terminal dxf
load 'plot.txt'
выплевывает все на терминал а в файл никак.
Провожу из ординаты параллельную оси абсцисс линию которая пересекает какую-то кривую и точка, по абсциссе, пересечения кривой с прямой выдается автоматом. В gnuplot такого не нашел, а может просто нет такого.
Как установить вот это
https://techbase.kde.org/Languages/Smoke
такого пакета, Smoke, я просто не нашел
В физико-математическом журнале «Квант» N8 за 1988 год приводится статья «Распределение Пуассона» в конце которой говорится о следующей статье «Как возникает распределение Пуассона» и найти эту статью у меня не вышло. Может у кого завалялась? Выложте пожалуйста.
Проводятся исследования, снимаются показания нескольких значений. Их надо сравнить с теоретически полученными значениями. И проверить всё ли у меня сростётся в будущем. Для таких познаний нужна книжка, а какая не знаю. Не подскажите?
Если можно, пример
Прыгун на Прыгнул Время
скакалке раз прыгал
1 15 1мин
2 10 10сек
3 20 30сек
надо узнать кто больше раз напрыгает в будущем за меньшее время.
Перемещено hobbit из general
Как у меня примера не нашёл, сам догадаться не смог как записать правильно в maxim.
integrate((2*q*dt)/(c*γ*[4*π*a*(t-t')]^(3/2)),t,0,t);
incorrect syntax: ' is not an infix operator
\263*[4*Space%piSpace*a*(t-t')
переделал так
integrate((2*q*dt)/(c*γ*[4*π*a*(t-к)]^(3/2)),t,0,7);
Is r-7 positive, negative or zero?
подправил и что-то вышло не понятное
(%i7) integrate((2*q)/(c*γ*[4*π*a*(t-r)]^(3/2)),t,0,t);
"Is "t" positive, negative or zero?"positivew;
"Is "t" positive, negative or zero?"positivew;
"Is "t" positive, negative or zero?"positive;
"Is "t-r" positive, negative or zero?"positive;
"Is "r" positive, negative or zero?"positive;
(%o7) [(q*integrate(1/(a*(t-r))^(3/2),t,0,t))/(4*%pi^(3/2)*c*γ)]
мне надо вот это https://dropmefiles.com/tfLUi решить в maxima.
Форум математиков есть http://www.mathforum.ru, а вот где сами математики не пойму. Позтому я сюда.
Θ = (1 / ρ) * e^(- ρ * ( 1 + cos φ))
логарифмирую
ln Θ = (ln 1 - ln ρ) + (- ρ * ( 1 + cos φ)) ln e = (0 - ln ρ) + (- ρ * ( 1 + cos φ)) * 1 =
= - ln ρ + (- ρ * ( 1 + cos φ)) <------- вот тут мои сомнения при потенциировании, всётаки после - ln ρ идет действие сложения но логарифма нет.
потенциирую
Θ = - ρ – ρ * ( 1 + cos φ) = - ρ * (1 + ( 1 + cos φ)) = ρ * (- 1 - ( 1 + cos φ))
откуда
ρ = Θ / (- 1 - ( 1 + cos φ))
Maxima очень вас рекомендуют с возникшей проблемой. Не поможете?
Нужна рисующая графики софта которая может определять координаты точки пересечения какой-то кривой с какой-то прямой.
Такие вещи как то обруливаются.
W: Failed to fetch http://archive.ubuntu.com/ubuntu/pool/main/o/openldap/libldap-2.5-0_2.5.14+df... 404 Not Found [IP: 185.125.190.36 80]
W: Failed to fetch http://archive.ubuntu.com/ubuntu/pool/main/l/llvm-toolchain-15/libllvm15_15.0... 404 Not Found [IP: 185.125.190.36 80]
W: Failed to fetch http://archive.ubuntu.com/ubuntu/pool/main/o/openldap/libldap-common_2.5.14+d... 404 Not Found [IP: 185.125.190.36 80]
если да то как.
Всем привет,
Cкрипт работает и превращает <sqrt(2.)*a> в sqrt(2.)*7 затем вызывает sqrt(2.)*7 и возвращает значение.
Попробовал поиграться
$python3
>>> sqrt(2.)*7
Traceback (most recent call last):
File "<stdin>", line 1, in <module>
NameError: name 'sqrt' is not defined
>>> from math import sqrt
>>> sqrt(2.)*7
9.899494936611665
Добавил в скрипт
from math import sqrt
ошибка осталась
******* ERROR ********
Line 27 in par.pre.fbd
swep p4 p5 tra <sqrt(2.)*a> 0 0 2
'NoneType' object is not callable
Что ещё можно сделать?
Как в gnuplot программно определить координаты пересечения кривых с прямыми по оси абсцисс? Или для таких случаев надо другой инструмент, тогда подскажите какой?
(defvar *result*)
(setq *result* 0)
(defun sum-list (lst)
(if (eq (car lst) nil)
*result*
(progn
(setq *result* (+ *result* (car lst)))
(sum-list (cdr lst)))))
(sum-list '(1 2 3 4 5)) => 15
переписал, что-не доходит с labels. Никак не могу понять как она создаёт место в памяти и суммирует туда
(defun labels-sum-list (lst n)
(labels ((temp (lst)
(if (eq (car lst) nil)
n
(progn
(setq n (+ n (car lst)))))))
(temp (cdr lst))))
(labels-sum-list '(1 2 3 4 5) 0) => 2
Кто-то может подправить код, растолковать работу labels.
следующие → |