LINUX.ORG.RU

Сообщения saufesma

 

Emacs -> sbcl, wishfull thinking

Никто не пробовал соединить emacs widget с sbcl, я вот к чему, пишем интерфейс на emаcs а обработчик вызывает код на sbcl и уже там происходит вычисление кода, common lisp кода.

 ,

saufesma
()

Не могу выловить Wrong type argument: number-or-marker-p, nil

(defun pos-in-lst (n lst count)
  (if (= n (car lst))
      count
    (pos-in-lst n (setq lst (cdr lst))
		(setq count (+ count 1)))))

.......
;;В этом месте всё прекрасно
(setq *omega3-max-pos-in-lst* (pos-in-lst *omega3-max*
					   *rev-true-omega3-lst*
					   *count*))
 ;; а здесь ошибка Wrong type argument: number-or-marker-p, nil
  (setq *PHI2-at-omega3-max* (pos-in-lst *omega3-max-pos-in-lst*
					   *lst-of-val-PHI2*
					   *count*))

Проверяю аргументы

*omega3-max-pos-in-lst* ===> 59 (#o73, #x3b, ?\;)

*lst-of-val-PHI2* ===> (6.283185307179525 6.248278722139639 6.213372137099753 6.178465552059866 6.14355896701998 6.108652381980094 6.073745796940208 6.038839211900322 6.003932626860435 5.969026041820549 5.934119456780663 5.899212871740777 ...)

*count* ===> 0 (#o0, #x0, ?\C-@)

Правда 1011 строк кода и имакс просто отказывается работать, не могу сообразить

 

saufesma
()

Как сконструировать лист

(defvar *lst*)
(defvar *w-lst*)
(defvar *pos-min*)
(defvar *pos-max*)
(setq *lst* (list 45 1 2 3 4 5 6 7))
(setq *w-lst nil)
(setq *pos-min* 2)
(setq *pos-max* 3)

Как на выходе получить лист *w-lst* с элементами (1 2), сообразить не могу. Используемый язык elisp.

Получил я свой лист, сомнительным способом, может кто математически подскажет, а то может оказаться, что этот код только на этом листе и даёт правильный результат

(progn
(defvar *lst*)
(defvar *w-lst*)
(defvar *w-lst1*)
(defvar *pos-min*)
(defvar *pos-max*)
(setq *lst* (list 45 1 2 3 4 5 6 7))
(setq *w-lst* nil)
(setq *w-lst1* nil)
(setq *pos-min* 2)
(setq *pos-max* 3))

(defun list-cdr (w-lst1 lst pos-max)
  (if (< 0 pos-max)
      (make-list (push (car lst) w-lst1)
		 (setq lst (cdr lst))
	       (- pos-max 1))
    w-lst1))

(setq *w-lst1* (nreverse
(list-cdr *w-lst1* *lst* *pos-max*)))

(setq *w-lst1* (nthcdr (- *pos-min* 1) *w-lst1*))

 

saufesma
()

Нужно что-то делать

Я в такое упираюсь по часу бывает

An error occurred during a connection to www.linux.org.ru. PR_END_OF_FILE_ERROR

The page you are trying to view cannot be shown because the authenticity of the received data could not be verified.
Please contact the website owners to inform them of this problem.

а в dwg.ru такое не выскакивает. Можно что-то сделать?

 

saufesma
()

Куда помещать табличные данные для програмки

Получилось как одним заглавием всё сказал. Добавлю, если в листы запихивать таблицы то программка будет совсем уж увесистой, да писать их трудновато, ошибки трудно будет вылавливать. В отдельный файл, то не знаю как оттуда потом дергать данные. Заранее спасибо.

 

saufesma
()

Как рассматривать результаты вычислений

Такая задача, цилиндр длиной 1000мм, радиусом 57 мм. Определить массу, момент инерции, задача решается руками и с помощью VariCAD

Плотностьρ 7.85E-06кг/мм^3
ДлинаL 1000мм
РадиусR 57мм
Массаm(PI * R^2 * L) * ρ80.1252210723789кг
РезультатVariCAD 80.125221кг
Момент инерцииJ(m / 2)* R^20.13016342163208кг/м^2
РезультатVariCAD 0.12858245446869кг/м^2

Нетрудно видеть с массой VariCAD справился на отлично, с моментом инерции не очень или это у меня косяк, а какой не вижу.

Стало интересовать такая проблема, простенькая такая как центр тяжести. Как пример, берём трубу длиной 1000мм, диаметром 57мм, толщина стенки 3.5мм и сверлим в ней отверстия в ряд по 8мм каждое, насквозь. А затем делаем лыску на стороне скажем входных отверстий, вставляем в отверстия штыри по 150 мм, и вот надо рассчитать центр тяжести. Руками как-то не знаю, может кто научит? Теперь не знаю как решить такую задачку т.к. не знаю как относиться к результатам расчёта на VariCAD. Salome-meca and FreeCAD or Solvespace такие дела не решают. Кто подскажет софту?

 

saufesma
()

Уже не читабельная таблица LibreOffice Calc

Скорее всего я разговариваю сам с собой, у меня вводных 100 строк, 13 листов расчётов. От 20 до 40 строчек каждый лист. Каждый лист зависит от предыдущего, что с этим делать не могу сообразить. Как это раскидать чтобы можно было работать комфортнее. Data base какую сделать, так в LibreOffice data base как адресная книга, а у меня цифирки, да и на имаксе тоже не знаю как. Вдруг кто сталкивался с такой ситуацией, подскажите.

 ,

saufesma
()

Не могу разобраться с emacs widget

Перелопатил widget example и widget-demo.el, в последнем оказались ошибки которые нужно исправлять, а я не понимаю как эти видгеты определять, если требуется выход за рамки widget example, не то, что ошибки исправлять, ситуация из рук вон плохо. На форуме тоже ничего не нашёл.

Мне нужно объяснение как создавать новые видгеты. И желательно знающего -> незнающему.

 ,

saufesma
()

Как работать с классами в Racket


#lang racket/gui
;Point dwell in canvas, cavas dwell in frame
(define frame (new frame%
                   [label "Example"]
                   [width 300]
                   [height 300]))
; Add a text fields to the frame
(define dia
(new text-field% [parent frame]
     [label "Diameter"]))
  ;[callback (lambda (value event)
              ;(send dia get-value))])) ;непонятно как тут рабртает
(define b (send dia get-value)) ;does not work
;(send dia get-value) запустил прогу, потом вбиваю 
;"455677"              это в репл, работает

(send frame show #t)
[/code/
Не понятно как вызывать методы класса из окружающего класс кода

 

saufesma
()

Спутниковый интернет душит

Проблема вот в чём, сервер получает сигнал с антены, сеть вайфай, с такими ограничениями, 10Гб на месяц, 6 часов в день. Самое плохое вот в чём, как только объём проходит точку в 7Гб, интернет становится никикой, еле еле душа в теле. Может кто даст наколку как это объехать без большой крови.

 

saufesma
()

Что это errors=remount-ro

~$ cat /etc/fstab

/ was on /dev/sda5 during installation

UUID=c9b1781c-d58d-42e6-a02d-46bd58aeb080 / ext4 errors=remount-ro 0 1 ………………………………….. о чём это говорит?

 

saufesma
()

Как правильно разбить диск для установки Linux

Как всётаки это сделать, в ссылке указано моё разбиение диска и с книжки администратора Linux, с местом swap не совсем понятно, следует сразу за загрузочным томом.

https://transfer.sh/uk2qJ/file-system.txt

 

saufesma
()

Как скомбинировать геометрию Netgen c cgx

Как получить cgx геометрию из меш файла сгенерированного Netgen. Сгенерированный файл открывается так

$cgx -ng file.vol

чертёжик открывает, а что делать дальше неведомо. В мануале пишут о возможности это сделать, но ничего по поводу, как это сделать.

 

saufesma
()

Компиляция cgxCadTools

Нужна помощь в подготовке путей для компиляции cad2fbd.


#!/bin/bash
clear

OCCT=/usr/local/opencascade-7.1.0/bin/lin64/gcc/lib ;;; такого пути просто не существует, поэтому не знаю как быть, нужна ваша помощь 


CADREADER=/usr/local/cgxCadTools/CadReader/src/ ;;; здесь нет проблем


export LD_LIBRARY_PATH=$OCCT:$LD_LIBRARY_PATH
export CADREADER

exec $CADREADER/tmain $@

пакет находится здесь

dhondt

 

saufesma
()

Можно ли по фотографии механизма найти размеры деталей

Есть фотка механизма известна ширина оного, есть ли возможность нахождения размеров остальных деталей по данной фотке?

 

saufesma
()

Большой файл для solvespace

atsym

Вы сильно интересуетесь solvespace, и проблемами в нём, у меня есть достаточно сложный 3Д чертёж, с помощью которого сможете посмотреть поведение solvespace. Только на форум не могу его выложить.

 

saufesma
()

Глючит мобильник

Пару месяцев назад, набирал сайт mail что-то там, на WhatsApp, нажал кнопку отправить, имя сайта оказалось другое, mail но не то, не проверил этого помощника автомата который за тебя слова подставляет. С тех пор началось, телефон может сам набрать номер, показать картинку во весь экран, вобщем неуправляемым стал. Переустановил OS то же самое но реже, может потому что стал протирать экран.

Далее, заметил, что если номер попадает в середину экрана при нажатии не реагирует, а если переместить номер выше ниже середины, работает.

Вопрос, мой номер взломан, если да как проверить?

Надо поменять экран?

Выбросить купить новый?

 

saufesma
()

Как будто кто-то лазил в моём e-mail box

Я вышел из ящика, закрыл browser, выключил комп, лег спать. На следующий день вкл комп, открыл browser, ввёл gmail.com, и browser сразу входит на ящик, без пороля, и кто-то или что-то там поковырялось, всплывающее окно сказало, здесь был gmail magic, что делать?

Перемещено leave из development

 ,

saufesma
()

Батарея лаптоп рабочая, а уведомление не хорошее

Вот, что пишется при запуске системы Debian 8

Your battery capacity is 48%. This means your battery is broken and needs a replacement. Please contact your hardware vendor for more details.

Куда лезть?

 

saufesma
()

mail service provider

Не знаю если правильно помещаю вопрос

Кто что может сказать о сервисе tutanota.com

 ,

saufesma
()

RSS подписка на новые темы