This is a collection of Tcl/Tk tools I wrote for solving a number of simple mechanics problems. I used to do this while studying a subject to get a hold of the process and search for optimizations and relationships between the different parameters.
This programs are outdated and probably don't work as they used to due to updates in the programming language or lack of updates and proper care.
They can be run from the command line with
$ wish $PROGRAM
where $PROGRAM is the name of the program, of course.
The main purpose for each is:
- tkmohr takes normal and shear stress values for 3 faces of a diferential cube and graphs the Mohr's Circle for this state of stress, also calculates the location of the principal stress plane and the values of the principal stress on each face.
- areas.tcl calculates the inertial and angular momentum and gravity axis of a composite transversal area and also can calculate the compression or tension in that point given the stress values on that surface. This is a tool for beam analysis
- fluidosentuberias.tcl calculates the equivalent height for enery loses due to line properties (accesories, materials, diameters) in closed duct flow
- escenarios-descuentos.tcl simulates scenarios for different sales volume with given costs. It calculates the net profit for each sales scenario so they can be compared.
- tktext is a simple text editor that doesn't even work, but I included it anyway for sentimental purposes
- tkwardial was my first Tcl/Tk program. It is a war dialer for linux and other unices. It can scan numbers sequentially, randomly inside a range, or repeatedly dial the same number for... testing purposes.
Please note that I am not responsible for any problems that the use of these programs might cause to you or any other person. They have been published for informational purposes only.
Attachments:
