VB-Rätsel

~blaze~ · 19. April 2011, 00:57

Nachdem keiner mehr weitermacht, frag' ich wieder was:
Wie drückt man die Funktion
f(x) = a*2^x
in Visual Basic am elegenatesten für Ganzzahlen (Integer, Resultat soll auch ein Integer sein) aus?

Gruß
~blaze~

jvbsl · 19. April 2011, 01:04

VB.NET-Quellcode

Dim y As Single = a*pow(2,x)

?^^

~blaze~ · 19. April 2011, 01:13

Da gibts noch eine schönere. Übrigens gibt pow bei mir Double zurück. Welches Framework verwendest du?

Gruß
~blaze~

jvbsl · 19. April 2011, 01:27

Ja stimmt schon, wusste es nicht mehr auswendig...
dann fällt mir das noch ein:

VB.NET-Quellcode

a* (2 << (x - 1))

Meintest du die?

Edit: x-1, sonst hat man nicht hoch x, sondern hoch (x+1)

~blaze~ · 19. April 2011, 02:05

Stimmt fast, das kann man aber schon als korrekt werten. Du hättest nur folgende Funktion aufstellen müssen:
a* 1<<x
Da 1 = 2^0. Du bist dran.

Gruß
~blaze~

jvbsl · 19. April 2011, 13:17

omg da hätte ich auch drauf kommen können...xD
Wie einen(mich) die zwei da fehlgeleitet hat...

~~Man ich hab keine Idee, mir fehlt eindeutig die Kreativität, aber ich editiers rein, wenn ich was hab...~~

VB.NET-Quellcode

Dim x As Integer = 1
Dim y As Integer = &HFF
x = ((x * (&H1 << &O10) Or &HFF) And Not y) >> (1 << (CInt(Math.Log(y * 2, 8)) And &HFF))
y = ((((1 - 257) * &HFFFFFFFF) << 8) >> (1 << 4)) << 7
x = ((x * (&H1 << &O10) Or &HFF) And Not y) >> (1 << (CInt(Math.Log(y * 2, 8)) And &HFF))
y = 1 << (((x << 8) * 4) \ (1 << 8))

Gefragt sind die beiden Variablen x und y am Ende...
Aber mit Lösungsweg posten, sonst hatman wohl nen Kompiler benutzt...

~blaze~ · 20. April 2011, 22:15

Wenns sonst keiner löst:
x = 1
y = 255
&H1 = 1
&O10 = 8
&HFF = 255
==> x* (1 << 8) Or 255 = 1 * 256 + 255 = 511
511 And Not 255 = 256
CInt(Math.Log(510, 8)) = 3 (hier sollte wohl eher Math.Log(y * 2 +2, 8) stehen)
3 And 255 = 3 ==> kein Unterschied
==> 1 << 3 = 8
==> 256 >> 8 = 1

==>x = ((x * (&H1 << &O10) Or &HFF) And Not y) >> (1 << (CInt(Math.Log(y * 2, 8)) And &HFF)) = 1

&HFFFFFFFF = -1
(1-257) * -1 = 256
1 << 4 << 7 = 1 << 11
256 << 8 >> 16 = 256 >> 8 = 1
1 << 7 = 128
y = ((((1 - 257) * &HFFFFFFFF) << 8) >> (1 << 4)) << 7 = 128

x = 1
y = 128

(1 * (1 << 8) Or 255) = 511
511 And Not 128 = 383
Cint(Math.Log(256, 8)) = CInt(Math.Log(512\2, 8) = Cint(math.Log(512, 8) - Math.Log(2, 8)) = CInt(3 - 1/3) = 3
1 << 2 And 255 = 1 << 3 = 8
383 >> 8 (uff, das im Kopf...)
Erst mal umformen:
383 = 256 + 127
==> 383 >> 8 = 256 >> 8 + 127 >> 8
Binär ist 127: 11111111
==> 11111111 >> 8 = 0
==> 256 >> 8 + 127 >> 8 = 1 + 0 = 1
==> x = ((x * (&H1 << &O10) Or &HFF) And Not y) >> (1 << (CInt(Math.Log(y * 2, 8)) And &HFF)) = 1

==> ( x << 8) *4 \ 256 = 256 * 4 \ 256 = 4
==> 1 << 4 = 16
==> y = 1 << (((x << 8) * 4) \ (1 << 8)) = 16

==> x = 1; y = 16

Gruß
~blaze~

jvbsl · 20. April 2011, 22:33

hgw du bist dran^^

Manawyrm · 20. April 2011, 23:24

Ich sag da jetzt mal nichts mehr zu

xXAlphaXx · 20. April 2011, 23:41

Kleine Frage eben kurz (nicht geltend für das Spiel)

Was bedeutet "<<" in VB? kann man dadurch den Potenzierungsbefehl auslassen oder wie?

~blaze~ · 20. April 2011, 23:44

Hi
<< und >> stehen einfach für Bitshifts. Das heißt, die Bits werden in die entsprechende Richtung verschoben.
Z.B.
1 << 4 = 16, da in binärer Schreibweise 10000
und
16 >> 4 = 1
Hab bis jetzt noch keine Idee...

Gruß
~blaze~

xXAlphaXx · 20. April 2011, 23:48

0100 wär doch mit einem Bithift << 1000 = 8 oder nicht?

< = wird doch behandelt wie kleiner gleich
> = genauso umgekehrt
oder nicht?

~blaze~ · 20. April 2011, 23:54

Also was du mit dem ersten Teil meintest, versteh ich nicht. <= und >= sind kleinergleich und größergleich und vollkommen anders, als << und >>.
a * 1 << x ist gleichbedeutend mit
a * 2^x
und a * 1 >> x
a * 2^-x
Reste oder zu große Werte werden abgeschnitten.

Gruß
~blaze~

nikeee13 · 20. April 2011, 23:55

[VB.NET] BitShfit-Operatoren

xXAlphaXx · 20. April 2011, 23:59

ahh jetzt habe ichs glaube ich raus
x << y = z
x = Basis in Binär
y = verschiebung um wie viel Stellen
z = Endergebnis

1 << 4 = 16
00001 << 4 (Stellen nach links) = 10000 = 16

ist das so richtig?

~blaze~ · 21. April 2011, 00:07

Genau.

Hier ein schnell gelöstes Rätsel. Bitte postet wieder den Lösungsweg und gebt evtl. noch eine Begründung an.

VB.NET-Quellcode

Dim x As Integer = 16
Dim y As Integer = 16 << 1
Dim z As Integer = 16 >> 2
Dim w As Integer = x * y * z
Dim result As Integer = w >> CInt(Math.Log(w, 2))

Sorry, mir ist nichts besseres eingefallen, aber da wir schon die ganze Zeit Bitshifts hatten... hab ich mir gedacht, dass wir zur Abwechslung mal Bitshifts dranbringen könnten.

Gruß
~blaze~

xXAlphaXx · 21. April 2011, 00:22

was heißt die 2 im Logarhytmus nochmal? dann hab ich nämlich das ergebnis

Mein Lösungsweg bis jetzt

x= 16
y = 16<<1 = 32
z = 16>>2 = 4
w = x * y * z
w = 2^1 * 2^5 * 2^3 = 2^11 = 2048

^ = Potenz

~blaze~ · 21. April 2011, 00:24

Also ohne Taschenrechner, ja? Sonst kann das jeder. Die 2 ist die Basis.

Gruß
~blaze~

xXAlphaXx · 21. April 2011, 00:31

Ja jetzt mach ich mal meinen Rechenweg weiter

2048 zur Basis 2 = 11 steht ja eig oben

so jetzt aber

1 00000 00000 - 11 Stellen = 1

jvbsl · 21. April 2011, 00:32

verrat ich nicht

VB.NET-Quellcode

Dim x As Integer = 16
Dim y As Integer = 32
Dim z As Integer = 4
Dim w As Integer = 2048
Dim result As Integer = 2048 >> CInt(11.0)
result = 1

Habs mal so hingeschrieben...
Log(2048,2) = Log10(2048) / Log10(2)

Log10 ist der Logarithmus mit der Basis 10~~, Standardabgekürzt 10~~Edit: Natürlich Blödsinn^^
Ln ist der Logarithmus mit der eulerschen Zahl als Basis..

Ist es ok, wenn ich für den Logarithmus den Taschenrechner verwendet hab?^^

VB-Rätsel

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

11 Benutzer haben hier geschrieben