Samdreamth

Και μερικά πιο πρόσφατα add-ins και VBA κώδικες: 1. Μέτρηση blocks (AutoCAD add-in) και εξαγωγή αποτελεσμάτων σε Excel: http://www.myengineeringworld.net/2014/02/counting-blocks-in-autocad-vba-add-in.html 2. Σχεδιασμός κύκλων στο AutoCAD χρησιμοποιώντας δεδομένα από το Excel: http://www.myengineeringworld.net/2014/03/drawing-circles-autocad-excel-vba.html 3. Προσθήκη κειμένου στο AutoCAD από το Excel: http://www.myengineeringworld.net/2014/03/add-text-in-autocad-using-excel-vba.html Ελπίζω να σας χρησιμεύσουν κάπου...

Η λύση είναι πολύ απλή: If Abs(QI - Q) < 0.01 Then Exit For Else: ytrap = ytrap + 0.01 End If Πάνε το Exit For στην αμέσως από κάτω γραμμή: If Abs(QI - Q) < 0.01 Then Exit For Else ytrap = ytrap + 0.01 End If Έτσι θα δουλέψει...

Αν και ο gvarth ήδη σου απάντησε στα περισσότερα: 1. Η εύκολη λύση είναι να κάνεις -> format as table (βρίσκεται στην home tab). 2. Είναι θέμα format του κελιού. Αν σε ένα κελί βάλεις την σημερινή ημερομηνία (10/2/2014) και επιλέξεις custom format, ορίσεις ηηηη (ή dddd) στο type, θα σου εμφανίσει στο κελί Δευτέρα. 3. Για αυτόματη δημιουργία "πίνακα περιεχομένου" σε ένα βιβλίο εργασίας μπορείς να εγκαταστήσεις το παρακάτω free add-in και με το πάτημα ενός κουμπιού θα δημιουργείται αυτόματα: http://www.myengineeringworld.net/2013/12/Excel-VBA-workbook-index-add-in.html 4. Επιλέγεις το κελί -> δεξί κλικ, Format cells -> καρτέλα Number -> κατηγορία Number -> βάζεις Decimal places 0.

Αν κατάλαβα καλά το πρόβλημα σου, θα πρότεινα: Ή να επαναλάβεις την ίδια διαδικασία με τις νέες, smoothed τιμές, ή πιο απλά αντί για 15 μπορείς να πάρεις πχ μόνο τις 5 πρώτες τιμές που υπολόγισες αρχικά. Όλα αυτά εξαρτώνται από την τιμή με την οποία κάνεις smooth, δηλ. την τιμή που βάζεις μέσα στο if (δες στο 3ο φύλλο του αρχείου που ανέβασα χθες).

Συνάδελφε, Αν εννοείς, να φτιάξεις τα διαγράμματα χωρίς πολύ «θόρυβο», τότε αυτό γίνεται πολύ εύκολα με μια εντολή if. Απλά προκαθορίζεις το όριο και από εκεί και κάτω θεωρείς τις των u, u’ και u” = 0. Δες λίγο το τρίτο φύλλο (Removing Noise) στο επισυναπτόμενο αρχείο. Αυτό θες? YPODEIGMA 2.rar

Συνάδελφε, Δες λίγο το επισυναπτόμενο αρχείο. Κάνει αυτό που θες? Όπως θα δεις στο φύλλο χρησιμοποιώ array formulas, δηλαδή συναρτήσεις που εφαρμόζονται με συνδυασμό πλήκτρων CTRL + SHIFT + ENTER. Νομίζω ότι το πρόβλημά σου λύνεται χωρίς να γράψω κώδικα οπότε δες το και πες μου... YPODEIGMA.xls

Συνάδελφε, μάλλον κι εγώ δεν κατάλαβα τι ακριβώς θέλεις να κάνεις. Αυτό που έγραψα πριν είναι ένας προσεγγιστικός τρόπος να βρεις την 1η παράγωγο, χρησιμοποιώντας την διαφορά 2 τιμών (ΔV/Δt = dV/dt). Αν θέλεις να βρεις πχ την 3η μεγαλύτερη ή την 3η μικρότερη τιμή σε ένα πλήθος τιμών μπορείς να χρησιμοποιήσεις τις συναρτήσεις LARGE και SMALL αντίστοιχα. Γενικότερα θα βοηθούσε αν μπορούσες να ανεβάσεις ένα παράδειγμα - έστω και μη εικονικές τιμές - ώστε να δούμε καλύτερα το πρόβλημά σου και να σε βοηθήσουμε. Προσωπικά, δεν είμαι πολιτικός μηχανικός οπότε από σεισμούς κλπ δεν... Αν όμως προσδιοριστεί το πρόβλημά σου σε Excel κάτι μπορούμε να κάνουμε...

Bullt-in συνάρτηση δε νομίζω ότι υπάρχει. Για την 1η παράγωγο μπορείς να πάρεις το dv/dt ως διαφορά δύο συνεχόμενων τιμών δηλ. (V2 - V1)/(t2 - t1) και να δεις που τείνει στο 0. Φυσικά μπορεί να μην βγαίνει 0 οπότε να ορίσεις εσύ ένα όριο (πχ όταν το dv/dt είναι 0,1, βρες τα μέγιστα αυτών των τιμών).

Για δες λίγο το φύλλο conditional formatting στο επισυναπτόμενο αρχείο, νομίζω ότι κάνει περίπου αυτό που θες. Σε κάθε περίπτωση, παίζοντας λίγο με τα (περίπλοκα) κριτήρια θα βρεις την λύση στο πρόβλημά σου. Η δυσκολία έγκειται στο πώς θα χτίσεις τα κριτήρια σου με συναρτήσεις, πχ θα δεις ότι εδώ χρησιμοποιώ πολλαπλά countifs μέσα σε μια or... Conditional Formatting.xlsx

Στα παρακάτω links θα βρείτε μικρά προγραμματάκια, add-ins, καθώς και κώδικες VBA για AutoCAD & Excel: Υπολογισμός μήκους γραμμών ανά layer & output σε Excel. http://www.myengineeringworld.net/2012/03/autocad-calculate-total-length-of-lines.html http://www.myengineeringworld.net/2012/06/autocad-total-length-of-lines-per-layer.html Υπολογισμός του συνολικού μήκους των polylines και του εμβαδού αυτών. http://www.myengineeringworld.net/2013/05/autocad-vba-add-in-polylines-length-area.html Σχεδιασμός polyline και 3D polyline με συντεταγμένες από το Excel. http://www.myengineeringworld.net/2013/04/draw-polyline-in-autocad-using-excel-vba.html http://www.myengineeringworld.net/2013/11/draw-3d-polyline-pipe--autocad-excel-vba.html Αντιγραφή περιοχής/πίνακα από το Excel στο AutoCAD. http://www.myengineeringworld.net/p/excel-range-to-autocad-table-add-in.html Ελπίζω να σας χρησιμεύσουν κάπου...

Βασικά χωρίς να θέλω να φανώ σαν εκ των υστέρων προφήτης αυτό το μέτρο επιβεβαιώνει την αρχική μου εκτίμηση προ 5ετίας. Τα Φ/Β αποδείχτηκαν μια τεράστια φούσκα, σαν το χρηματιστήριο στα τέλη του 90. Είχα το κακό προαίσθημα από την πρώτη στιγμή και ηθελημένα προσπάθησα να απέχω από όλο αυτό το πανηγυράκι που είχε στηθεί τα τελευταία χρόνια. Ελπίζω τουλάχιστον όσοι επενδύσανε να προλάβουν να κάνουν απόσβεση τα λεφτά τους γιατί από κέρδος μάλλον χλωμό το βλέπω…

Η διόγκωση του ελλείμματος φαίνεται ότι δεν αφήνει περιθώρια για απαλλαγή ή ελάφρυνση των νοικοκυριών από τη φορολογία. Στην έκτακτη εισφορά και τα οικιακά φωτοβολταϊκά. Τι προτείνει το ΥΠΕΚΑ Έκτακτη εισφορά και για τα φωτοβολταϊκά στις στέγες σχεδιάζει το ΥΠΕΚΑ. Όπως αναφέρει η "Καθημερινή", σε πρώτη φάση εξετάζεται εισφορά της τάξης του 10 - 15% (με δυνατότητα εξαίρεσης για όσους διαθέτουν χαμηλό εισόδημα), ώστε να ενισχυθεί ο ΛΑΓΗΕ, που παρουσιάζει σοβαρά ελλείμματα, με 30 - 35 εκατ. ευρώ ετησίως Ο συνολικός τζίρος από φωτοβολταϊκά στις στέγες ανέρχεται σε περίπου 300 εκατ. ευρώ ετησίως και δεν υπόκειται σε φορολογία. Η υψηλή εγγυημένη τιμή σε συνδυασμό με το χαμηλό κόστος εγκατάστασης προσέλκυσε πλήθος οικιακών καταναλωτών, με αποτέλεσμα μέχρι το τέλος του 2012 η συνολική ισχύς των φωτοβολταϊκών στις στέγες να φτάσει τα 297,8 MW. Τα οικιακά φωτοβολταϊκά είχαν εξαιρεθεί από την έκτακτη εισφορά, ωστόσο η διόγκωση του ελλείμματος υποχρεώνει την κυβέρνηση να επεκτείνει το μέτρο και σε αυτή την κατηγορία. Σημειώνεται ότι ήδη δόθηκε σε δημόσια διαβούλευση το νομοσχέδιο για τις ΑΠΕ, το οποίο περιλαμβάνει σειρά μέτρων για το κλείσιμο της μαύρης τρύπας. Οι νέες ρυθμίσεις προβλέπουν αύξηση της έκτακτης εισφοράς από το εύρος του 25% - 35% στο εύρος του 37% - 40% για φωτοβολταϊκούς σταθμούς, αλλά και πάγωμα της αγοράς φωτοβολταϊκών μέχρι το τέλος του 2013. Πηγή: http://news247.gr/eidiseis/oikonomia/oikonomika/erxetai_tsoyxtero_xaratsi_gia_fwtovoltaika_se_steges.2223743.html Click here to view the είδηση