restart; Dny:=proc (d1,m1,y1,d2,m2,y2) options operator, arrow; 30-d1+d2+30*(m2-m1-1)+360*(y2-y1) end proc: K := proc (K0, d, t) options operator, arrow; K0*(1-d*t/360) end proc: with(Maplets[Elements]): maplet := Maplet( Window( 'title'="Směnky", BoxLayout( [BoxRow('halign'='left','valign'='none','border'='false','background'='pink',Label("Roční míra zisku", 'font' = Font("Times", bold, 14))), BoxRow('halign'='left','valign'='none','border'='true',TextBox['TB2']("ÚLOHA: Obchodní společnost A vydala obchodní směnku v hodnotě 10 000 000 Kč splatnou k 1.6. 2007. Obchodní společnost B zakoupila směnku 3.3.2007 při roční diskontní míře 7%, aby ji 5.4. 2007 prodala při roční diskontní míře 6,95%. Jakou roční úrokovou míru realizovala společnost B při této transakci? Poznámka: Při diskontování pracujeme se standardem 30E/360", 'font' = Font("Times", 14),'editable' = 'false', 5..55,'foreground'='black')) , [BoxRow('halign'='left','border'='false',Label("Vstupní údaje:", 'font' = Font("Times", bold, 12)))], [BoxRow('border'='true', BoxColumn('halign'='left','valign'='none', BoxRow("Nominální hodnota:"), BoxRow("Diskontní sazba:"), BoxRow("Diskontní sazba při prodeji:") ), BoxColumn('halign'='left','valign'='none', BoxRow(TextField['TF1'](9),"Kč"), BoxRow(TextField['TF2'](3),"%"), BoxRow(TextField['TF2p'](3),"%") ),HorizontalGlue(), BoxColumn('halign'='left','valign'='none', BoxRow("Datum splatnosti:"), BoxRow("Datum koupě:"), BoxRow("Datum prodeje:") ), BoxColumn('halign'='left','valign'='none', BoxRow("den:",TextField['TF3_1'](2),"měsíc:",TextField['TF3_2'](2),"rok:",TextField['TF3_3'](4)), BoxRow("den:",TextField['TF4_1'](2),"měsíc:",TextField['TF4_2'](2),"rok:",TextField['TF4_3'](4)), BoxRow("den:",TextField['TF5_1'](2),"měsíc:",TextField['TF5_2'](2),"rok:",TextField['TF5_3'](4)) ))], [BoxRow('halign'='left','border'='false',Label("Výstupní údaje:", 'font' = Font("Times", bold, 12)))], [BoxRow('border'='true', BoxColumn('halign'='left','valign'='none', BoxRow("Nákup:"), BoxRow("Prodej:"), BoxRow("Míra zisku:") ), BoxColumn('halign'='left','valign'='none', BoxRow(TextBox['TB3']('editable' = 'false', 1..10, 'font' = Font("Times", 12) ),"Kč"), BoxRow(TextBox['TB4']('editable' = 'false', 1..10, 'font' = Font("Times", 12) ),"Kč"), BoxRow(TextBox['TB5']('editable' = 'false', 1..10, 'font' = Font("Times", 12) ),"%") ),HorizontalGlue(), BoxColumn('halign'='center','valign'='none', BoxRow(Button("Vypočítat", Action(Evaluate('TB3' = 'evalf(K(TF1, TF2*0.01,Dny(TF4_1,TF4_2,TF4_3,TF3_1,TF3_2,TF3_3)))'),Evaluate('TB4' = 'evalf(K(TF1, TF2p*0.01,Dny(TF5_1,TF5_2,TF5_3,TF3_1,TF3_2,TF3_3)))'),Evaluate('TB5' = 'evalf(100*(TB4-TB3)/(TB3*Dny(TF4_1,TF4_2,TF4_3,TF5_1,TF5_2,TF5_3)/360))'))) ), BoxRow(Button("Vymazat", Action(Evaluate('TB3' = ""),Evaluate('TB4' = ""),Evaluate('TB5' = ""),Evaluate('TF1' = ""),Evaluate('TF2' = ""),Evaluate('TF2p' = ""),Evaluate('TF3_1' = ""),Evaluate('TF3_2' = ""),Evaluate('TF3_3' = ""),Evaluate('TF4_1' = ""),Evaluate('TF4_2' = ""),Evaluate('TF4_3' = ""),Evaluate('TF5_1' = ""),Evaluate('TF5_2' = ""),Evaluate('TF5_3' = ""))) ), BoxRow(Button("Ukončit", Shutdown())) ) )] ] ) ) ): Maplets[Display](maplet);