Článek je dostupný za podmínek:

1. Kód članku musí být do webové stránky vložen přímo, bez jakékoliv modifikace (vč. funkčního odkázu)

2. Maximální počet článku pro jeden Web / Blog: 15 článků

3. Maximální počet snímků pro jeden Web / Blog: 50 snímků

Tento kód vložte na své stránky:

<table width="98%"><tr><td align="justify">
<h1>Výpočty rovnice</h1><h2>Kubická rovnice: reálné a komplexní kořeny</h2>
<SCRIPT language=JavaScript>
<!-- 
function reset() 
{
	a.value=0
	b.value=0
	c.value=0
	d.value=0
}

function zakrouhlit(n) 
{
	return Math.round(n*100000000)/100000000;
}

// zda jde o cislo
function je_cislo (ach)  {
	if(ach.value == "") ach.value ="0"
	if(ach.value == 1) ach.value ="1"
	if(ach.value == -1) ach.value ="-1"
	var priznak = false
	aa=0;
	for (index = ach.value.length - 1; index >= 0; index--) {
        ch = ach.value.charAt(index);
		 if (ch == ".") aa = aa + 1;
		 if (ch == "-" && index!=0)	 priznak = true
 		 if (ch == "-" && index==0  && ach.value.length==1)	 priznak = true

        if (ch != "0" && ch != "1" && ch != "2" && ch != "3" &&
            ch != "4" && ch != "5" && ch != "6" && ch != "7" &&
            ch != "8" && ch != "9" && ch != "." && ch != "-") {
			priznak = true
		}
	}
    if ( aa > 1 ) {
			priznak = true
	}
    if (ach.value.charAt(0)=="0" && ach.value.length>1 && ach.value.charAt(1)!=".") {
			priznak = true
	}
    if (ach.value.charAt(1)=="0" && ach.value.charAt(0)=="-" && ach.value.length>2 && ach.value.charAt(2)!=".") {
			priznak = true
	}
    if ( priznak == true ) {
			 ach.value = "0"
			 alert ("Musi byt cislo !!!");
			 ach.focus();
	}
}

function vypocet() 
{
	window.status="Pracuji...";
    s='<body bgcolor="#E7E7CF" text="#FF0000"> <font size="+1">';
    s+='<center><font size="+2"> Rovnice :

</font></center>';
	 
    if (a.value=="0") {ss1=""; s1="";} else {ss1=a.value; s1=" x<SUP>3</SUP> + ";}
    if (a.value==1) {ss1=""; s1=" x<SUP>3</SUP> + ";}
    if (a.value==-1) {ss1=""; s1=" x<SUP>3</SUP> + ";}
    
    if (b.value=="0") {ss2=""; s2="";} else {ss2=b.value; s2=" x<SUP>2</SUP> + ";}
    if (b.value==1) {ss2=""; s2=" x<SUP>2</SUP> + ";}
    if (b.value==-1) {ss2=""; s2=" x<SUP>2</SUP> + ";}
    if (b.value<0 && a.value!=0) {ss2=b.value*(-1); s1=" x<SUP>3</SUP> - ";}
    if (b.value<0 && a.value==0) {ss2=b.value*(-1); s1=" - ";}
    
    if (c.value=="0") {ss3=""; s3="";} else {ss3=c.value; s3=" x + ";}
    if (c.value==1) {ss3=""; s3=" x + ";}
    if (c.value==-1) {ss3=""; s3=" x + ";}
    if (c.value<0 && b.value!=0) {ss3=c.value*(-1); s2=" x<SUP>2</SUP> - ";}
    if (c.value<0 && b.value==0  && a.value!=0) {ss3=c.value*(-1); s1=" x<SUP>3</SUP> - ";}
    if (c.value<0 && b.value==0  && a.value==0) {ss3=c.value*(-1); s1=" - ";}
    
    if (d.value=="0") ss4="";  else ss4=d.value;
    if (d.value<0 && c.value!=0) {ss4=d.value*(-1);s3=" x - ";}
    if (d.value<0 && c.value==0 && b.value!=0) {ss4=d.value*(-1);s2=" x<SUP>2</SUP> - ";}
    if (d.value<0 && c.value==0 && b.value==0 && a.value!=0) {ss4=d.value*(-1);s1=" x<SUP>3</SUP> - ";}
    if (d.value<0 && c.value==0 && b.value==0 && a.value==0) {ss4=d.value*(-1);s1=" - ";}
    if (d.value<0) {ss4=d.value*(-1);s3=" x - ";}

    if (a.value!=0 && b.value==0 && c.value==0 && d.value==0) s1=" x<SUP>3</SUP> ";
    if (b.value!=0 && c.value==0 && d.value==0) s2=" x<SUP>2</SUP> ";
    if (c.value!=0 && d.value==0) s3=" x ";
    s4=" = 0";
    if(a.value==0 && b.value==0 && c.value==0 && d.value==0 ) ss4=" 0 ";
    s+='<br><b><CENTER>'+ss1+s1+ss2+s2+ss3+s3+ss4+s4+'</CENTER>

';
    if(a.value==0 && b.value==0 && c.value==0 && d.value==0 )
    	s+='<b><CENTER>Řešení rovnice je osa X.</CENTER>
';
    if(a.value==0 && b.value==0 && c.value==0 && d.value!=0 )
    	s+='<b><CENTER>Řešení rovnice neexistuje.</CENTER>
';
    if(a.value==0 && b.value==0 && c.value!=0 ){
    	xx=d.value/c.value;
    	s+='<b><CENTER>Řešení rovnice je x = '+xx+'</CENTER>
';}
with (Math){	
    if(a.value==0 && b.value!=0 ){
// Kvadraticka rovnice    	
    	if(c.value==0 && d.value==0 ){
				xx1=0;
    			s1='<br><CENTER>Řešení kvadratické rovnice je jeden</CENTER>
';
    			s1+='<CENTER>dvojnásobný kořen <BR> x1 = x2 ='+xx1+'</CENTER>
';
    	}
    	if(c.value!=0 && d.value==0 ){
				xx1=0;
				xx2=zakrouhlit(-c.value/b.value);
    			s1='<br><CENTER>Řešení kvadratické rovnice jsou dva</CENTER>
';
    			s1+='<CENTER>různé reálné kořeny <BR> x1 = '+xx1+' <BR> x2 = '+xx2+'</CENTER><BR>';
    	}
    	if(c.value==0 && d.value!=0 ){
    		per=-d.value/b.value;
    		if (per>=0){
				xx1=zakrouhlit(sqrt(per));
				xx2=zakrouhlit(-sqrt(per));
    			s1='<br><CENTER>Řešení kvadratické rovnice jsou dva</CENTER>
';
    			s1+='<CENTER>různé reálné kořeny <BR> x1 = '+xx1+' <BR> x2 = '+xx2+'</CENTER><BR>';
    		}	
    		else{
    			if (abs(sqrt((per*(-1))))==0) {xx1=0;xx2=0;}
				else { xx1='i '+zakrouhlit(abs(sqrt((per*(-1)))));
						xx2='-i '+zakrouhlit(abs(sqrt((per*(-1)))));}
	 			s1='<br><CENTER>Řešení kvadratické rovnice jsou dva</CENTER>
';
    			s1+='<CENTER>různé komplexní kořeny (komplexně sdružené) <BR> x1 = '+xx1+' <BR> x2 = '+xx2+'</CENTER>
';
    		}	
    	}
    	if(c.value!=0 && d.value!=0 ){
			D2=c.value*c.value-4*d.value*b.value;
			if (D2>0){
				xx1=zakrouhlit((-c.value+sqrt(D2))/2/b.value);
				xx2=zakrouhlit((-c.value+sqrt(D2))/2/b.value);
    			s1='<br><CENTER>Řešení kvadratické rovnice jsou dva</CENTER>
';
    			s1+='<CENTER>různé reálné kořeny <BR> x1 = '+xx1+' <BR> x2 = '+xx2+'</CENTER><BR>';
			}
			if (D2<0){
				xx1=zakrouhlit(-c.value/2/b.value);
				xx2=zakrouhlit(-c.value/2/b.value);
				D2=D2*(-1);
				D22=zakrouhlit(abs(sqrt(D2)/2/b.value));
				if (c.value!=0){
					xx1+=' + i '+D22;
					xx2+=' - i '+D22;}
				else{	
					xx2+=' - i '+D22;
					xx1+='i '+D22;}
	 			s1='<br><CENTER>Řešení kvadratické rovnice jsou dva</CENTER>
';
    			s1+='<CENTER>různé komplexní kořeny (komplexně sdružené) <BR> x1 = '+xx1+' <BR> x2 = '+xx2+'</CENTER>
';
			}
			if (D2==0){
				xx1=zakrouhlit(-c.value/2/b.value);
    			s1='<br><CENTER>Řešení kvadratické rovnice je jeden</CENTER>
';
    			s1+='<CENTER>dvojnásobný kořen <BR> x1 = x2 ='+xx1+'</CENTER>
';
			}
		}	
	}
    if(a.value!=0){
// Kubicke rovnice    	

		p=(3*a.value*c.value-b.value*b.value)/9/a.value/a.value;
		q=(2*b.value*b.value*b.value/27/a.value/a.value/a.value-b.value*c.value/3/a.value/a.value+d.value/a.value)/2;
		D3=p*p*p+q*q;
		if (p==0 && q==0){
	    	xx1=zakrouhlit(-b.value/3/a.value);
   		 	xx2=zakrouhlit(-b.value/3/a.value);
    		xx3=zakrouhlit(-b.value/3/a.value);
	    	s1='<br><CENTER>Řešení kubické rovnice je <BR> trojnásobný nulový kořen :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
    	}	
		if (D3>0){
			if ((-q+sqrt(D3))<0)
				uu=-pow((q-sqrt(D3)),1/3);
			else	
				uu=pow((-q+sqrt(D3)),1/3);
			vv=-pow((q+sqrt(D3)),1/3);
			xx1=zakrouhlit(uu+vv-b.value/3/a.value);
			xx2=zakrouhlit(-uu/2-vv/2-b.value/3/a.value);
			xx3=zakrouhlit(-uu/2-vv/2-b.value/3/a.value);
			xx2+='+ i '+zakrouhlit(abs(sqrt(3)*(uu-vv)/2));
			xx3+='- i '+zakrouhlit(abs(sqrt(3)*(uu-vv)/2));
	    	s1='<br><CENTER>Řešení kubické rovnice je <BR> jeden reálný kořen a dva komplexně sdružené kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
		}
		if (q>=0) ee=1;
		if (q<0) ee=-1;
		r=ee*sqrt(abs(p));
		if (p<0){
			if(D3<=0){
				fi=acos(q/r/r/r);
				xx1=zakrouhlit(-2*r*cos(fi/3)-b.value/3/a.value);
				xx2=zakrouhlit(2*r*cos(PI/3-fi/3)-b.value/3/a.value);
				xx3=zakrouhlit(2*r*cos(PI/3+fi/3)-b.value/3/a.value);
		    	s1='<br><CENTER>Řešení kubické rovnice je <BR> tři různé reálné kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
			}
			else{
///
//		    	s1='<br><CENTER>Řešení kubické rovnice je <BR> jeden reálný kořen a dva komplexně sdružené kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
			}
    	}	
		if (p>0){
///
//	    	s1='<br><CENTER>Řešení kubické rovnice je <BR> jeden reálný kořen a dva komplexně sdružené kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
    	}
    	if (q==0 && p!=0){
    		xx1=zakrouhlit(-b.value/3/a.value);
    		if (p>0){
				xx2=' + i '+zakrouhlit(sqrt(abs(3*p)));
				xx3=' - i '+zakrouhlit(sqrt(abs(3*p)));
		    	s1='<br><CENTER>Řešení kubické rovnice je <BR> jeden reálný kořen a dva komplexně sdružené kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
    		}
    		else{
				xx2=zakrouhlit(sqrt(abs(3*p))-b.value/3/a.value);
				xx3=zakrouhlit(-sqrt(abs(3*p))-b.value/3/a.value);
		    	s1='<br><CENTER>Řešení kubické rovnice je <BR> tři různé reálné kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
    		}
    	}
    	if ((p==0) && (q!=0)){
    		if (q<0){
    			r=q*(-1);
    			fii=PI;
    		}
    		else{
    			r=q;
    			fii=0;
    		}
    		xx1=zakrouhlit(pow(r,1/3)*cos(fii/3)-b.value/3/a.value);
    		xx1+='i ( '+zakrouhlit(pow(r,1/3)*sin(fii/3))+' )';
    		xx2=zakrouhlit(pow(r,1/3)*cos((fii+1*PI)/3)-b.value/3/a.value);
    		xx2+='i ( '+zakrouhlit(pow(r,1/3)*sin((fii+1*PI)/3))+' )';
    		xx3=zakrouhlit(pow(r,1/3)*cos((fii+2*PI)/3)-b.value/3/a.value);
    		xx3+='i ( '+zakrouhlit(pow(r,1/3)*sin((fii+2*PI)/3))+' )';
	    	s1='<br><CENTER>Řešení kubické rovnice je <BR> tři různé komplexní kořeny :<BR>x1 = '+xx1+' <BR> x2 = '+xx2+' <BR> x3 = '+xx3+'</CENTER>
';
    	}
    	
  	}
}
	s+=s1;
	showModalDialog('vypocetTemp.htm',s,'dialogWidth=400pt;dialogHeight=250pt');
	window.status="Cekam na rozkaz...";
    
 }
<!-- konec skriptu -->
</script>


<p align="center">Ax<sup>3</sup> + Bx<sup>2</sup> + Cx + Dx = 0</p>
<p align="center"><font size="4" color="#000000"><input type="text" name="a" value="" onblur="je_cislo(a)" size="10" maxlength="10"> x<sup>3</sup> + <input type="text" name="b" value="" onblur="je_cislo(b)" size="10" maxlength="10"> x<sup>2</sup> + <input type="text" name="c" value="" onblur="je_cislo(c)" size="10" maxlength="10"> x +  <input type="text" name="d" value="" onblur="je_cislo(d)" size="10" maxlength="10">  = 0</p>
<p align="center"><input type="button" onclick="vypocet()" value="Výpočet">  
<input type="button" onclick="reset()" value="Vynulovat"></p>
</td>
</tr>
</table>
<h2><a href="http://www.celysvet.cz/kubicka-rovnice-realne-a-komplexni-koreny.php" title="Článek Výpočty rovnice poskytl www.celysvet.cz">Článek Výpočty rovnice poskytl www.CELYSVET.cz. Více článků ZDE ></a></h2>
<h2><a href="http://www.celysvet.cz/fotky-kubicka-rovnice-realne-a-komplexni-koreny-foto-obrazky" title="Fotky, obrázky, foto: Výpočty rovnice"><font color="green">Foto k článku: Výpočty rovnice ></font></a></h2>
Zpět na článek >>>

Navigace: A B C Č D E F G H I J K L M N O P Q R Ř S Š T U V W X Y Z Ž VŠE
Podpořte nás · Kontakt· Kniha návštěv · RoboStav
Copyright (c) 2024 by CELÝSVĚT. Všechna práva vyhrazena!
Kontaktní e-mail: celysvet(zav)email.cz
Výpočty rovnice

Fotogalerie (1)...

Přidat foto...

Svátek má Bohumír, zítra Bohdan
Psi • Kocky • Pokojové rostliny • Auta • Státy světa • Matematika • Recepty • IQ test • IQ test 2 • Dopravní značky