Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
Показать сообщение отдельно
 
Непрочитано 24.02.2009, 10:37
#564
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Молодец. Можешь же когда захочешь. Вот мой вариант. Отличия только в названиях переменных.
Код:
[Выделить все]
      (princ "\n============= ИТОГ РАБОТЫ ==============\n")
      (setq allsum 0.0) ;;_Обнуляем массу всей стали
      (foreach klass itog
        (princ "\nКласс : ")(princ (car klass))
      (mapcar '(lambda(line / locsum)
                 (terpri)
   (setq locsum 0.0)  ;;_Обнуляем массу в пределах ГОСТа (локальную)
                 (princ (car line))
                 (foreach xx (cdr line)
                   (princ "\n     ")
                   (princ (car xx))
                   (princ "  -  ")
                   (princ (cadr xx))
     (setq locsum (+ locsum (cadr xx)))
                   (princ " кг.")
                   )
   (princ "\nИтого: ")(princ locsum)(princ " кг.")
                 (princ "\n-------------------------------------------------")
   (setq allsum (+ locsum allsum))
                 )
              (cdr klass)
              )
        )
       (princ "\n=================================================")
    (princ "\nВсего: ")(princ allsum)(princ " кг.")
    (princ "\n=================================================")
Ну и для тех кто не знаком с лиспом полный вариант (той версии, что еть у меня)
> Red Nova У меня к тебе еще одна просьба, как к зачинщику темы. Ориентироваться в 20 страницах уже тяжковато. Дай в 1-м посте ссылки на последние актуальные версии или размести их там.

Исправлена ошибка в SumTN с фиксированной высотой текстового стиля

В соответствии с #583 немного изменен алгоритм поиска новых типов. По умолчанию он ищется как для штучных материалов (болты, гайки, шайбы) Т.е. масса из базы умножается на количество. Соответсвенно добавлены перемычки по ГОСТ 948-84.

Файл sumTSW.rar - c добавлением 1% на сварку
Вложения
Тип файла: rar sumT.rar (373.2 Кб, 1369 просмотров)
Тип файла: rar sumTSw.rar (373.3 Кб, 750 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 18.07.2011 в 14:58. Причина: Добавлено меню см. #599
VVA вне форума  
 
Размещение рекламы