Fortran, анализ функций
, Анализ заданной функции и вывод данных
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.97.14.81] |
|
|
Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.
Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)
Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена
Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.
Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)
Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена
Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Fortran, анализ функций
, Анализ заданной функции и вывод данных
|
Сообщ.
#1
,
|
|
|
|
Здравствуйте! Подскажите, пожалуйста, столкнулся с проблемой анализа функций. Построение функций выполняется за счет выставления соответствующих символов, как и приведено в кусочке программы. Подскажите, пожалуйста, как сделать так, чтобы выводило ООФ, множество значений, нули функции и экстремумы? Денежная плата за труды включена
program TaskNum147 implicit none real :: x,y, Yk,Yo, Xk,Xo, dx,dy, u read *, Xk,Yk, Xo,Yo, dx,dy do y = Yk, Yo, (-dy) do x = Xo, Xk, dx u = 1/(2*cos(x)+3) if(ABS(y-u).LE. 0.3) then write(*,'(1a,$)')'*' else if ((y .EQ. 0) .AND. (x .NE. 0)) then write(*,'(1a,$)')"-" else if ((y .NE. 0) .AND. (x .EQ. 0)) then write(*,'(1a,$)')"|" else if ((y .EQ. 0) .AND. (x .EQ. 0)) then write(*,'(1a,$)')"+" else write(*,'(1a,$)')" " end if end do write(*,*) end do end program |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0205 ] [ 15 queries used ] [ Generated: 17.03.25, 08:53 GMT ]