IDodov
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день, уважаемые! Пытаюсь провести линейную интерполяцию, где температура зависит от высоты Т(z), я правильно начал? Пишу по примеру с книги, но не понимаю что и как, механизм не понятен PROGRAM TEST_INTERPOLATION USE INTERPOLATION IMPLICIT NONE REAL, DIMENSION(20) :: Z = (/ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 /) REAL, DIMENSION(20) :: T = (/ 1940, 1800, 1720, 1650, 1615, 1570, 1525, 1480, 1480, 1440, 1405, 1370, 1340, 1310, 1285, 1260, 1235, 1210, 1190, 1170, 1150, 1130 /) TYPE(INTERPOLATION_DATA) :: INTERP INTEGER :: i REAL :: ZP, RESULT LOGICAL :: SUCCESS INTERP = INTERPOLATION_OBJECT (Z, T, EXTRAPOLATION_CONSTANT) Добавлено: И если в дальнейшем писать сюда код, нужно его под определенный тег ставить? В книге рассматриваются два варианта решения интерполяции, первый очень длинный но лучше как я понял, а второй по объему меньше но тяжелее что-ли |