Main /
HomePageMain.HomePage HistoryHide minor edits - Show changes to markup Changed lines 1-5 from:
FORTRAN: soluzione di equazioni di secondo gradoSi vuole scrivere e commentare in linguaggio Fortran77 un programma in grado di risolvere equazioni di secondo grado. to:
Welcome to PmWiki! A local copy of PmWiki's documentation has been installed along with the software, and is available via the documentation index. To continue setting up PmWiki, see initial setup tasks. The basic editing page describes how to create pages in PmWiki. You can practice editing in the wiki sandbox. More information about PmWiki is available from http://www.pmwiki.org. per materiale tesi saldature vedi saldature Changed lines 18-59 from:
C Chiamata del programma e resa estetica program RADICI EQUAZIONE SECONDO GRADO write(*,*) 'Calcolo radici di equazioni di secondo grado' write(*,*) '================================' write(*,*) 'Inserisci i coefficienti a,b,c cliccando su invio' read(*,*) , a,b,c write(*,*) '================================' C ============================= delta=b**2-4*a*c C ============================= C Situazione in cui delta >0 if (delta.gt.0) then x1=(-b-sqrt(delta))/2*a x2=(-b+sqrt(delta))/2*a write(*,*) , 'Ci sono due soluzioni reali distinte' write(*,*) , 'x1=",x1 write(*,*) , "x2=",x2 'endif' C Situazione in cui delta=0 if (delta.eq.0) then x=(-b)/2*a write(*,*) , 'Ci sono due soluzioni reali coincidenti' write(*,*) , 'x12=' , x endif C Situazione in cui delta<0 if (delta.lt.0) then write(*,*) , 'Non ci sono soluzioni reali' endif stop end to:
per wiki corso progettazione assistita (esercitazione 3) vedi appunti PA Buon divertimento! Lezione Laboratorio del 18.03.13 seconda parte Introduzione al Fortran Changed lines 3-4 from:
Si vuole scrivere e commentare in linguaggio Fortran77 un programma in grado di risolvere equazioni di secondo grado. to:
Si vuole scrivere e commentare in linguaggio Fortran77 un programma in grado di risolvere equazioni di secondo grado.\\ July 15, 2013, at 02:02 PM EST
by - Fortran: equazioni secondo grado
Changed lines 1-16 from:
Welcome to PmWiki! A local copy of PmWiki's documentation has been installed along with the software, and is available via the documentation index. To continue setting up PmWiki, see initial setup tasks. The basic editing page describes how to create pages in PmWiki. You can practice editing in the wiki sandbox. More information about PmWiki is available from http://www.pmwiki.org. per materiale tesi saldature vedi saldature to:
FORTRAN: soluzione di equazioni di secondo gradoSi vuole scrivere e commentare in linguaggio Fortran77 un programma in grado di risolvere equazioni di secondo grado. Un'equazione del secondo grado si trova scritta nella forma ax2 + bx + c = 0 Changed lines 8-22 from:
per wiki corso progettazione assistita (esercitazione 3) vedi appunti PA Buon divertimento! Lezione Laboratorio del 18.03.13 seconda parte Introduzione al Fortran to:
C Chiamata del programma e resa estetica program RADICI EQUAZIONE SECONDO GRADO write(*,*) 'Calcolo radici di equazioni di secondo grado' write(*,*) '================================' write(*,*) 'Inserisci i coefficienti a,b,c cliccando su invio' read(*,*) , a,b,c write(*,*) '================================' C ============================= delta=b**2-4*a*c C ============================= C Situazione in cui delta >0 if (delta.gt.0) then x1=(-b-sqrt(delta))/2*a x2=(-b+sqrt(delta))/2*a write(*,*) , 'Ci sono due soluzioni reali distinte' write(*,*) , 'x1=",x1 write(*,*) , "x2=",x2 'endif' C Situazione in cui delta=0 if (delta.eq.0) then x=(-b)/2*a write(*,*) , 'Ci sono due soluzioni reali coincidenti' write(*,*) , 'x12=' , x endif C Situazione in cui delta<0 if (delta.lt.0) then write(*,*) , 'Non ci sono soluzioni reali' endif stop end Deleted lines 30-178:
INTRODUZIONE AL MARC/MENTAT - parte seconda
(Lezione dell'11 aprile 2013)
Si parte dai risultati ottenuti dalla scorsa lezione aprendo il file riguardante il tubo in pressione del tipo ".t16" E' importante evidenziare come sia possibile mediare la scala delle bande; infatti se si mediano i triangoli si sottostimano le tensioni circonferenziali, invece se si visualizzano le tensioni nei singoli elementi si effettua una sovrastima.
SCALAR PLOT> SETTINGS > EXTRAPOLATION > NODAL AVERAGING > ON(1° CASO), OFF(2° caso) In tal caso risulta conveniente utilizzare il sistema di riferimento cilindrico: Il Marc permette anche di creare dei grafici relativi a delle grandezze tensionali di studio: Il grafico viene definito nella seguente maniera:
PATH PLOT>ADD CURVE>ARC LENGTH(assex)>COMPONENT 22 OF STRESS(asse y)>FIT(visualizzazione) Fetta di Tubo
Dopo aver fatto ciò si vuole ripartire con il calcolo FEM del tubo in pressione, però considerando il suo più piccolo elemento: Quindi si ricrea tutto nel modo seguente: Per evitare che l'orientazione di ogni elemento sia errato: Come si è soliti si continua con: pari ad 1 > ELEMENTS ADD>ALL EXIST 2)MATERIAL PROPERTIES>NEW>STANDARD> lo chiamo "acciaio"> GENERAL> MASS DENSITY(7.8e-0.9)>STRUCTURAL> YM=210000 & PR=0.3 3)BOUNDARY CONDITION>NEW>STRUCTURAL>EDGE LOAD> NAME:"pressione">PROPERTIES>PRESSURE=10 MPa>EDGE ADD>ALL SELECTED BOUNDARY CONDITION>NEW>STRUCTURAL>FIXED DISPLACEMENT>NEMA:"simmetria">PROPERTIES>Y=0 Si pongono le coordinate cilindriche: Attach:fettaditubosimmetriacyl 4)JOBS>NEW>STRUCTURAL>PROPERTIES>ANALYSIS DIMENSION>PLANE STRESS>JOB RESULTS>STRESS & EQ. VON MISES STRESS CHECK>RUN>SUBMIT(1) e si controlla di ottenere come risultato il numero 3004 indicante che la matrice di rigidezza della struttura è non singolare, altrimenti in presenza di altri numeri vi sarebbe singolarità con problemi di fondo a monte. Changed line 46 from:
scalar plot > settings > extrapolation > nodal averaging > on/off. to:
Changed lines 44-45 from:
SCALAR>VON MISES STRESS, ma anche SCALAR>COMPONENT 11 OF STRESS to:
SCALAR>VON MISES STRESS, ma anche SCALAR>COMPONENT 11 OF STRESS. scalar plot > settings > extrapolation > nodal averaging > on/off. Added lines 54-60:
E' importante evidenziare come sia possibile mediare la scala delle bande; infatti se si mediano i triangoli si sottostimano le tensioni circonferenziali, invece se si visualizzano le tensioni nei singoli elementi si effettua una sovrastima.
SCALAR PLOT> SETTINGS > EXTRAPOLATION > NODAL AVERAGING > ON(1° CASO), OFF(2° caso) Added lines 67-68:
Deleted line 179:
Added lines 1-24:
Welcome to PmWiki! A local copy of PmWiki's documentation has been installed along with the software, and is available via the documentation index. To continue setting up PmWiki, see initial setup tasks. The basic editing page describes how to create pages in PmWiki. You can practice editing in the wiki sandbox. More information about PmWiki is available from http://www.pmwiki.org. per materiale tesi saldature vedi saldature per wiki corso progettazione assistita (esercitazione 3) vedi appunti PA Buon divertimento! Lezione Laboratorio del 18.03.13 seconda parte Introduzione al Fortran Changed lines 132-136 from:
Si ottiene così il risultato seguente, ponendo come SCALAR>VON MISES STRESS to:
Si ottiene così il risultato seguente, ponendo come SCALAR>VON MISES STRESS e cliccando anche su CONTOUR BANDS: Changed lines 127-128 from:
to:
4)JOBS>NEW>STRUCTURAL>PROPERTIES>ANALYSIS DIMENSION>PLANE STRESS>JOB RESULTS>STRESS & EQ. VON MISES STRESS Changed lines 130-132 from:
to:
CHECK>RUN>SUBMIT(1) e si controlla di ottenere come risultato il numero 3004 indicante che la matrice di rigidezza della struttura è non singolare, altrimenti in presenza di altri numeri vi sarebbe singolarità con problemi di fondo a monte. Changed lines 123-127 from:
to:
Changed lines 101-103 from:
3)BOUNDARY CONDITIONS>NEW>STRUCTURAL>EDGE LOAD> NAME:"pressione">PROPERTIES>PRESSURE=10 MPa>EDGE ADD>ALL SELECTED to:
3)BOUNDARY CONDITION>NEW>STRUCTURAL>EDGE LOAD> NAME:"pressione">PROPERTIES>PRESSURE=10 MPa>EDGE ADD>ALL SELECTED Changed lines 111-113 from:
BOUNDARY CONDITIONS>NEW>STRUCTURAL>FIXED DISPLACEMENT>NEMA:"simmetria">PROPERTIES>Y=0 to:
BOUNDARY CONDITION>NEW>STRUCTURAL>FIXED DISPLACEMENT>NEMA:"simmetria">PROPERTIES>Y=0 Changed lines 118-123 from:
to:
Si pongono le coordinate cilindriche: Changed lines 114-118 from:
to:
Changed lines 111-114 from:
to:
BOUNDARY CONDITIONS>NEW>STRUCTURAL>FIXED DISPLACEMENT>NEMA:"simmetria">PROPERTIES>Y=0 Changed lines 104-106 from:
Attached:fettaditubopressione to:
Changed lines 101-106 from:
to:
3)BOUNDARY CONDITIONS>NEW>STRUCTURAL>EDGE LOAD> NAME:"pressione">PROPERTIES>PRESSURE=10 MPa>EDGE ADD>ALL SELECTED Attached:fettaditubopressione Changed lines 95-101 from:
to:
Changed lines 90-95 from:
to:
2)MATERIAL PROPERTIES>NEW>STANDARD> lo chiamo "acciaio"> GENERAL> MASS DENSITY(7.8e-0.9)>STRUCTURAL> YM=210000 & PR=0.3 Changed line 80 from:
1)GEOMETRIC PROPERTIES>NEW>STRUCTURAL>PLANAR>PLANE STRESS e lo rinomino "psterss_1mm" controllando che in THIKNESS lo spessore sia to:
1)GEOMETRIC PROPERTIES>NEW>STRUCTURAL>PLANAR>PLANE STRESS e lo rinomino "psterss_1mm" controllando che in THICKNESS lo spessore sia Changed lines 82-87 from:
pari ad 1 > ELEMENTS ADD>ALL EXIST to:
pari ad 1 > ELEMENTS ADD>ALL EXIST Changed line 82 from:
pari ad 1> ELEMENTS ADD>ALL EXIST to:
pari ad 1 > ELEMENTS ADD>ALL EXIST Changed lines 78-82 from:
to:
Come si è soliti si continua con: pari ad 1> ELEMENTS ADD>ALL EXIST Changed lines 71-73 from:
MESH GENERATION>SWEEP>NODES>ALL EXIST CHECK>UPSIDE-DOWN to:
MESH GENERATION>SWEEP>NODES>ALL EXIST Added lines 68-75:
Per evitare che l'orientazione di ogni elemento sia errato: CHECK>UPSIDE-DOWN FLIP ELEMTS>ALL EXIST facendo attenzione ad ottenere 0 come risultato. Added lines 63-64:
Changed lines 51-62 from:
Dopo aver fatto ciò si vuole ripartire con il calcolo FEM del tubo in pressione, però considerando il suo più piccolo elemento: to:
Dopo aver fatto ciò si vuole ripartire con il calcolo FEM del tubo in pressione, però considerando il suo più piccolo elemento: Quindi si ricrea tutto nel modo seguente: Added lines 48-51:
Fetta di Tubo
Dopo aver fatto ciò si vuole ripartire con il calcolo FEM del tubo in pressione, però considerando il suo più piccolo elemento: Added line 45:
Changed lines 42-46 from:
2) to:
2) COMPONENT 12 OF STRESS Changed lines 41-42 from:
to:
1) COMPONENT 11 OF STRESS Added lines 37-41:
Il grafico viene definito nella seguente maniera:
PATH PLOT>ADD CURVE>ARC LENGTH(assex)>COMPONENT 22 OF STRESS(asse y)>FIT(visualizzazione) Changed lines 33-37 from:
Si inseriscono così le coordinate (10,0,0), (20,0,0) e 40 divisioni to:
Si inseriscono così le coordinate (10,0,0), (20,0,0) e 40 divisioni definiti come punti di campionamento.
Dopo aver fatto questo, il modello scompare poiché si lascia lo spazio per la creazione del grafico. E' possibile rivedere il Added lines 28-33:
Il Marc permette anche di creare dei grafici relativi a delle grandezze tensionali di studio: Added lines 28-29:
Changed lines 14-16 from:
to:
Changed line 20 from:
to:
Changed line 14 from:
to:
Changed line 14 from:
to:
Changed line 14 from:
to:
Changed line 18 from:
to:
Changed lines 12-13 from:
SCALAR>VON MISES STRESS to:
SCALAR>VON MISES STRESS, ma anche SCALAR>COMPONENT 11 OF STRESS Deleted line 21:
saerhg Changed lines 20-22 from:
SCALAR PLOT>SETTINGS>RESULT COORDINATE SYSTEM, ponendo l'origine in (0,0,0) ed attivandolo attraverso la voce ACTIVE.\\ to:
SCALAR PLOT>SETTINGS>RESULT COORDINATE SYSTEM, ponendo l'origine in (0,0,0) ed attivandolo attraverso la voce ACTIVE. saerhg Changed line 20 from:
SCALAR PLOT>SETTINGS>RESULT COORDINATE SYSTEM, ponendo l'origine in (0,0,0)ed attivandolo attraverso la voce ACTIVE.\\ to:
SCALAR PLOT>SETTINGS>RESULT COORDINATE SYSTEM, ponendo l'origine in (0,0,0) ed attivandolo attraverso la voce ACTIVE.\\ Added line 17:
Added lines 18-19:
In tal caso risulta conveniente utilizzare il sistema di riferimento cilindrico: Changed lines 14-16 from:
Attach: .t16 on vm.jpeg to:
Changed lines 14-16 from:
Attach:.t16 on vm.jpeg to:
Attach: .t16 on vm.jpeg Changed lines 14-16 from:
Attach:.t16 vm on.jpg to:
Attach:.t16 on vm.jpeg Changed lines 14-16 from:
Attach:.t16 vm on to:
Attach:.t16 vm on.jpg Changed lines 14-16 from:
Attach:.t16 on vm.ext to:
Attach:.t16 vm on Changed lines 14-16 from:
Attach:.t16 on vm.jpg to:
Attach:.t16 on vm.ext Changed lines 14-16 from:
Attach:.t16 on vm to:
Attach:.t16 on vm.jpg Changed lines 11-12 from:
CONTOUR BANDS per visualizzare attraverso le diverse colorazioni le tensioni generate nel tubo;
|