next up previous
Naprej: Porocilo Gor: Programska modula Nazaj: Binarna izhodna datoteka

Postprocesor

Postprocesor je program, ki omogoca prikaz in nadaljno obdelavo izracunanih podatkov (za razliko od preprocesorja, ki bi npr. omogocal interaktiven vnos podatkov za preracun).

Za graficen prikaz rezultatov v programu uporabite graficni jezik GKS ali PHIGS. Poprocesor naj omogoca prikaz konstrukcije v treh dimenzijah s poljubnim zaporedjem transformacj v prostoru. V ta namen uporabi homogene matrike in iz njih sestavi kompozicijsko matriko. Projekcija na zaslon naj bo ortogonalna projekcija ravnine x-y. Ravninski nosilci imajo koordinato z=0. Na zahtevo (menu) mora program izrisati na konstrukcijo se oznacbe vozlov, palic, sile v palicah oziroma pomike. Ker so pomiki vozlisc majhni, jih je potrebno mnoziti s konstanto, da dobimo pretiran prikaz deformiranega palicja. Palice, ki so obremenjene na tlak izrisi v rdeci barvi, natezno obremenjene palice pa v zeleni. Risanje sil in reakcij v vozliscih je neobvezno.

Program za prikaz mora uporabljati homogene transformacije v dvodimenzionalnem prostoru s kompozicijo matrik poljubnega vrstnega reda. Osnovni program, ki demonstrira uporabo jezika GKS je:

 
      program GKS skeleton 
      implicit none 
      real x(3) /-200.0, 350.0, 250.0/ 
      real y(3) /-200.0, 300.0,-250.0/ 
      real kx(2) /0.0, 100.0/ 
      real ky(2) /50.0, 120.0/ 
      character*80 datrec(1)
c     Odpre GKS (Gks OPen gKS)
      call gopks()
c     Nastavitev zaslonskih koordinat 
c     (Gks Set WorKstation ViewPort)
      call gswkvp(1, 20.0, 50.0, 600.0, 450.0)
c     Nastavitev uporabniskega koord. sistema 
c     (Gks Set WiNdow)
      call gswn(1, -300.0, -300.0, 400.0, 400.0)
c     Izris lika z dvema crtama 
c     (GksSetPolyLineColorIndex, GksPolyLine)
c     Indeksi:1 modra, 2 zelena, 3 cyan, 4 rdeca,
c             5 violicna, 6 rjava, 7 bela, 8 siva,
c             9 svetlomodra, ..., 14 rumena, 15
      call gsplci(3)
      call gpl(3, x, y)
c     Izris teksta (GksSetCharacterHeight, 
c     ...TextColorIndex, GksTeXt)
      call gstxci(14)
      call gschh(20)
      call gtx(-250.0, 300.0, 'GKS skeleton')
c     Izris kroga 
c     (Generalized Drawing Primitive)
      call gdp(2, kx, ky, -1, 1, datrec)
c     Zapre GKS (Gks CLose gKS)
      call gclks()
      end



Leon Kos
Tue Feb 20 11:49:51 GMT+0100 1996