home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / SURFUTI3.ZIP / FUNC2SUR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-04-22  |  896 b   |  30 lines
  1. 100 ' FUNC2SOL.BAS: Convert 3-D function data file into SOLMODL file.
  2. 110 '
  3. 120 FILIN = 1: FILOUT = 2
  4. 130 OPEN "I", #FILIN, "PARABOLA.DAT"
  5. 140 OPEN "O", #FILOUT,"PARABOLA"
  6. 150 INPUT #FILIN, NX, NY
  7. 160 PRINT #FILOUT, "PARABOLA TEST"
  8. 170 PRINT #FILOUT, 2                 :'Version number of data file
  9. 180 PRINT #FILOUT, 1; NX*NY; (NX-1)*(NY-1); 0; 4; 2
  10. 190 PRINT #FILOUT, 1; 1; 3           :'Material data
  11. 200 FOR IX = 1 TO NX
  12. 210   FOR IY = 1 TO NY
  13. 220     INPUT #FILIN, X, Y, Z
  14. 230     PRINT #FILOUT, X; Y; Z
  15. 240   NEXT IY
  16. 250 NEXT IX
  17. 260 ' End of nodal data
  18. 270 CLOSE #FILIN
  19. 280 ' Begin surface connectivity
  20. 290 FOR IX = 1 TO NX-1
  21. 300   FOR IY = 1 TO NY-1
  22. 310     N1 = (IX-1)*NY + IY
  23. 320     N2 = (IX-1)*NY + IY + 1
  24. 330     N3 = (IX)  *NY + IY + 1
  25. 340     N4 = (IX)  *NY + IY
  26. 350     PRINT #FILOUT, 4; 1; N1; N2; N3; N4
  27. 360   NEXT IY
  28. 370 NEXT IX
  29. 380 CLOSE #FILOUT
  30.