Erzeugen eine Gleitpunktzahl

heini0707 · 3. Mai 2015

Hi Jungs,

wie erzeugt ihr eine Gleitpunktzahl aus 32 Bit Input?

Ich hab da ein bisl was angefangen, will in BG_LOG laufen lassen, aber es wird riesig:

Code

1: !Es soll eine Kommazahl erzeugt werden;
   1: !Format Big Endian, Siemens;
   1: !Das erste Bit DI[201];
   1: R[151]=(201);
   1: !Bit 0-22 Mantisse;
   1: !Bit 23-30 Charakteristik;
   1: !Bit 31 Vorzeichen;
   1: !*****************************;
   1: !Exponent;
   1: !Entweder GI, oder so;
   1: !Anfang;
   1: R[153]=(0);
   1: !Exponent Bit0;
   1: R[152]=(R[151]+23);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+1);
   1: !Exponent Bit1;
   1: R[152]=(R[151]+24);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+2);
   1: !Exponent Bit2;
   1: R[152]=(R[151]+25);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+4);
   1: !Exponent Bit3;
   1: R[152]=(R[151]+26);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+8);
   1: !Exponent Bit4;
   1: R[152]=(R[151]+27);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+16);
   1: !Exponent Bit5;
   1: R[152]=(R[151]+28);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+32);
   1: !Exponent Bit6;
   1: R[152]=(R[151]+29);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+64);
   1: !Exponent Bit7;
   1: R[152]=(R[151]+30);
   1: IF(DI[R[152]]=ON),R[153]=(R[153]+128);
   1: !Bsp. 1000 0011=131;
   1: !Umwandeln in Binärstellen;
   1: R[153]=(R[153]-127);
   1: !Bsp. 131-127=4;
   1: !*****************************;
   1: !Vorkommazahl;
   1: !*****************************;
   1: !Mantisse mit 17 Bit-Auflösung;
   1: !Anfang;
   1: R[154]=(0);
   1: !Mantisse Bit0;
   1: R[152]=(R[151]+22-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=0),R[154]=(R[154]+1);
   1: !Mantisse Bit1;
   1: R[152]=(R[151]+21-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=1),R[154]=(R[154]+2);
   1: !Mantisse Bit2;
   1: R[152]=(R[151]+20-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=2),R[154]=(R[154]+4);
   1: !Mantisse Bit3;
   1: R[152]=(R[151]+19-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=3),R[154]=(R[154]+8);
   1: !Mantisse Bit4;
   1: R[152]=(R[151]+18-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=4),R[154]=(R[154]+16);
   1: !Mantisse Bit5;
   1: R[152]=(R[151]+17-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=5),R[154]=(R[154]+32);
   1: !Mantisse Bit6;
   1: R[152]=(R[151]+16-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=6),R[154]=(R[154]+64);
   1: !Mantisse Bit7;
   1: R[152]=(R[151]+15-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=7),R[154]=(R[154]+128);
   1: !Mantisse Bit8;
   1: R[152]=(R[151]+14-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=8),R[154]=(R[154]+256);
   1: !Mantisse Bit9;
   1: R[152]=(R[151]+13-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=9),R[154]=(R[154]+512);
   1: !Mantisse Bit10;
   1: R[152]=(R[151]+12-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=10),R[154]=(R[154]+1024);
   1: !Mantisse Bit11;
   1: R[152]=(R[151]+11-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=11),R[154]=(R[154]+2048);
   1: !Mantisse Bit12;
   1: R[152]=(R[151]+10-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=12),R[154]=(R[154]+4096);
   1: !Mantisse Bit13;
   1: R[152]=(R[151]+9-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=13),R[154]=(R[154]+8192);
   1: !Mantisse Bit14;
   1: R[152]=(R[151]+8-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=14),R[154]=(R[154]+16384);
   1: !Mantisse Bit15;
   1: R[152]=(R[151]+7-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=15),R[154]=(R[154]+32768);
   1: !Mantisse Bit16;
   1: R[152]=(R[151]+6-R[153]);
   1: IF(DI[R[152]]=ON AND R[153]>=16),R[154]=(R[154]+65536);
   1: !*****************************;
   1: !Nachkommazahl;
   1: !*****************************;
   1: ;
   1: ;
   1: ;
   1: ;

Alles anzeigen

Ist noch nicht fertig und nicht getestet. Auch die Zahl noch nicht inbegriffen.

Hab mir die Seite http://www.h-schmidt.net/FloatConverter/IEEE754de.html zur Hilfe gezogen

Eine Karel-Funktion ist mir auch nicht bekannt

Gruß heinrich

WolfHenk · 3. Mai 2015

schreib die 32 bit als string in ne datei (/RD/ZAHL.TXT) und lies sie real wieder aus....
Die funktionen str2int und str2real sowie real2str und int2str

heini0707 · 3. Mai 2015

Hallo Wolfram,

ich glaub da stimmt was nicht
18,4 enspricht binär: 0 10000011 00100110011001100110011
und was soll ich da als Text abspeichern?

heini0707 · 3. Mai 2015

Ach so, liegt vielleicht an meinem Input

Die Zahl soll über Profibus an Roboter übertragen werden.
32Bit, Bit0 = DI[201] - Bit31 = DI[232]

Siehe auch http://de.wikipedia.org/wiki/IEEE_754

WolfHenk · 3. Mai 2015

werden als 4 byte auf die Datei geschrieben und zwar als vier aufeinanderfolgende einzelne ascii-Zeichen (Dazu ggf als vier einzelbytes vom Bus lesen)
Dann wird das vier-Byte als als EIN Ascii gelesen und ASC2REAL aus der Datei in real gewandelt

heini0707 · 3. Mai 2015

Hi Wolfram,

gibt es eine bequemere Möglichkeit?
Ich möchte die Zahl ständig abfragen, mit Autoexequition-Funktion oder BG_LOG

WolfHenk · 3. Mai 2015

unbekannt.
aber so ne kleine karelroutine kannst du ja im hintergrund laufen lassen.

theanni · 4. Mai 2015

44: R[103] = GI[7] ;
45: IF R[103] <= 32767,JMP LBL[203] ;
46: R[103] = R[103] - 65536 ;
47: LBL[203:KorrGrf, positiv] ;
48: ;
49: R[103] = R[103] / xxx ;

Ich hab da mal was Vorbereitet.
So machen wir das, alerdings als Ganzzahl übergeben. Der Realwert in der SPS zB *1000 dann wandeln in eine Ganzzahl, so sind 3 Komastellen gerettet, je nachdem wie Genau man es brauch.
Der Wert XXX ist für den Multiplikator wie in der SPS.

heini0707 · 4. Mai 2015

Hi theani,

Danke für den Ansatz, genau so mach ich es auch wenn ich beide Teilnehmer beinflusen kann.
Hier habe ich mit einem Slave zu tun, der gibt mir einen Real-Wert mit 32 Bits raus.
D.h. komme damit nicht weiter.

heini0707 · 4. Mai 2015

So hab den heutigen Abend ein wenig genutzt,dabei ist folgendes rausgekommen:

Code

1:  !Es soll eine Kommazahl erzeugt werden;
   1:  !Format Big Endian, Siemens;
   1:  !Das erste Bit DI[233];
   1:  R[151]=(233);
   1:  !Bit 0-22 Mantisse;
   1:  !Bit 23-30 Exponent;
   1:  !Bit 31 Vorzeichen;
   1:  !*****************************;
   1:  !Exponent;
   1:  !Entweder GI, oder so;
   1:  !Anfang;
   1:  R[153]=(0);
   1:  !Exponent Bit0;
   1:  R[152]=(R[151]+23);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+1);
   1:  !Exponent Bit1;
   1:  R[152]=(R[151]+24);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+2);
   1:  !Exponent Bit2;
   1:  R[152]=(R[151]+25);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+4);
   1:  !Exponent Bit3;
   1:  R[152]=(R[151]+26);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+8);
   1:  !Exponent Bit4;
   1:  R[152]=(R[151]+27);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+16);
   1:  !Exponent Bit5;
   1:  R[152]=(R[151]+28);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+32);
   1:  !Exponent Bit6;
   1:  R[152]=(R[151]+29);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+64);
   1:  !Exponent Bit7;
   1:  R[152]=(R[151]+30);
   1:  IF(DI[R[152]]=ON),R[153]=(R[153]+128);
   1:  !Bsp. 1000 0011=131;
   1:  !Umwandeln in Binärstellen;
   1:  R[153]=(R[153]-127);
   1:  !Bsp. 131-127=4;
   1:  !*****************************;
   1:  !Vorkommazahl;
   1:  !*****************************;
   1:  !Mantisse mit 23 Bit-Auflösung;
   1:  !Anfang;
   1:  R[154]=(0);
   1:  !Fest-Zahl 0 ?;
   1:  IF(R[153]=(-127)),R[154]=(0);
   1:  IF(R[153]=(-127)),JMP LBL[1000];
   1:  !Fest-Zahl 1 ?;
   1:  IF(R[153]=0),R[154]=(1);
   1:  IF(R[153]=0),JMP LBL[1000];
   1:  !Mantisse Bit0;
   1:  R[152]=(R[151]+23-R[153]);
   1:  IF((DI[R[152]]=ON AND R[153]>=1) OR (R[153]=0)),R[154]=(R[154]+1);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit1;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=2) OR (R[153]=1)),R[154]=(R[154]+2);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit2;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=3) OR (R[153]=2)),R[154]=(R[154]+4);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit3;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=4) OR (R[153]=3)),R[154]=(R[154]+8);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit4;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=5) OR (R[153]=4)),R[154]=(R[154]+16);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit5;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=6) OR (R[153]=5)),R[154]=(R[154]+32);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit6;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=7) OR (R[153]=6)),R[154]=(R[154]+64);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit7;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=8) OR (R[153]=7)),R[154]=(R[154]+128);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit8;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=9) OR (R[153]=8)),R[154]=(R[154]+256);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit9;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=10) OR (R[153]=9)),R[154]=(R[154]+512);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit10;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=11) OR (R[153]=10)),R[154]=(R[154]+1024);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit11;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=12) OR (R[153]=11)),R[154]=(R[154]+2048);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit12;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=13) OR (R[153]=12)),R[154]=(R[154]+4096);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit13;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=14) OR (R[153]=13)),R[154]=(R[154]+8192);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit14;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=15) OR (R[153]=14)),R[154]=(R[154]+16384);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit15;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=16) OR (R[153]=15)),R[154]=(R[154]+32768);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit16;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=17) OR (R[153]=16)),R[154]=(R[154]+65536);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit17;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=18) OR (R[153]=17)),R[154]=(R[154]+131072);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit18;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=19) OR (R[153]=18)),R[154]=(R[154]+262144);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit19;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=20) OR (R[153]=19)),R[154]=(R[154]+524288);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit20;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=21) OR (R[153]=20)),R[154]=(R[154]+1048576);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit21;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=22) OR (R[153]=21)),R[154]=(R[154]+2097152);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit22;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=23) OR (R[153]=22)),R[154]=(R[154]+4194304);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  !Mantisse Bit23;
   1:  R[152]=(R[152]+1);
   1:  IF((DI[R[152]]=ON AND R[153]>=24) OR (R[153]=23)),R[154]=(R[154]+8388608);
   1:  IF(R[152]>=R[151]+23),JMP LBL[1000];
   1:  LBL[1000];
   1:  !*****************************;
   1:  !Nachkommazahl;
   1:  !*****************************;
   1:  ;
   1:  ;

Alles anzeigen

Die Vorkommastelle funzt schon, die Nachkommastelle mach ich morgen

Erzeugen eine Gleitpunktzahl

Erstelle ein Benutzerkonto oder melde dich an um zu kommentieren

Gebrauchtroboter kaufen - Was ist zu beachten. Die Checkliste zum kauf von gebrauchten Robotern

Was macht ein Roboterprogrammierer genau und was verdient er?

Vernetzen, referenzieren, kollaborieren: Das B2B Portal für die Produktionsautomatisierung

Sie wollen Ihr Stellenangebot im Roboterforum schalten? Ab 149€

Werde Roboterprogrammierer bei ROBTEC GmbH in Mainburg / Bayern

Teilen

Wieviele Mitglieder waren heute eingeloggt?