Mp3 indirme programı MediaDrug Tıkla indir

Geri Dön   Wardom.Org > Bilgisayar Güvenliği > Kriptografi

Wardom.Org

-

Kök alma denklemini bilen var mı, ya da öyle birşey var mı?

-

Bilgisayar Güvenliği - Kriptografi

 
Eski28-03-2006, 18:57   #1
toptanci1
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - toptanci1
Kök alma denklemini bilen var mı, ya da öyle birşey var mı?

144'ün karekökünü nasıl alıyoruz arkadaşları, ya da bir sayı atalım = 12345678, bunun karekökü ya da küp kökünü hangi formülle bulabiliriz(karekökü ya da küp kökü olan başka 8-9 haneli sayı da olur). Visual Basic'te program yazıyorum,hesap makinasına bu işi yaptıracağım ama formül yok (aslında Windows altındaki kütüphane -library- dosyalarından birini çağırarak (sqrt koduylaydı sanırım) yaptırılıyor ama ondaki sayılar bilgisayarın ezberinde olan sayılar!).

Yüksek matematik bilmeye mi gerek var,çünkü böyle bir denklem varsa bile lise eğitiminde gördüğümü hatırlamıyorum. Logaritmanın ,biraz, bu köklerle ilgisi vardı ama o kadar...
 

Eski28-03-2006, 20:21   #2
ayyash07
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - ayyash07

ortaokulda görmüştük karekök almayı ama yıllar öncesinde kaldı o bende hala merak ediom bilen varsa benden +karma
 

Eski30-03-2006, 09:16   #3
ImPaRaTo®
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - ImPaRaTo®

Dim a, b

Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text & 6
End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text & 5
End Sub

Private Sub Command13_Click()
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command14_Click()
a = Text1.Text
Label1.Caption = "/"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command15_Click()
b = Text1.Text
If (Label1.Caption = "+") Then
Text1.Text = Val(a) + Val(b)
Else
If (Label1.Caption = "-") Then
Text1.Text = Val(a) - Val(b)
Else
If (Label1.Caption = "/") Then
Text1.Text = Val(a) / Val(b)
Else
If (Label1.Caption = "x") Then
Text1.Text = Val(a) * Val(b)
Else
If (Label1.Caption = "Mod") Then
Text1.Text = Val(a) Mod Val(b)


End If
End If
End If
End If
End If

End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command17_Click()
a = Text1.Text
Label1.Caption = "+"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command18_Click()
a = Text1.Text
b = Val(a) * Val(a)
Text1.Text = b
Text1.SetFocus
End Sub

Private Sub Command19_Click()
a = Text1.Text
b = Sqr(a)
Text1.Text = b
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
End Sub

Private Sub Command20_Click()
a = Text1.Text
Label1.Caption = "Mod"
Text1 = ""
End Sub

Private Sub Command21_Click()
a = Text1.Text
Text1 = "3.1415926535897932384626433832795"
Label1.Caption = "pi"
End Sub

Private Sub Command22_Click()
mesaj = MsgBox("Hesap Makinesinden Çıkmak İstiyormusunuz?", vbYesNo + vbQuestion, "Hesap Makinesi")
If mesaj = vbNo Then
Form1.Show
Else
End
End If
End Sub

Private Sub Command23_Click()
Dim s As String
s = Text1.Text
Text1.Text = s - 1
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & 3
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & 4
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "."
End Sub

Private Sub Command6_Click()
a = Text1.Text
Label1.Caption = "x"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command7_Click()
a = Text1.Text
Label1.Caption = "-"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Form_Load()
Text2 = "Uğur Engin Okumuş"
Text3 = "11\D 115"
Text1 = ""
Command13.ToolTipText = "Temizle"
Command22.ToolTipText = "Çıkış"
Command19.ToolTipText = "Karekökü Alır"
Command18.ToolTipText = "Karesini Alır"
Command20.ToolTipText = "Bölümden Kalanı Alır"
Command15.ToolTipText = "Eşittir"
Command14.ToolTipText = "Bölü"
Command6.ToolTipText = "Çarpı"
Command7.ToolTipText = "Eksi"
Command17.ToolTipText = "Artı"
Command8.ToolTipText = "Dokuz"
Command9.ToolTipText = "Sekiz"
Command10.ToolTipText = "Yedi"
Command11.ToolTipText = "Altı"
Command12.ToolTipText = "Beş"
Command4.ToolTipText = "Dört"
Command3.ToolTipText = "Üç"
Command2.ToolTipText = "İki"
Command1.ToolTipText = "Bir"
Command21.ToolTipText = "pi sayısı"
Command5.ToolTipText = "Nokta"
Command16.ToolTipText = "Sıfır"
End Sub

Private Sub mnböl_Click()
a = Text1.Text
Label1.Caption = "/"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub mnçarp_Click()
a = Text1.Text
Label1.Caption = "x"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub mnçıkar_Click()
a = Text1.Text
Label1.Caption = "-"
Text1 = ""
Text1.SetFocus
End Sub

Private Sub mnçıkış_Click()
Dim c
c = MsgBox("Hesap Makinesinden Çıkıyorsunuz!!", vbOKCancel + vbInformation, "Hesap Makinesi")
If c = vbOK Then
End
Else
Form1.Show
End If
End Sub

Private Sub mnkare_Click()
a = Text1.Text
b = Val(a) * Val(a)
Text1.Text = b
Text1.SetFocus
End Sub

Private Sub mnkök_Click()
a = Text1.Text
b = Sqr(a)
Text1.Text = b
Text1.SetFocus
End Sub

Private Sub mnmod_Click()
a = Text1.Text
Label1.Caption = "Mod"
Text1 = ""
End Sub

Private Sub mntopla_Click()
a = Text1.Text
Label1.Caption = "+"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub mnyeni_Click()
Text1 = ""
End Sub
 

Eski30-03-2006, 09:32   #4
TURK_genci
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - TURK_genci
Arrow

Dostum karekök almak için hangi sayının karekökünü alacaksan onu çarpanlara ayırman gerekiyor örneğin 144 demissin ya onun çarpanları 2*2*2*2*3*3 dür bu sayıları çarparsan 144 elde edersin yada diğer bir değişle çarpanları en küçük sayıya bölersin böylede çarpanları bulursun
 

Eski30-03-2006, 10:01   #5
OuTLaWsys
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - OuTLaWsys

TURK_genci nin dediği dogru ama mesala 146 nın karekökünü arıyorsan o zaman onu 144+2 gibi düşünüceksin işin içine integral falan girer o şekilde yaklaşık cevap bulursun.Bir yüksek mat. kitabında bunlar vardır bulabilirsin ordan
 

Eski30-03-2006, 10:40   #6
ImPaRaTo®
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - ImPaRaTo®

http://www.sadakat.net/bilgisayar/pr...ic/index18.htm

bu kesin ihtiyacını çözer
 

Eski02-04-2006, 11:15   #7
Hider
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - Hider

Merhaba,
genel olarak bir denklemin köküne ulaşmak için "newton approximation method" dediğimiz bir method kullanılır. Mesela 144 sayısının karekökünü bulmak için "x^2-144=0" denklemine bu methodu uygulamak yeterli.

http://mathworld.wolfram.com/NewtonsMethod.html adresinde detaylı olarak okumak mümkün.

-------------------

benzer bir şekilde 25'in karekökü'nü alalım

önce bir tahmin değeri atıyorum : 1 olsun
25/1 = 25
demek ki tam yaklaşamamışım ama demek ki 25'in karekökü 1 ile 25 arasında tam ortadan deneyelim bu kez "1+25=26" "26/2=13"
"25/13=1.9230769230769231"
13+1.9230769230769231=14.923076923076923
14.923076923076923 /2= 7.4615384615384617
25/7.4615384615384617=3.3505154639175259
7.4615384615384617+3.3505154639175259=10.812053925 455988
10.812053925455988/2=5.406026962727994
.
.
.

eh yaklaştık sayılır. yani kısaca
g2=(x/g1+g1)/2
işlemini defalarca iç içe uygulayarak... (g1 yerine ikinci işlemde bulduğumuz g2'yi koyarak)
sonucu bulduk...
 

Eski02-04-2006, 11:20   #8
Hider
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - Hider

Bu arada programlama dillerindeki math kütüphaneleri/paketleri de yukarida anlattiğim sekilde hesaplarlar karekök alma işlemini.
 

Eski03-04-2006, 00:57   #9
helix
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - helix

arkadaşım eğer bir problemin analitik yani gerçek çözümü varsa yaklaşık çözümü kullanılmaz. Kök alma işlemleri basit kökler için analitik yoldan yapılır. Zaten ekte bişeler yazdım sana fikir olur. Ama karışık kök almalar için birçok yöntem vardır. En kullanışsızı da Newton yöntemidir Çünkü basit algoritma geç source eder. Eğer karışık bişeler istersen söle onu da anlatayım ekteki bilgiler senin orta 2 bililerinle bile çıkarılacak şeyler. Önce kolay yolu dene
Attached Thumbnails
IMG.jpg  
 

Eski02-05-2006, 22:39   #10
HaCKeR_MeHDii
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - HaCKeR_MeHDii
Thumbs up

karekökünü alman gereken sayıyı kağıt üzerinde çözebilirsin x2=x.x senin burada bulmak istediğin x öleyse mantığını kullan ve şöyle bir formül üret bir sayının kare kökü,bir sayının kendisiyle çarpımına eşit öleyse ne demek bu;

X=x.x burada X karesi, x karekökü bunun bir formülü olacağını zannetmiyorum yalnız şöle bi yöntem var kolay mesele bi arkadaş ta söylemiş çarpanlarına ayıracaksın diye...

sayıyı asal çarpanlarına ayıracaksın;
asal sayılar sadece kendisi ve 1 e bölünen sayılardır 1 asal sayı olarak alınmaz(kendisi de bir ve sadece 1 e bölünür x hem x e hemde 1 e bölünmeli yani toplam iki sayıya bölünmeli...)2,3,5,7,11,13,17,19,23,19,31,37,.... diye gider asal sayılar....
ama sana ilk beş on tanesi yeterli....
şimdi asal çarpanlarına ayırmaya gelelim;
örneğin bir sayı alalım rastgele;

1468
1468/2=734/2=367/2=bölünmez öleyse diğer asal sayıya geçeceğiz 367/3=bölünmez 367/5=bölünmez öleyse 1468 in asal çarpanları 2*2*367 buradan 4*367 4 kök dışına çıkar 2kök367 olurbunu 2 ile sadeleştirisek 0.367 buluruz... 0.367 sayısı logaritma cetvelinden bul bu sayı daha da büyük olabilir ama mutlaka olması gerek yani senin elinde kalan rakamlar olması gerekli logaritma cetvelinde oradaki sayıya karşılık gelen sayıyı, böle bildiğin asal sayılara yani asal çarpanlarının çarpımı ile çarp çıkan sonuç elindeki sayının karekökü olacaktır...
1468=2*2*367=4*367 buradan 0.367 sayısına karşılık gelen log cetvelindeki sayıyı 4*367 deki altı çizili olan 4 ile çarparsak 1468 sayısının karekökünü bulmuş oluruz....

bunu log cetvelim olsaydı gösterirdim ama olmadı yıllar oldu daha ilk okulda öğrenmiştim bi öğretmenimden eğer sorun çıkarsa affola yanlış hatırlıyor olabilirim...

saygılar, sevgiler...

Düzenleyen HaCKeR_MeHDii : 02-05-2006 22:42. Sebep: yeni bir bilgi
 

Eski03-05-2006, 10:38   #11
OuTLaWsys
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - OuTLaWsys

Arkadaşlar yukarda da belirttim benim bildiğim kadarıyla hsap makinaları bilgisayarlar karekökü int. , seriye açılım yardımıyla buluyorlar.Yüksek Mat. Kitablarına bakarsanız bunu görebilirsiniz

Örnek olarak 24 ün karekökü aranıyorsa.Burda sayı 25-1 gibi düşünülüp işlem yaptırılır ve seriye açılır.Zaten ne kadar fazla seriye açarsa sonuç o kadar hassas olur.Hesap makinalarının hassasiyet ölçüsüde budur.
Yüksek Matematik kitabı bulursan iii olur senin için
 

Eski02-07-2006, 12:40   #12
acaromer
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - acaromer

Arkadasım karekök sayının 1/2. kuvvetidir..

Mesela 2=4^(1/2) bu Visual basicte boyle

16=pow(4,2) C'de de bu sekildedir..

pow üs anlamına gelmektedir. 4üssü2=16
 

Eski02-07-2006, 13:04   #13
Penqueen
 
Kök alma denklemini bilen var mı, ya da öyle birşey var mı? - Penqueen

/************************************************** **********************

Bir sayıyı asal çarpanlarına ayırmak

************************************************** **********************/

#include <stdio.h>

int main ()
{
int s;
int i;

printf (" Bir sayi giriniz: ");
scanf ("%d", &s);

printf ("\n");

// Algoritma oluştururken lise matematik dersinde kullandığımız
// yöntemden yararlandık. Kullanıcının girdiği sayı ilk önce ikiye
// bölünmek isteniyor. Eğer bölünürse 2'nin bir asal çarpan olduğu
// anlaşılıyor ve ekrana yazdırılıyor. i = i - 1 ataması ile, sayı
// tekrar 2'ye bölünmeye çalışılıyor. 2'ye daha fazla bölünemiyorsa
// bu sefer aynı işlemler 3 için tekrarlanıyor...

for (i = 2; s != 1; i ++)
{
if (s % i == 0)
{
s /= i;

printf ("%5d", i);

i --;
}
}

printf ("\n");

return 0;
}

/************************************************** **********************

OUTPUT:
------
Bir sayi giriniz: 420

2 2 3 5 7

************************************************** **********************/

--------------------------------------------------
// Amaç : İkinci dereceden bir denklemin köklerini bulmak
//
//-----------------------------------------------------------------------

#include <stdio.h>
#include <math.h>

//------------------------------ main -----------------------------------

int main()
{
double a, b, c;
double delta;
double x1, x2;

// Denklem ax2 + bx + c = 0 şeklindedir.
a = 1;
b = 5;
c = 6;

// X1,2 = (b ± sqrt (Δ))/2a formülü kullanılıyor

delta = pow (b, 2) - 4 * a * c; // Δ = b2 - 4ac

// Disktriminant değerinin sıfırdan küçük olması,
// reel kök olmadığını gösterir.
if (delta < 0)
{
printf (" Reel kok yoktur!\n");
}

else
{
x1 = (-b - sqrt (delta)) / (2 * a);
x2 = (-b + sqrt (delta)) / (2 * a);

printf (" x1 : %f\n", x1);
printf (" x2 : %f\n", x2);
}

return 0;
}


/************************************************** **********************

Verilen iki sayının OKEK ve OBEB değerleri

************************************************** **********************/

#include <stdio.h>

int main()
{
int sayi1, sayi2, i;

printf (" Write two numbers : ");
scanf ("%d%d", &sayi1, &sayi2);

// iki sayının OKEK değeri en fazla iki sayının çarpımı olabilir.
// (iki sayı aralarında asalsa bu durum gerçekleşir.) Bu yüzden
// döngünün (sayi1 * sayi2)'ye kadar dönmesi yeterlidir.

for (i = 1; i <= sayi1 * sayi2; i ++)
{
if (i % sayi1 == 0 && i % sayi2 == 0)
{
// OKEK değeri her iki sayıya da tam olarak bölünür.
// Bu durumun görüldüğü andaki i değeri iki sayının
// ortak katlarının alabildiği en küçük değerdir.

printf (" OKEK : %d\n", i);

break;
}
}

// OBEB değeri, en fazla sayılardan büyük olanın değeri kadar
// olabilir. (diğer sayının değeri bir ise.) Bu nedenle
// döngünün başlangıç değeri olarak sayılardan büyük olanını
// almak yeterli olacaktır.

(sayi1 > sayi2) ? i = sayi1 : i = sayi2;

for (; i > 0; i --)
{
if (sayi1 % i == 0 && sayi2 % i == 0)
{
// OBEB değeri her iki sayıya da tam olarak bölünebilir.
// Bu durumun görüldüğü andaki i değeri iki sayıyı tam
// olarak bölebilecek en büyük tam sayıdır.

printf (" OBEB : %d\n", i);

break;
}
}

return 0;
}

/************************************************** **********************

OUTPUT:
------
Write two numbers: 42 28
OKEK : 84
OBEB : 14

************************************************** **********************/


bunlarda ek bilgiler olsun
 

Eski     0
Kök alma denklemini bilen var mı, ya da öyle birşey var mı?

karekok bulma algoritmasi, kup kök alma yöntemleri, kok almak, küp kök alma, küp kök karekök bulma algoritmaları, basit karekok bulma yontemi, vs basic de kök alma, kup kök alma hesap makinesi, karekök alma hesap makinesi, hesap makınasında karekoku nasıl alıyoruz.

24 sayısının karekökü hesaplama, hesap makinesinde kup kok nasil alinir, küp kök alma programı, visual studio da karekök alma, Kök alma denklemini bilen var mı, ya da öyle birşey var mı?.

Cevapla





Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)
 

Forum saati Türkiye saatine göredir. GMT +2. Şuan saat: 06:32.
(Türkiye için GMT +2 seçilmelidir.)



tatil, sitemap, pvp serverler, görüntülü sohbet, bodrum escort, Kürtaj, ukash, elektronik sigara, Mobilya, video izle, msn show, kurabiye tarifleri, maldivler turu, e okul


İçerik sağlayıcı paylaşım sitelerinden biri olan Wardom Internet Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Wardom hakkında yapılacak tüm hukuksal şikayetler için webmaster \@wardom.org adresi ile iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 (üç) gün içerisinde Wardom yönetimi olarak tarafımızca gereken işlemler yapılacak ve avukatlarımız size dönüş yapacaktır.


sikiş