Circulo de Mohr 2D

Description:In two dimensions, determines the maximum and minimum tension, from two measurements of the normal and tangential tension on two right angles.
Description (2):En dos dimensiones, permite determinar la tensión máxima y mínima, a partir de dos mediciones de la tensión normal y tangencial sobre dos ángulos que forman 90º.
Filename:mohr2d.zip
ID:7738
Current version:1.1
Author:Hebert Poma Vidal: https://www.facebook.com/HP-PRIME-programar-HWLabs-1702068820036255/
Downloaded file size:8,856 bytes
Size on calculator:10 KB
Platforms:Prime  
User rating:8/10 with 1 vote (you must be logged in to vote)
Primary category:Science
Languages:ESP  
File date:2017/02/10 21:28:33
Source code:Not included
Download count:2,894
Version history:2017/02/10: Added to site
Archive contents:
  Length      Date    Time    Name
---------  ---------- -----   ----
        0  2017-02-08 23:47   circulo de mohr 2D .hpappdir/
     1344  2016-09-16 20:40   circulo de mohr 2D .hpappdir/circulo de mohr 2D .hpapp
        2  2016-09-16 21:11   circulo de mohr 2D .hpappdir/circulo de mohr 2D .hpappnote
    35964  2016-09-16 21:11   circulo de mohr 2D .hpappdir/circulo de mohr 2D .hpappprgm
     2660  2016-09-16 20:31   circulo de mohr 2D .hpappdir/icon.png
     1140  2016-09-16 21:14   leeme.txt
---------                     -------
    41110                     6 files
Screenshot:Screenshot
User comments:Brad Woollon
2017-04-28 11:58:34
I ran into issues using the following values:
σx=40
σy=-60
τxy=-30

My angle reading was -1774.09 Degrees for 2θ with these values whereas it should be 30.963 Degrees.

I solved this by replacing lines 64-68 which had:
ANG1:=90*3.14159265359/(180);
ELSE
ANG1:=atan(2*(C)/(A-B));
END;
ANG:=(ANG1)*180/3.14159265359;

To:
ANG1:=90*(3.14159265359/180);
ELSE
ANG:=atan(2*(C)/(B-A));
END;
ANG1:=(ANG)*(3.14159265359/180);

With that code, I now get the correct value with all the values I test it with.

I am not sure if something happened when I downloaded the code that made it incorrect, or if I managed to find a mistake.

I hope this helps, and thank you for the very useful program!

You must be logged in to add your own comment.


Part of the HP Calculator Archive,
Copyright 1997-2019 Eric Rechlin.