public function __construct($os_html, $nim_html)
{
parent::__construct(false);
// Yksirivinen EI ole.
$this->osoittaja = $os_html;
$this->nimittaja = $nim_html;
$this->osoittaja_solutta = $os_html;
$this->nimittaja_solutta = $nim_html;
//==================== Sisäkkäisten elementtien tarkistus alkaa ========
// Osoittajassa ja nimittäjässä voi olla esimerkiksi neliöjuuria.
// Tarkistetaan tämä ja muokataan koodi kerralla valmiiksi.
//
// Tänne kootaan Yksiriviset, Supistajat, Laventajat, Neliojuuret,
// Murtolukumuodot yms. oliot:
$kaavaelementtitaulukko_nimittaja = Kaavaeditori::etsi_kaavaelementit($this->nimittaja);
// Muodostetaan nimittäjästä oma kaavariviolio, jolloin ainakin
// teoriassa saadaan joustava (ja monimutkainen) merkkaus.
$nimittaja_rivi = new Kaava($kaavaelementtitaulukko_nimittaja);
$muokattu_nimittaja = $nimittaja_rivi->nayta_rivi();
$this->nimittaja = Html::luo_tablesolu($muokattu_nimittaja, array(Attr::classs("nimittajasolu_kaavarivi"), Attr::align("center")));
// Ja sitten sama osoittajalle:
$kaavaelementtitaulukko_osoittaja = Kaavaeditori::etsi_kaavaelementit($this->osoittaja);
$osoittaja_rivi = new Kaava($kaavaelementtitaulukko_osoittaja);
$muokattu_osoittaja = $osoittaja_rivi->nayta_rivi();
$this->osoittaja = Html::luo_tablesolu($muokattu_osoittaja, array(Attr::classs("osoittajasolu_kaavarivi"), Attr::align("center")));
// Esimerkiksi ison neliöjuuren sisällä tarvitaan sijoittaa
// lauseke erilaiseen soluun (neliöjuuriraja päälle), joten annetaan
// mahdollisuus tehdä soluun sijoitus kutsuvasssa jutussa vasta:
$this->nimittaja_solutta = $muokattu_nimittaja;
$this->osoittaja_solutta = $muokattu_osoittaja;
//==================== Neliöjuurten tarkistus loppu ====================
//======================================================================
}
$sisalto .= "<br/><br/>Kaavaeditorille viety merkkijono (osoittajassa iso juuri):<br/><br/>"; $sisalto .= $isojuuriosoittaja; $sisalto .= "<br/><br/>Kaavaeditorin lopullinen muokattu html:<br/><br/>"; $sisalto .= $muotoiltu_isojuurios; $sisalto .= "<br/><br/>Kaavaeditorille viety merkkijono (yhtälöpari):<br/><br/>"; $sisalto .= $ypari; $sisalto .= "<br/><br/>Kaavaeditorin lopullinen muokattu html:<br/><br/>"; $sisalto .= $muotoiltu_ypari; $sisalto .= "<br/><br/>Kaavaeditorille viety merkkijono (murtolukuja):<br/><br/>"; $sisalto .= $murtoluku; $sisalto .= "<br/><br/>Kaavaeditorin lopullinen muokattu html:<br/><br/>"; $sisalto .= $muotoiltu_murtoluku; $sisalto .= "********************************************************<br/>"; $sisalto .= "<br/>Tämä on hieno Murtoluku:"; $sisalto .= $rivi->nayta_rivi() . $rivi2->nayta_rivi(); $sisalto .= "Kolme kerrosta ei ihan vielä toimi:" . $rivi3->nayta_rivi(); $sisalto .= "<h2>Testataan Kaavaeditori-luokan metodia\n 'muotoile_kaavat(teksti)'</h2>"; $teksti = 'Ei mitään kaavaa'; $sisalto .= "Syöte 1: '" . $teksti . "'<br/>"; $tulos = Kaavaeditori::muotoile_kaavat($teksti); $sisalto .= "Tulos: " . $tulos; $sisalto .= "<br/><br/>"; $teksti = Kaavaeditori::$kaavan_alku . 'x=ty' . Kaavaeditori::$kaavan_loppu; $sisalto .= "Syöte 2: '" . $teksti . "'<br/>"; $tulos = Kaavaeditori::muotoile_kaavat($teksti); $sisalto .= "Tulos: " . $tulos; $sisalto .= "<br/><br/>"; $teksti = Kaavaeditori::$kaavan_alku . Kaavaeditori::$jako_alku . '1##2' . Kaavaeditori::$jako_loppu . '=0,5' . Kaavaeditori::$kaavan_loppu; $sisalto .= "Syöte 3: '" . $teksti . "'<br/>"; $tulos = Kaavaeditori::muotoile_kaavat($teksti); $sisalto .= "Tulos: " . $tulos;
/**
* Testaa murtolukuluokan Sievennä-metodia, jolla on seuraavia ominaisuuksia:
*
* Palauttaa murtoluvun sievennettynä sekaluku-, murtoluku- tai
* kokonaislukumuodossa. Vastaus supistetaan yksinkertaisimpaan muotoonsa.
*
* Jos murtoluvun osoittaja on nimittäjää pienempi, palautetaan
* murtoluku.
*
* Jos murtoluvun voi muuttaa kokonaisluvuksi, palautetaan sellainen.
*
* Palauttaa Sekaluku-, Murtoluku- tai Kokonaisluku-luokan
* olion, joka on yhtä suuri kuin alkuperäinen murtoluku (this).
*
* Yllämainittuja ominaisuuksia testataan tässä metodissa.
* @author Jukka-Pekka Kerkkänen, 28.9.09
*
*/
public function testaa_laskuri_murtoluku_sievenna()
{
$sieva_koodi1 = "";
// Apumuuttuja.
$sieva_koodi2 = "";
// Apumuuttuja.
$ok = false;
// Sievennöksen laskennallisen tarkistuksen tulos.
$vast = "<h2>Testataan Murtoluku-luokan sievenna-metodia.</h2>";
$testiluvut = array(new Murtoluku("-", 3, 6), new Murtoluku("+", 2, 6), new Murtoluku("+", 'piip', -6), new Murtoluku("+", 1, 5), new Murtoluku("-", 4, 5), new Murtoluku("+", 9, 3), new Murtoluku("-", 38, 8), new Murtoluku("+", 2346, 17), new Murtoluku("-", 38, 5), new Murtoluku("+", 24, 9), new Murtoluku("+", 13, 3), new Murtoluku("-", 36, 24), new Murtoluku("+", 198628, 3456));
for ($i = 0; $i < sizeof($testiluvut); $i++) {
$nro = $i + 1;
// Sievennöksen nro
$sievennetty = $testiluvut[$i]->sievenna();
if (get_class($sievennetty) == 'Kokonaisluku') {
$sieva_koodi1 = new Yksirivinen($sievennetty->get_arvo());
$sieva_koodi2 = "";
if ($testiluvut[$i]->get_osoittaja() / $testiluvut[$i]->get_nimittaja() == $sievennetty->get_arvo() && $testiluvut[$i]->get_etumerkki() == $sievennetty->get_etumerkki()) {
$ok = true;
$vast .= "Sievennys nro {$nro} läpäisi\n laskennallisen tarkastuksen";
} else {
$vast .= "<span style='color: red;'>Sievennyksessä nro {$nro}\n on ilmeisesti jokin virhe!!</span>";
}
} else {
if (get_class($sievennetty) == 'Murtoluku') {
$sieva_koodi1 = new Murtolukumuoto($sievennetty->get_osoittaja(), $sievennetty->get_nimittaja());
$sieva_koodi2 = "";
if ($testiluvut[$i]->get_osoittaja() / $testiluvut[$i]->get_nimittaja() == $sievennetty->get_osoittaja() / $sievennetty->get_nimittaja() && $testiluvut[$i]->get_etumerkki() == $sievennetty->get_etumerkki()) {
$ok = true;
$vast .= "Sievennys nro {$nro} läpäisi\n laskennallisen tarkastuksen";
} else {
$vast .= "<span style='color: red;'>Sievennyksessä\n nro {$nro} on ilmeisesti jokin virhe!!</span>";
}
} else {
if (get_class($sievennetty) == 'Sekaluku') {
$sieva_koodi1 = new Yksirivinen($sievennetty->get_kokonaisosa());
$sieva_koodi2 = new Murtolukumuoto($sievennetty->get_osoittaja(), $sievennetty->get_nimittaja());
// Muutetaan sievennös murtolukuna, jolloin tarkistus helpompi:
$sievennos_murtolukuna = new Murtoluku("+", $sievennetty->get_kokonaisosa() * $sievennetty->get_nimittaja() + $sievennetty->get_osoittaja(), $sievennetty->get_nimittaja());
$sievennos_murtolukuna = $sievennos_murtolukuna->supista_yksinkert_muot();
// Supistetaan alkuperäinen murtoluku:
$alkup_murtoluku = $testiluvut[$i]->supista_yksinkert_muot();
if ($alkup_murtoluku->get_osoittaja() == $sievennos_murtolukuna->get_osoittaja() && $alkup_murtoluku->get_nimittaja() == $sievennos_murtolukuna->get_nimittaja() && $testiluvut[$i]->get_etumerkki() == $sievennetty->get_etumerkki()) {
$ok = true;
$vast .= "Sievennys nro {$nro} läpäisi\n laskennallisen tarkastuksen";
} else {
$vast .= "<span style='color: red;'>Sievennyksessä\n nro {$nro} on ilmeisesti jokin virhe!!</span>";
}
}
}
}
$rivi = new Kaava(array(new Yksirivinen("{$nro}: Luotu murtoluku:"), new Yksirivinen($testiluvut[$i]->get_etumerkki()), new Murtolukumuoto($testiluvut[$i]->get_osoittaja(), $testiluvut[$i]->get_nimittaja()), new Yksirivinen("Sievennetty muoto:"), new Yksirivinen($sievennetty->get_etumerkki()), $sieva_koodi1, $sieva_koodi2));
$vast .= $rivi->nayta_rivi();
}
$vast .= "<p><b>Sievennä-metodin testaus päättyi</b></p>";
return $vast;
}
/**
* Palauttaa murtoluvun sievennettynä sekaluku-, murtoluku- tai
* kokonaislukumuodossa. Vastaus supistetaan yksinkertaisimpaan muotoonsa.
*
* Jos murtoluvun osoittaja on nimittäjää pienempi, palautetaan
* murtoluku tai sitten kokonaisluku, jos jako menee tasan.
*
* Jos murtoluvun voi muuttaa kokonaisluvuksi, palautetaan sellainen.
*
* @param Murtoluku $mluku sievennettänä murtoluku
* @param bool $nayta_lasku totuusarvo: jos true, niin palautetaan
* laskun html-esitys, muuten pelkkä vastausmurtoluku.
* @param bool $etuplussa_nakyviin totuusarvo: true->etuplussa kirjoitetaan
* näkyviin silloin, kun $nayta_lasku = true.
* @return Sekaluku Palauttaa Sekaluku-, Murtoluku- tai Kokonaisluku-luokan
* olion, joka on yhtä suuri kuin alkuperäinen murtoluku (this).
* @author Jukka-Pekka Kerkkänen, 28.9.09
*/
public function sievenna_murtoluku($mluku, $nayta_lasku, $etuplussa_nakyviin)
{
$vast = 0;
if ($mluku instanceof Murtoluku) {
// Jos sekaluvussa ei ole ideaa:
if ($this->osoittaja < $this->nimittaja) {
$vast = $this->supista_yksinkert_muot($mluku, false);
} else {
// Jos murtoluvusta saa kokonaisluvun:
$jakojaannos = $this->osoittaja % $this->nimittaja;
if ($jakojaannos == 0) {
$vast = new Kokonaisluku($this->get_etumerkki(), $this->osoittaja / $this->nimittaja);
} else {
$kokonaiset = floor($this->osoittaja / $this->nimittaja);
//$murto_osa = new Murtoluku()
$vast = new Sekaluku($this->get_etumerkki(), $kokonaiset, $jakojaannos, $this->get_nimittaja());
//Nimittäjä
// Supistetaan murto-osa:
$vast->set_murto_osa($vast->get_murto_osa()->supista_yksinkert_muot());
}
}
if ($nayta_lasku) {
// Määritellään ensimmäinen etumerkki, joka joskus plussana
// jätetään pois:
if ($mluku->on_negatiivinen()) {
$ekaetumerkki = $mluku->get_miinusmerkki();
} else {
if ($etuplussa_nakyviin) {
$ekaetumerkki = "+";
} else {
$ekaetumerkki = "";
}
}
//Supistetaan:
$supistaja = $this->etsi_syt($os, $nim);
$uusi_os = $os / $supistaja;
$uusi_nim = $nim / $supistaja;
/**************************************************************/
// Tapaus 1: Ei voi supistaa:
if ($supistaja == 1) {
// Ei voi muuttaa seka- eikä
// kokonaisluvuksi eli palautetaan murtoluku:
if ($os < $nim) {
$vastausolio = new Kaava(array(new Murtolukumuoto($os, $nim), new Yksirivinen(" Murtolukua ei\n voi supistaa.")));
$vastaus = $vastausolio->nayta_rivi();
} else {
if ($os % $nim == 0) {
$tulos = $os / $nim;
$vastausolio = new Kaava(array(new Murtolukumuoto($os, $nim), new Yksirivinen("=" . $tulos)));
$vastaus = $vastausolio->nayta_rivi();
} else {
$vastausolio = new Kaava(array(new Murtolukumuoto($os, $nim), new Supistaja($supistaja), new Yksirivinen("="), new Murtolukumuoto($uusi_os, $uusi_nim)));
$vastaus = $vastausolio->nayta_rivi();
}
}
} else {
}
$vastausolio = new Kaava(array(new Yksirivinen($ekaetumerkki), new Murtolukumuoto($mluku->get_osoittaja(), $mluku->get_nimittaja()), new Yksirivinen("·"), $this->piirra_tarv_vasen_sulku($murto2), new Yksirivinen($etumerkki2), new Murtolukumuoto($murto2->get_osoittaja(), $murto2->get_nimittaja()), $this->piirra_tarv_oikea_sulku($murto2), new Yksirivinen("="), new Yksirivinen($tulos->get_etumerkki()), new Murtolukumuoto($murto1->get_osoittaja() . " · " . $murto2->get_osoittaja(), $murto1->get_nimittaja() . " · " . $murto2->get_nimittaja()), new Yksirivinen("="), new Yksirivinen($etumerkki_tulos), new Murtolukumuoto($tulos->get_osoittaja(), $tulos->get_nimittaja())));
$vast = $vastausolio->nayta_rivi();
}
}
return $vast;
}
/**
* Hakee annetusta tekstistä kaavat eli merkkijonot, jotka ovat
* merkkijonojen $kaavan_alku ja $kaavan_loppu välissä, ja muotoilee kaavat
* html:n avulla.
*
* Hyödyntää metodia php_yleinen/php_yleismetodit.php:
* 'hae_merkkijonot($teksti, $alkumj, $loppumj, $hae_kaikki)'
*
* Jos tekstistä löytyy $kaavan_alku mutta ei $kaavan_loppu, ei kyseistä
* merkkijonoa muokata.
*
* Ellei mitään kaavaa löydy, tai tapahtuu muuta kummaa, palautetaan sama teksti.
* Muuten palautetaan saatu teksti, jossa kaavamerkinnät on korvattu html-
* muotoiluilla.
*
* @param <type> $teksti
* @param <type> $kaavan_alku
* @param <type> $kaavan_loppu
* @param <type> $jako_alku
* @param <type> $jako_loppu
* @return string muotoiltu html-koodi
*/
static function muotoile_kaavat($teksti)
{
$palautus = $teksti;
// Haetaan tekstistä kaavat taulukkoon:
$alkumj = Kaavaeditori::$kaavan_alku;
$loppumj = Kaavaeditori::$kaavan_loppu;
$hae_kaikki = true;
$raakakaavat = Yleismetodit::hae_merkkijonot($teksti, $alkumj, $loppumj, $hae_kaikki);
/* Tarkempaan työhön aletaan vain, jos kaavoja löytyy */
if (!empty($raakakaavat)) {
$valmiit_kaavat = array();
// Käydään läpi jokainen raakakaava: HUOM katso metodi
// muotoile_merkit() tiedostossa yhteiset/php_yhteismetodit.php!
foreach ($raakakaavat as $kaava) {
// Muotoillaan merkkejä hiukan. Miinusmerkit on kiva olla
// pitkiä (ja hiukan tekstistä erillään). Yhdysviivat kaavoissa
// merkitsevät käytännössä aina miinusmerkkiä, joten muutetaan ne
// oikeiksi. Tehdään se täällä, koska
// tekstissä väliviivaa tarvitaan kuitenkin.
// NÄIN EI TOIMI MIKSI?? $kaava = str_replace("-",Merkit::$miinusmerkki,$kaava);
$kaava = str_replace("-", "−", $kaava);
// Näin taas toimii!
$kaava = str_replace("+", "<span class='erillaan'>+</span>", $kaava);
// Kompleksiluvun liittolukuongelma:
//$kaava = str_replace("*","<span class='erillaan'>⋅</span>", $kaava);
// Tämäkin aiheuttaa sen ongelman, ettei kaavaan voi lisätä
// esimerkiksi css-määrettä font-style väliviivan takia..
$kaava = str_replace("−", "<span class='erillaan'>−</span>", $kaava);
// Tämä täällä, koska muualla pitää olla mahis laittaa
// esim. merkki => (ohjelmointi tms.)
// Huom! =-merkkiin ei voi lisätä yleensä html-koodia, koska merkkiä käytetään
// html:n sisällä (attribuutit)"
$kaava = str_replace("=", " = ", $kaava);
// Sama kuin yllä:
$kaava = str_replace(":", " : ", $kaava);
//================ Kokeillaan toimiiko==========================
$kaava = str_replace("⋅", "<span class='erillaan'>⋅</span>", $kaava);
$kaava = str_replace("≈", "<span class='erillaan'>≈</span>", $kaava);
$kaava = str_replace("≠", "<span class='erillaan'>≠</span>", $kaava);
$kaava = str_replace("║", "<span class='erillaan'>║</span>", $kaava);
//================ Kokeillaan toimiiko loppu ===================
// Tehdään kursivoinnin poisto ennen varsinaista kaavamuotoilua.
$kaava = str_replace("(ioff_b)", "<span class='ital_off'>", $kaava);
$kaava = str_replace("(ioff_e)", "</span>", $kaava);
// Tänne kootaan Yksiriviset, Supistajat, Laventajat, Neliöjuuret
// ja Murtolukumuodot yms -oliot:
$kaavaelementtitaulukko = Kaavaeditori::etsi_kaavaelementit($kaava);
$muotoiltu_kaava = new Kaava($kaavaelementtitaulukko);
$kaavahtml = "<div class='kaavaboxi'>" . $muotoiltu_kaava->nayta_rivi() . "</div>";
array_push($valmiit_kaavat, $kaavahtml);
}
// Lisätään jokaiseen raakakaavaan alku- ja
// loppumerkit, jotta myös kyseiset merkit poistuvat:
$kaavojen_lkm = sizeof($raakakaavat);
for ($i = 0; $i < $kaavojen_lkm; $i++) {
$raakakaavat[$i] = Kaavaeditori::$kaavan_alku . $raakakaavat[$i] . Kaavaeditori::$kaavan_loppu;
// Käydään vielä läpi valmiit kaavat ja suoristetaan vielä sulut.
// Huomaa, ettei tätä voi tehdä aiemmin, koska sulut ovat osa
// monia erikoismerkintöjä.
$valmiit_kaavat[$i] = str_replace("(", "<span class='ital_off'>(</span>", $valmiit_kaavat[$i]);
$valmiit_kaavat[$i] = str_replace(")", "<span class='ital_off'>)</span>", $valmiit_kaavat[$i]);
}
// Korvataan tekstin raakakaavat valmiilla kaavoilla:
$palautus = str_replace($raakakaavat, $valmiit_kaavat, $teksti);
}
return $palautus;
}
