[DEM]

Родилась идея, о создании бесплатного аналога программ Арабат, Кристал, Вест и отдельных модулей НормКада....
Данный проект можно сделать с открытыми исходниками а разработку его вести на основе ГитХаба или Google Code....
В качестве языка программирования предлагаю принять VB.net т.к. он все таки победил в теме....
Можно было конечно принять матерный, но к сожалению, тогда придется проект делать закрытым, и исходники хранить на флешках в защищенных от доступа детей местах...
Прошу высказывать свои пожелания и предложения к данному проекту...

PS. Прошу всех кто согласен участвовать в проекте отписаться в личку....

Список участников:
DEM
bargool
RrRR
ябс
Cosinus
swell{d}
Akim_1989
Djur
Ratmir
Yasnogor
P1@t0n
GradRusStroy
gabidullin

PS. Всем заинтересованным, во включении каких то программ, прошу заполнить форму, чтобы можно было добавлять программу....

[Meknotek]

Сообщение от Chardash Консольную на Fortran (расчет жб), будет ли возможность сделать для нее интерфейс с XAML (или C#)? Был бы благодарен за пример fortran-XAML (C#), хотя бы "Привет, мир!" по вопросу - вот неплохая реализация. http://dwg.ru/dnl/6527. правда все затихло

Попробуйте написать простую консольную программу. С вводом через стандартный ввод, выводом - соответственно стандартный вывод. Попробуем прикрутить что-нибудь

[Chardash]

Сообщение от Meknotek Попробуйте написать простую консольную программу. С вводом через стандартный ввод, выводом - соответственно стандартный вывод. Попробуем прикрутить что-нибудь

спасибо. эта подойдет (см вложение)? ввод через .dat файл
добавил методичку. Огромное спасибо ее авторам , если вдруг читают эту тему


еще, очень серьезно меняется фортран код, например, для QWin, тут знадо знать уже не только фортран
Вроде и не фортран уже .... И основная проблема не сделать интерфейс, а как его связать с исходным кодом (консольным), в книгах даже для простых программ код очень сильно изменяется

Код:

[Выделить все]

! Listing for Main.f90
program hello

! A hello program using quickwin 
    implicit none 
    character(15) string_out 
    character(40) string_title 
    string_out = 'Hello World!'
    string_title = 'Simple Hello World Using Quickwin' 
    open(unit = 4, file = 'user', title = string_title) 
    write(4, '(10x,A15)' ) string_out

end

[Meknotek]

Я имел в виду, сделайте простенькую прогу, которая получает ввод через READ, вывод дает через PRINT. Можно например вида "введите q, L" и вывод - число (по формуле q*L^2/8) - пришлите готовый .exe-шник. Мне для проверки ввода-вывода

[andsan]

Сообщение от Chardash как его связать с исходным кодом

В Python это сделать не трудно. В составе библиотеки numpy входит модуль f2py, который позволяет скомпилировать и связать код на Fortan. Примерно так http://koldunov.net/?p=384

[ННВ]

Сообщение от Meknotek сделайте простенькую прогу

вроде простенькая и считает верно (сравнил с решением по Scilab) интеграл функции y=sin(x) на промежутке от 0 до 1 методом трапеций.

Код:

[Выделить все]

 program test_integration
implicit none

real*8 x,y
real*8 delta,summa

summa=0.0
x=0.0000000
delta=0.0000001
do
    y=sin(x)
    summa=summa+y*delta
    x=x+delta
    if(x>1.0)exit
enddo

print*,'Integral =',summa
!write(*,*)'Integral =',summa

end program test_integration

Если можете - скомпилируйте. А то у меня не выбрасывает результат в консоль.

[Meknotek]

Сообщение от ННВ вроде простенькая и считает верно (сравнил с решением по Scilab) интеграл функции y=sin(x) на промежутке от 0 до 1 методом трапеций. Код: [Выделить все] program test_integration implicit none real*8 x,y real*8 delta,summa summa=0.0 x=0.0000000 delta=0.0000001 do y=sin(x) summa=summa+y*delta x=x+delta if(x>1.0)exit enddo print*,'Integral =',summa !write(*,*)'Integral =',summa end program test_integration Если можете - скомпилируйте. А то у меня не выбрасывает результат в консоль.

у меня нет компилятора Fortran, потому и попросил exe-шник

[zamtmn]

Meknotek
>>"введите q, L" и вывод - число (по формуле q*L^2/8)
если ввод-вывод через консоль, то имхо лучше 1 запрос=1 ввод. и русские тексты нафиг - оставить их на совесть системе локализации.

[Meknotek]

Сообщение от zamtmn Meknotek >>"введите q, L" и вывод - число (по формуле q*L^2/8) если ввод-вывод через консоль, то имхо лучше 1 запрос=1 ввод. и русские тексты нафиг - оставить их на совесть системе локализации.

Я ж не дословно имел в виду естественно все по отдельности (каждый параметр). Вывод - также "отдельным" print (каждый рез-т, если таковых несколько). По поводу кириллицы - сейчас не имеет значения...

[ННВ]

А как загрузить exe-шник? Пишет "Некорректный файл".

[Meknotek]

Сообщение от ННВ А как загрузить exe-шник? Пишет "Некорректный файл".

заархивируйте (zip)

[ННВ]

О, точно!

[Kinzer]

Стойте, а зачем вы хотите писать на Фортране? Не вижу смысла. Я понимаю есть много наработок на нем. Но можно ведь использовать бесплатные библиотеки на питоне, например. Я думал, что нужно сделать много программок вроде этого (см. приложение). Должно быть что-то вроде лировского ЭСПРИ?

[ННВ]

На Фортране - один из вариантов. Как говорил ETCartman - собирать программу из "кирпичиков". Например, по типу Matlab или Scilab - они тоже сделаны как библиотеки "кирпичиков" с оболочкой, позволяющей вызывать свои функции. Фортранный код выполняется быстро и писать его (относительно) несложно.

[Нитонисе]

Kinzer, а можно программку посмотреть, от которой вы скриншот прилепили выше?

[Cosinus]

Пока тут народ спорит каким пальцем удобнее в носу ковырять, с подачи Demа накалякал програмуську по моментам инерции произвольных сечений. НА ПИТОНЕ. У меня Python 2.6.6. Для проги нужны будут модули wxPython, PythonCard, Unum, matpotlib - у кого нет - нагуглите - скачаете. С путями не заморачивался пока, поэтому работает из папки c:\work\pythonsrc\civil. Запускать geomframe.py. Особо пока не тестил - жду замечаний по косякам. Могёте, конечно, и сами поправлять, но лучше шлите мне (в виде кусков кода или модулей). Пока вставил только пять сортаментов. Нужна помощь в расширении их списка.

Интерфейс несложный. Отверстия в сечении указываются во второй колонке. Модуль упругости и плотность вводить по желанию, если нужны характеристики приведенного сечения или погонная масса. Чуть позже сделаю нормальную инструкцию и, может, переведу под Питон 3.3. Для запуска расчета щелкнуть правой кнопкой по таблице.
На базе уже этой програмуськи можно сделать часть расчетов балок и колонн из стального снипа. Кто подключится?

[Kinzer]

Нитонисе, вот. Для работы необходим Framework 4.0. Поэтому и отсылал скиншот.

[Нитонисе]

Сообщение от Kinzer Нитонисе, вот. Для работы необходим Framework 4.0. Поэтому и отсылал скиншот.

Спасибо. Только у меня нет вкладок Расчет и Эпюры. Это вы писали программу?

[Kinzer]

Сообщение от Нитонисе Спасибо. Только у меня нет вкладок Расчет и Эпюры. Это вы писали программу?

Я конечно. Вкладки удалил, т.к. результаты выдает неправильные пока. Надо доделать. И еще исключительные ситуации все проработать. И по хорошему надо бд привязать к характеристикам, а не как сейчас.
вот как выглядят те вкладки. (2,3), НО пока не выдает правильные результаты!

[DEM]

Cosinus
Завтра смогу глянуть....
Я ж вроде писал, что лучше делать Питон-портабл...
Проще запускать потом будет...
По части расчета балок и колонн тут надо будет разделить расчеты на модули....
В соответствии со СНИПовскими формулами грубо говоря...
Так проще будет использовать потом...
Потом еще понадобится консольный ввод данных при запуске скрипта....
По стараюсь сделать пример запуска модуля Питона из программы сделаной в Лазаре на днях сделать....

[Cosinus]

Я не разобрался, как в портаблю нужных библиотек насовать. Я так понимаю, если это сделать, он станет непортаблей. И надо четко определиться на каком питоне работать - 2 или 3. Вроде matplotlib, scipy, unum под 3 работают. Так что необходимая и достаточная для наших целей считалка есть. А интерфейс придется на PyQt делать. Наверно, стоит сразу на питоне 3 писать.