Funktionsgraphen und Funktionsterme

Variante 1: Aufgaben hintereinander ausführen, Wiederholung möglich, 1 Minute Zeit!

Aufgabe 1

If[!NumberQ[n1],n1=1,n1=n1+1,"FEHLER"];
fkt={" sin(x) "->"Sin[x]"," cos(x) "->"Cos[x]"," tan(x) "->"Tan[x]"," cot(x) "->"Cot[x]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2π,2π},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n1==1,Print[Style["Richtig auf Anhieb!",Darker[Green],Bold,22]],Print[Style["Richtig nach "<>ToString[n1]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]

Aufgabe 2

If[!NumberQ[n2],n2=1,n2=n2+1,"FEHLER"];
fkt={" (x^2) + 1 "->"(x^2)+1"," (x^2) - 1 "->"(x^2)-1"," 1 - (x^2) "->"1-(x^2)"," - 1 - (x^2) "->"-1-(x^2)"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2,2},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n2==1,Print[Style["Richtig auf Anhieb!",Darker[Green],Bold,22]],Print[Style["Richtig nach "<>ToString[n2]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]

Aufgabe 3

If[!NumberQ[n3],n3=1,n3=n3+1,"FEHLER"];
fkt={" (e^x) "->"Exp[x]"," (e^(-x)) "->"Exp[-x]"," -(e^x) "->"-Exp[x]"," -(e^(-x)) "->"-Exp[-x]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2,2},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n3==1,Print[Style["Richtig auf Anhieb!",Darker[Green],Bold,22]],Print[Style["Richtig nach "<>ToString[n3]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]

Aufgabe 4

If[!NumberQ[n4],n4=1,n4=n4+1,"FEHLER"];
fkt={" (x - 1) (x - 2) "->"(x-1)(x-2)"," (x - 1) (x + 2) "->"(x-1)(x+2)"," (x + 1) (x - 2) "->"(x+1)(x-2)"," (x + 1) (x + 2) "->"(x+1)(x+2)"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-3,3},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n4==1,Print[Style["Richtig auf Anhieb!",Darker[Green],Bold,22]],Print[Style["Richtig nach "<>ToString[n4]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]

Aufgabe 5

If[!NumberQ[n5],n5=1,n5=n5+1,"FEHLER"];
fkt={" sin(2x) "->"Sin[2x]"," cos(3x) "->"Cos[3x]"," sin(x/2) "->"Sin[x/2]"," cos(x/3) "->"Cos[x/3]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2π,2π},Ticks->{{-2π,-((3π)/2),-π,-(π/2),0,(π/2),π,((3π)/2),2π},Automatic},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n5==1,Print[Style["Richtig auf Anhieb!",Darker[Green],Bold,22]],Print[Style["Richtig nach "<>ToString[n5]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]

Variante 2: Staccato

Clear[n1,n2,n3,n4,n5];
aufgabe1:=(If[!NumberQ[n1],n1=1,n1=n1+1,"FEHLER"];
fkt={" sin(x) "->"Sin[x]"," cos(x) "->"Cos[x]"," tan(x) "->"Tan[x]"," cot(x) "->"Cot[x]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2π,2π},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n1==1,Print[Style["Aufgabe 1: Richtig!",Darker[Green],Bold,22]],Print[Style["Aufgabe 1: Richtig nach "<>ToString[n1]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Aufgabe 1: Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]);
aufgabe2:=(If[!NumberQ[n2],n2=1,n2=n2+1,"FEHLER"];
fkt={" (x^2) + 1 "->"(x^2)+1"," (x^2) - 1 "->"(x^2)-1"," 1 - (x^2) "->"1-(x^2)"," - 1 - (x^2) "->"-1-(x^2)"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2,2},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n2==1,Print[Style["Aufgabe 2: Richtig!",Darker[Green],Bold,22]],Print[Style["Aufgabe 2: Richtig nach "<>ToString[n2]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Aufgabe 2: Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]);
aufgabe3:=(If[!NumberQ[n3],n3=1,n3=n3+1,"FEHLER"];
fkt={" (e^x) "->"Exp[x]"," (e^(-x)) "->"Exp[-x]"," -(e^x) "->"-Exp[x]"," -(e^(-x)) "->"-Exp[-x]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2,2},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n3==1,Print[Style["Aufgabe 3: Richtig!",Darker[Green],Bold,22]],Print[Style["Aufgabe 3: Richtig nach "<>ToString[n3]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Aufgabe 3: Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]);
aufgabe4:=(If[!NumberQ[n4],n4=1,n4=n4+1,"FEHLER"];
fkt={" (x - 1) (x - 2) "->"(x-1)(x-2)"," (x - 1) (x + 2) "->"(x-1)(x+2)"," (x + 1) (x - 2) "->"(x+1)(x-2)"," (x + 1) (x + 2) "->"(x+1)(x+2)"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-3,3},PlotRange->{-5,5},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n4==1,Print[Style["Aufgabe 4: Richtig!",Darker[Green],Bold,22]],Print[Style["Aufgabe 4: Richtig nach "<>ToString[n4]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Aufgabe 4: Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]);
aufgabe5:=(If[!NumberQ[n5],n5=1,n5=n5+1,"FEHLER"];
fkt={" sin(2x) "->"Sin[2x]"," cos(3x) "->"Cos[3x]"," sin(x/2) "->"Sin[x/2]"," cos(x/3) "->"Cos[x/3]"};
rnd=RandomInteger[{1,4}];
If[ChoiceDialog[
Plot[ToExpression[fkt[[rnd]][[2]]],{x,-2π,2π},Ticks->{{-2π,-((3π)/2),-π,-(π/2),0,(π/2),π,((3π)/2),2π},Automatic},ImageSize->330]
,fkt,WindowFloating->True,WindowTitle->"Welche Funktion stellt dieser Graph dar?"]==fkt[[rnd]][[2]],If[n5==1,Print[Style["Aufgabe 5: Richtig!",Darker[Green],Bold,22]],Print[Style["Aufgabe 5: Richtig nach "<>ToString[n5]<>" Versuchen!",Darker[Green],Bold,22]]],Print[Style["Aufgabe 5: Falsch!",Red,Bold,22]],Print[Style["Nicht erkannt!",Blue,Bold,22]]]);

aufgabe1;aufgabe2;aufgabe3;aufgabe4;aufgabe5;