|
Όγκος υγρού σε οριζόντια κυλινδρική δεξαμενή 1 Συνημμένο(α) Καλημέρα στην παρέα Στο αρχείο, που επισυνάπτεται, υπολογίζεται ο όγκος του υγρού (πετρελαίου), συναρτήσει του ύψους, σε μία οριζόντια κυλινδρική δεξαμενή με πλευρικά πέρατα επίπεδα ή σφαιρικά. Στο πρώτο φύλλο (Help) παρουσιάζεται η θεωρία στην οποία βασίζεται ο υπολογισμός. Όπως εξηγείται, για τον υπολογισμό του όγκου στα σφαιρικά τμήματα, χρησιμοποιείται μία προσεγγιστική μέθοδος που υλοποιήθηκε με VBA. Αν και η εφαρμογή δημιουργήθηκε για να βοηθήσει ένα φίλο στην παραλαβή πετρελαίου, θεώρησα σκόπιμο να την παρουσιάσω στο φόρουμ:
Φιλικά/Γιώργος |
Καλημέρα Γιώργο μου! Σε 3 κελιά ορίζω τα ονόματα:
Με τον παρακάτω τύπο νομίζω ότι φτάνω σε σωστό αποτέλεσμα: Κώδικας: =IF(H_Cyl=2*R_Cyl;PI()*R_Cyl^2*L_Cyl;IF(AND(H_Cyl<2*R_Cyl;H_Cyl>R_Cyl);PI()*R_Cyl^2*L_Cyl-(2*R_Cyl-H_Cyl)/(Δες το αν θέλεις κι εσύ γιατί λόγω φόρτου εργασίας δεν μπόρεσα να το τεστάρω αρκετά. Τα λέμε.. Τάσος |
Καλημέρα στην παρέα Τάσο μου, δοκίμασα τον τύπο με δεδομένα: R_Cyl=1, L_Cyl=3 και H_Cyl=1 και έδωσε αποτέλεσμα: 4,75. Επειδή η διατομή του υγρού (μ’ αυτά τα δεδομένα) είναι ημικύκλιο με μοναδιαία ακτίνα, ο σωστός όγκος είναι: (Pi()/2)*3 = 4,71238898 ≠ 4,75. Φιλικά/Γιώργος |
Καλησπέρα σας, φίλε Γιώργο οι τύποι που χρησιμοποιείς για τον υπολογισμό του κυλίνδρου για μένα είναι οι ΣΩΣΤΟΙ σε αντίθεση με τον Τάσο που μπερδεύτηκε. Τώρα για τα σφαιρικά πλευρικά χρειάζεται σκέψη. γιατί μπορεί να μην είναι απολύτως σφαιρικά αλλά ελλειψοειδή, και εκεί τα πράγματα είναι πολύ δύσκολα . Θα το δω μόλις μπορέσω και θα σου πω αν βρω κάτι. Θανάσης. ΥΓ. Μπράβο πολύ ενδιαφέρον το θέμα σου. |
1 Συνημμένο(α) Καλημέρα φίλοι μου! Πραγματικά μπερδεύτηκα και έκανα τα εύκολα δύσκολα!:pchit: Αναθεώρησα λοιπόν και κατέληξα στο εξής: Ονόματα κελιών:
Κώδικας: =IF(AND(h_Cyl<=R_Cyl;h_Cyl>0);POWER(R_Cyl;2)*L_Cyl*(ACOS((R_Cyl-h_Cyl)/R_Cyl)-Φιλικά Τάσος |
1 Συνημμένο(α) Καλησπέρα στην παρέα Φίλε Τάσο, δοκίμασα τον τύπο που δίνει τον όγκο του υγρού στον κύλινδρο και διαπίστωσα τα εξής:
Φίλε Θανάση σ’ ευχαριστώ και για τα καλά λόγια και τον έλεγχο των τύπων. Περιμένω, όταν βρεθεί χρόνος και έμνευση, τις απόψεις σας και για τον όγκο στα σφαιρικά τμήματα. Γιώργος |
Καλησπέρα σε όλους! Γιώργο μου σ ευχαριστώ για τη διόρθωση! Είναι τέλειο! Νάσαι καλά και να μα βάζεις τακτικά τέτοιες... σπαζοκεφαλιές! Φιλικά Τάσος |
1 Συνημμένο(α) Καλημέρα καλησπέρα σας. Στο συνημμένο και η δική μου προσέγγιση η οποία όσον αφορά την δεξαμενή με επίπεδα πλαϊνά είναι ίδια με τα δικά σας. Δείτε το και σχολιάστε το. Θανάσης |
1 Συνημμένο(α) Καλησπέρα και πάλι! Δείτε στο συνημμένο 2 προσεγγίσεις ( VBA και Excel) για την εύρεση όγκου σε οριζόντια κυλινδρική δεξαμενή με επίπεδες ή ελλειψοειδείς βάσεις. Τα αποτελέσματα που επιστρέφουν, συμφωνούν μ αυτά της ιστοσελίδας: Horizontal Tank - Fluid Volume Φιλικά Τάσος |
Φίλε Θανάση Καλησπέρα Σχετικά με την εφαρμογή σου: 1). Βρίσκω καταπληκτικό το περιβάλλον εργασίας (σχέδια, επεξηγήσεις, κλπ). 2). Οι τύποι που χρησιμοποιείς είναι σωστοί. 3). Ειδικά ο τύπος για τον προσδιορισμό του όγκου του σφαιρικού τμήματος και οι διαφορές που έδινε σε σχέση με την προσεγγιστική μέθοδο, με βοήθησαν να ανακαλύψω ότι στη συνάρτηση mesoL(R_Cyl, h_Cyl, P_Cyl) στη θέση της παραμέτρου h_Cyl περνούσε το L_Cyl. Έκανα τη σχετική διόρθωση και αντικατέστησα το συνημμένο στο αρχικό μήνυμά μου. 4). Για την περίπτωση Rs>Rk θεώρησε ως δεδομένο ότι τα πλευρικά πέρατα της δεξαμενής είναι απολύτως σφαιρικά (χωρίς καμία προσαρμογή) ακτίνας Rs=(Rk^2+P^2)/(2P) και το κέντρο βρίσκεται στον άξονα του κυλίνδρου. Προσπάθησα χρησιμοποιώντας και ολοκληρώματα (ότι θυμόμουνα) να βρω κάποιο τύπο που να δίνει τον ακριβή όγκο στα σφαιρικά τμήματα, αλλά δεν τα κατάφερα και έτσι κατέφυγα στην προσεγγιστική μέθοδο. Σ’ ευχαριστώ για το χρόνο που διέθεσες και τη βοήθεια στην αποσφαλμάτωση των υπολογισμών. Γιώργος ΥΓ Φίλε Τάσο μόλις δω την εφαρμογή σου θα επανέλθω |
Καλημέρα στην παρέα Φίλε Τάσο είδα την εφαρμογή και τη δοκίμασα. Λειτουργεί άψογα. Ο δικτυακός τόπος που μας προτείνεις και ο τύπος που χρησιμοποιείς για τον προσδιορισμό του όγκου στα ελλειψοειδή τρήματα της δεξαμενής, έδωσαν απάντηση στα περισσότερα ερωτήματα που είχα. Ευχαριστώ. Συνοψίζοντας τη μέχρι τώρα συζήτηση, για τον προσδιορισμό του όγκου μιας δεξαμενής η οποία ορίζεται από μία οριζόντια κυλινδρική επιφάνεια που κλείνει από δύο επίπεδα ή δύο σφαιρικές ή γενικότερα ελλειψοειδείς επιφάνειες, έχουμε: 1). Οι ελλειψοειδείς επιφάνειες μπορεί να εφάπτονται (όπως στο σχήμα του διαδυκτιακού τόπου) στην κυλινδρική επιφάνεια. Για την περίπτωση αυτή, που μάλλον είναι και η πλέον συνήθης, ο όγκος στα ελλειψοειδή τμήματα υπολογίζεται από τον τύπο: Vs=PI*a*h^2 * (1-(h/(3R))). Όταν a=R=D/2, οι ελλειψοειδείς επιφάνειες γίνονται ημισφαίρια ακτίνας R και ο τύπος παίρνει τη μορφή: Vs=(1/3)*PI*h^2*(3R –h), δηλαδή ταυτίζεται με τον τύπο που χρησιμοποίησε ο Θανάσης. Καλύπτει συνεπώς και την ειδική περίπτωση (ημισφαίρια) που εξέτασε ο Θανάσης. 2). Οι επιφάνειες είναι σφαιρικές με ακτίνα Rs>R=D/2, δηλαδή τέμνονται με την κυλινδρική επιφάνεια. Για την περίπτωση αυτή, που ήταν το αρχικό ζητούμενο, δεν έχει βρεθεί ακόμα κάποιος τύπος και συνεπώς ο μόνος τρόπος υπολογισμού παραμένει η προσεγγιστική μέθοδος. Γιώργος |
Λοιπόν Γιώργο ΕΔΩ θα βρεις ένα πολύ καλό άρθρο του καθηγητή D.Jones με όλους του τύπους για τον υπολογισμό όγκων σε δεξαμενές. 'Έχει δημοσιευθεί και στο περιοδικό "Chemical Processing" το 2002 - 2003. Νομίζω δίνει απάντηση σε όσα στοιχεία έλλειπαν. Δεν μένει παρά να τα εφαρμόσεις :victory: Τα λέμε. Θανάσης |
Καλημέρα Φίλε Θανάση, πραγματικά το άρθρο του καθηγητή D.Jones για τον υπολογισμό του όγκου των κυλινδρικών δεξαμενών, με καλύπτει πλήρως. Ευχαριστώ για την υπόξειξη. Γιώργος |
Μπράβο ωραίοι υπολογισμοί. |
Καλησπέρα Λευτέρη καλωσόρισες στην παρέα μας. Σ’ ευχαριστώ για το «μπράβο» και σου εύχομαι καλή χρονιά. Γιώργος |
Δεξαμενη με τύπους 1 Συνημμένο(α) Χαιρετώ την παρέα και Χρόνια Πολλά. επειδη πρέπει να φαίνονται και οι αρχάριοι, δείτε μια έκδοση με πράξεις σε κελιά (παλιά κατασκευή 2010?) πάντως την δουλειά της την κάνει ακόμα και σήμερα (επαλήθευση) γιατί δεν υπάρχει η βέργα δεξαμενής! Χρόνια Πολλά σε όλους. |
| Η ώρα είναι 23:44. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.