Hey,
hier unsere versionen der ersten 3 bsp. von der 3. übung (bitte nicht 1:1 übernehmen):
PROGRAM TRAPEZZ
IMPLICIT NONE
DOUBLE PRECISION a,b,e, ex, f, ref, MyInt, Myfunc, Trapez, delta
INTEGER i
EXTERNAL myfunc
a=0.d0
b=4.d0*DATAN(1.d0)
e=0.0000000001d0
!Referenzvariable->startwert ohne abbruch
ref=1000.d0
!Delta=A(i)-A(i+1) soll kleiner als Schranke sein
!Startwert so hoch, dass kein abbruch passiert
delta=10000.d0
i=1
do
!Tapezregel anwenden und FLächen berechnen
F=TRAPEZ(MYFUNC,a,b,i)
delta=DABS(F-ref)
ref=F
!Abbruchbedingung
if(delta.LT.e) exit
!Ausgabe: Anzahl der Stützstellen / Integralwert / Fehler
print*, i,F,delta
i=2*i
END DO
STOP
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! Implementation der Funktion:
DOUBLE PRECISION FUNCTION myfunc(X)
DOUBLE PRECISION X
! Rueckgabewert := Name der Funktion !!
MYFUNC = DEXP(X)*DCOS(X)
RETURN
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
DOUBLE PRECISION FUNCTION TRAPEZ(FUNC,A,B,N)
DOUBLE PRECISION A,B,dx, func
EXTERNAL FUNC
! Rueckgabewert := Name der Funktion !!
dx=(b-a)/N
TRAPEZ=FUNC(A)+FUNC(B)
DO I=1,N-1
TRAPEZ=TRAPEZ+2.d0*FUNC(A+I*dx)
END DO
TRAPEZ=TRAPEZ*0.5d0*dx
RETURN
END
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PROGRAM GL
IMPLICIT NONE
DOUBLE PRECISION a,b,c,d,i,func
a=0.0d0
b=4.d0
c=(b+a)*0.5d0-(b-a)*0.5d0*DSQRT(1.d0/3.d0)
d=(b+a)*0.5d0+(b-a)*0.5d0*DSQRT(1.d0/3.d0)
i=(b-a)*0.5d0*(func(c)+func(d))
print*, i
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
DOUBLE PRECISION FUNCTION func(X)
DOUBLE PRECISION X
func = 1.d0-3.d0*x+4.d0*x*x-15.d0*x*x*x
RETURN
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PROGRAM GL
IMPLICIT NONE
DOUBLE PRECISION a,b,i,func,x,error
external func
!Integralgrenzen:
a=1.d0
b=5.d0
!Funktionsaufruf:
CALL DADAPT(func,a,b,1,1.0d-4,1.d-8,i,error)
!Ausgabe: Integral und Fehler
print*, i,error
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
DOUBLE PRECISION FUNCTION func(X)
DOUBLE PRECISION X
func = LOG(x)
RETURN
END
! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
3. Übung - 22.03
Zurück zu „Datenverarbeitung für TPH II“
Gehe zu
- Forum allgemein
- ↳ Neu hier?
- ↳ Das Forum-Forum
- Studium allgemein
- ↳ Studium allgemein
- ↳ Wahlfächer
- ↳ Bachelor-, Projekt- und Masterarbeiten
- ↳ Studienabschluss
- ↳ Bücher- und Skriptenbörse
- 261 Technische Physik (Bac.)
- ↳ Semester I
- ↳ Analysis I für TPH
- ↳ Einführung in das Physikstudium
- ↳ Grundlagen der Physik I
- ↳ Lineare Algebra für TPH
- ↳ Praktische Mathematik I für TPH
- ↳ Semester II
- ↳ Analysis II für TPH
- ↳ Grundlagen der Elektronik
- ↳ Grundlagen der Physik II
- ↳ Laborübungen I
- ↳ Praktische Mathematik II für TPH
- ↳ Semester III
- ↳ Grundlagen der Physik III
- ↳ Laborübungen II
- ↳ Mathematische Methoden der Theoretischen Physik
- ↳ Mechanik für TPH
- ↳ Semester IV
- ↳ Chemie für TPH
- ↳ Elektrodynamik I
- ↳ Laborübungen III
- ↳ Materialwissenschaften
- ↳ Projektmanagement
- ↳ Semester V
- ↳ Datenverarbeitung für TPH I
- ↳ Physikalische Messtechnik I
- ↳ Quantentheorie I
- ↳ Semester VI
- ↳ Atom-, Kern- und Teilchenphysik I
- ↳ Festkörperphysik I
- ↳ Statistische Physik I
- ↳ Gebundener Wahlfachkatalog: Technische Qualifikationen
- 434 Materialwissenschaften
- ↳ Integrative Pflichtfächer Chemie
- ↳ Physikalische und Analytische Chemie
- ↳ Anorganische und Organische Stoffchemie
- ↳ Integrative Pflichtfächer Maschinenbau
- ↳ Introduction to Finite Element Methods in Solid Mechanics
- ↳ Werkstoffcharakterisierung und zerstörungsfreie Prüfung
- ↳ Integrative Pflichtfächer Elektrotechnik
- ↳ Werkstoffe der Elektrotechnik
- ↳ Halbleiterphysik
- ↳ Integrative Pflichtfächer Bauingenieurwesen
- ↳ Computational Material Modelling
- ↳ Mechanische Werkstoffeigenschaften und Werkstoffprüfung
- ↳ Materialwissenschaften
- 453 Biomedical Engineering
- ↳ Biomedical Engineering
- ↳ Life Science
- ↳ Anatomy and Histology
- ↳ Biology
- ↳ Physiology and Pathology
- ↳ Introduction to Microscopy in Biology
- ↳ Integrative Pflichtfächer
- ↳ Biocompatible Materials
- ↳ Biomedical Instrumentation
- ↳ Biomedical Sensors and Signals
- ↳ Biophysics
- ↳ Biostatistics
- ↳ Instrumental Analytical Biochemistry
- ↳ Introduction to Biology Chemistry
- ↳ Introduction to Biomaterials and Tissue Engineering
- ↳ Introduction to Biomechanics
- ↳ Medical Image Processing
- ↳ Schwerpunkt A: Biomaterials & Biomechanics
- ↳ Schwerpunkt B: Biomedical Instrumentation & Signals
- ↳ Schwerpunkt C: Mathematical & Computational Biology
- ↳ Schwerpunkt D: Medical Physics & Imaging
- 460 Physikalische Energie- und Messtechnik
- ↳ Semester I
- ↳ Atomare Stoßprozesse (Atom- und Molekülphysik, Spektroskopie)
- ↳ Physikalische Chemie
- ↳ Strömungslehre für TPH
- ↳ Betriebswirtschaft (Angewandte Betriebswirtschaftslehre)
- ↳ Statistik
- ↳ Semester II
- ↳ Nachhaltige Energieträger
- ↳ Alternative nukleare Energiesysteme
- ↳ Physikalische Messtechnik II
- ↳ Thermodynamik
- ↳ Echtzeitdatenverarbeitung
- 461 Technische Physik (Mas.)
- ↳ Semester I
- ↳ Betriebswirtschaft
- ↳ Elektrodynamik II
- ↳ Festkörperphysik II
- ↳ Physikalische Analytik
- ↳ Quantentheorie II
- ↳ Semester II
- ↳ Atom-, Kern- und Teilchenphysik II
- ↳ Statistische Physik II
- ↳ Datenverarbeitung für TPH II
- 810 Technische Physik (DI) - ALTER STUDIENPLAN!
- ↳ Semester III
- ↳ Datenverarbeitung für Physiker I
- ↳ Mathematische Methoden der Physik
- ↳ Mechanik für TPH
- ↳ Semester IV
- ↳ Datenverarbeitung für Physiker II
- ↳ Elektrodynamik und Relativitätstheorie
- ↳ Elektrodynamik I VU Homepage
- ↳ Grundlagen der Physik IV
- ↳ Laborübungen III
- ↳ Physikalische Meßverfahren
- ↳ Semester V
- ↳ Atom- und Molekülphysik
- ↳ Chemie für TPH
- ↳ Materialwissenschaften
- ↳ Projektmanagement
- ↳ Quantentheorie I
- ↳ Semester VI
- ↳ Festkörperphysik I
- ↳ Kern- und Teilchenphysik
- ↳ Statistische Physik I
- ↳ Statistische Physik I UE Homepage
- ↳ Semester VII
- ↳ Atomare und Subatomare Physik
- ↳ Festkörperphysik II
- ↳ Physikalische Analytik
- ↳ Statistische Physik II
- ↳ Semester VIII
- ↳ Quantentheorie II
- Wahlfachkataloge
- ↳ Gebundener WFK: Theoretische und Mathematische Physik
- ↳ Gebundener WFK: Atomare und Subatomare Physik
- ↳ Gebundener WFK: Physik der kondensierten Materie
- ↳ Gebundener WFK: Angewandte Physik
- ↳ Gebundener WFK Physikalische Energietechnik
- ↳ Gebundener WFK Physikalische Messtechnik
- ↳ Studienrichtungsspezifischer Zusatzqualifikationen ("Soft Skills")
- ↳ ATHENS-Programm oder Gastprofessuren