Alik Setiawan

Saturday, December 7, 2019

Jenis-jenis sepeda bromptom sebut saja "Si Mungil Brompton"

8:11 AM bromptom, cfd, komunitas sepeda, komunitas sepeda lipat, seli bromptom, sepeda bromptom, sepeda eropa, sepeda lipat, sepeda unik, viral sepeda No comments

Di era modern seperti saat ini sepeda bukanlah sekedaar alat transportasi saja. Beberapa orang membeli sepeda bukan dikarenakan kebutuhan melainkan sebagai gaya hidup dan menyalurkan hobi. Salah satu jenis sepeda yang digemari adalah sepeda lipat Brompton yang merupakan sepeda lipat berkualitas premium.Para pecinta olahraga sepeda pasti tidak asing dengan merek tersebut, bagaimana tidak kualitas dari sepeda Brompton tidak perlu diragukan lagi selain itu design dari sepeda ini juga sangat menrik dan elegan.

Beberapa kelebihan sepeda lipat brompton yang membuatnya begitu menarik untuk dimiliki adalah

Praktis, sepeda lipat Brompton tidak memakaan banyak tempat jadi mudah dibawa kemana-mana.

Meskipun sepeda ini sangat ringan, jangan salah sepeda Brompton memiliki kerangka kuat yang menciptakan pengalaman bersepeda dengan lebih aman dan nyaman.

Komponen sepeda lipat brompton yang dibuat dengan detail dan persisi akan membuat pemilik sepeda ini tidak mengaalami kesulitan saat akan melipatnya

Untuk urusan harga, sepeda lipaat yang satu ini memangnlah diatas rata rata sepeda lipat lain. Tapi harga tersebut mejadi waajar jika kita melihat dari sisi kualitas yang ditawarkan dan sejarah dari sepeda ini. Awalnya sepeda lipat brompton ini dibuat untuk para petinggi kerajaan Inggris yang diciptakan oleh Andrew Ritchie. Pada tahun 1981 sepeda ini pertaamakali dirpduksi di Brentfort, Inggris.

Lingkar ban dari si mungil brompton ini hanya 16 inchi saja, namun dengan frame Cromolly membuatnya kuat dan tidak meliuk liuk saat digunakan. Sepeda Brompton memiliki beberapa tipe yang bisa disesuaikan dengan kebutuhan penggunanya:

S Type: “S”Jenis stang S pada Brompton merupakan stang yang paling rendah, bentuknya datar. Stang S ini cocok untuk berolahraga, dengan tipe stang datar akan membuat pemakainya seperti menggunakan road bike.

M Type: “M” merupakan kode untuk Medium. Jenis stang M merupakan jenis yang paling diminati dan digunakan. Sepeda ini berbentuk klasik dengan model stang melengkung dibagian tengahnya.

H Type: “H” merupakan kode untuk Hig. Sudah bisa dibayangkan bukan, bahwa sepeda lebih tinggi dibandingkan tipe S dan M. sepeda ini sangat cocok untuk bersepeda santai karena memiliki stang yang tinggi makaa badan pengguna tidak perlu membungkuk seperti saat menggunakan tipe S.

P Type: Jenis stang P memiliki bentuk seperti kupu-kupu dan bisa dipakai untuk berbagai jenis posisi bersepeda. Sepeda dengan stang P cocok untuk bersepeda jarak jauh karena memiliki stang yang unik. Posisi tangan pengguna bisa di atas, bawah ataupun di pinggir stang sepeda sehingga penggunanya lebih mudah mengatur posisi duduk.

Demikian sedikit gambaran tentang si mungil brompton, semoga bermanfaat. J

Thanks : Nida' Anis N

JJJJJJJJJJJJJJJJJJJJJJJJ

Algoritma Genetika dibuktikan dengan enam Cromosom Secara ACAK berbantuan Visual Basic 2012

6:05 AM AI, algoritma, algoritma genetika, Artificial, Fuzzy, genetika, Jaringan, Jaringan Syaraf Tiruan, JST, Kecerdasan buatan 3 comments

Algoritma Genetika dibuktikan dengan enam Cromosom Secara ACAK

1. Desain Tampilan

2. Program Visual Basic

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace AL_Set

{

public partial class Form1 : Form

{

double FungOb, FungOb2, FIT, x;

int[,] Populasi = new int[4, 6];

int[,] Proba = new int[4, 6];

double[] Roll = new double[6];

double[] Roll2 = new double[6];

int[] FO = new int[6];

double[] FI = new double[6];

double[] PB = new double[6];

double[] KP = new double[6];

int[][] CH = new int[][]

{

new int[4],

};

public Form1()

{

InitializeComponent();

}

private void RANDOM_Click(object sender, EventArgs e)

{

Random n = new Random();

for (int i = 1; i < 4; i++)

{

for (int j = 0; j < 6; j++)

{

for (int l = 0; l < 1000; l++)

{

Populasi[0, j] = n.Next(30);

Populasi[i, j] = n.Next(10);

Roll[j] = n.NextDouble();

Roll[j] = Math.Round(Roll[j], 3);

}

//Nilai awal chromosome

Cro00.Text = Convert.ToString(Populasi[0, 0]);

Cro01.Text = Convert.ToString(Populasi[0, 1]);

Cro02.Text = Convert.ToString(Populasi[0, 2]);

Cro03.Text = Convert.ToString(Populasi[0, 3]);

Cro04.Text = Convert.ToString(Populasi[0, 4]);

Cro05.Text = Convert.ToString(Populasi[0, 5]);

Cro10.Text = Convert.ToString(Populasi[1, 0]);

Cro11.Text = Convert.ToString(Populasi[1, 1]);

Cro12.Text = Convert.ToString(Populasi[1, 2]);

Cro13.Text = Convert.ToString(Populasi[1, 3]);

Cro14.Text = Convert.ToString(Populasi[1, 4]);

Cro15.Text = Convert.ToString(Populasi[1, 5]);

Cro20.Text = Convert.ToString(Populasi[2, 0]);

Cro21.Text = Convert.ToString(Populasi[2, 1]);

Cro22.Text = Convert.ToString(Populasi[2, 2]);

Cro23.Text = Convert.ToString(Populasi[2, 3]);

Cro24.Text = Convert.ToString(Populasi[2, 4]);

Cro25.Text = Convert.ToString(Populasi[2, 5]);

Cro30.Text = Convert.ToString(Populasi[3, 0]);

Cro31.Text = Convert.ToString(Populasi[3, 1]);

Cro32.Text = Convert.ToString(Populasi[3, 2]);

Cro33.Text = Convert.ToString(Populasi[3, 3]);

Cro34.Text = Convert.ToString(Populasi[3, 4]);

Cro35.Text = Convert.ToString(Populasi[3, 5]);

//Roulete whell

Rou0.Text = Convert.ToString(Roll[0]);

Rou1.Text = Convert.ToString(Roll[1]);

Rou2.Text = Convert.ToString(Roll[2]);

Rou3.Text = Convert.ToString(Roll[3]);

Rou4.Text = Convert.ToString(Roll[4]);

Rou5.Text = Convert.ToString(Roll[5]);

}

private void PROCESS_Click(object sender, EventArgs e)

{

FungOb = 0;

FIT = 0;

for (int j = 0; j < 6; j++)

{

FO[j] = Math.Abs((Populasi[0, j] + Populasi[1, j] * 2 + Populasi[2, j] * 3 + Populasi[3, j]*4) - 30);

FungOb = FungOb + FO[j];

}

for (int j = 0; j < 6; j++)

{

FI[j] = FO[j] + 1;

FIT = FIT + (1/FI[j]);

}

for (int j = 0; j < 6; j++)

{

PB[j] = (1 / FI[j]) / FIT;

}

KP[0] = PB[0];

KP[1] = PB[0] + PB[1];

KP[2] = PB[0] + PB[1] + PB[2];

KP[3] = PB[0] + PB[1] + PB[2] + PB[3];

KP[4] = PB[0] + PB[1] + PB[2] + PB[3] + PB[4];

KP[5] = PB[0] + PB[1] + PB[2] + PB[3] + PB[4] + PB[5];

FungOb2 = FungOb / 6;

FungOb2 = Math.Round(FungOb2, 2);

for (int K = 0; K < 6; K++)

{

for (int J = 0; J < 4; J++)

{

if (Roll[K] < KP[0])

{

Proba[J,K] = Populasi[J,0];

} }

}

for (int i = 0; i < 100; i++)

{

for (int K = 0; K < 6; K++)

{

for (int J = 0; J < 4; J++)

{

if (KP[0] < Roll[K] && Roll[K] < KP[1])

{

Proba[J, K] = Populasi[J, 1];

}

if (KP[1] < Roll[K] && Roll[K] < KP[2])

{

Proba[J, K] = Populasi[J, 2];

}

if (KP[2] < Roll[K] && Roll[K] < KP[3])

{

Proba[J, K] = Populasi[J, 3];

}

if (KP[3] < Roll[K] && Roll[K] < KP[4])

{

Proba[J, K] = Populasi[J, 4];

}

if (KP[4] < Roll[K] && Roll[K] < KP[5])

{

Proba[J, K] = Populasi[J, 5];

}

}}}

CH[0] = new int[] { Proba[0, 0], Proba[1, 0], Proba[2, 0], Proba[3, 0] };

CH[1] = new int[] { Proba[0, 1], Proba[1, 1], Proba[2, 1], Proba[3, 1] };

CH[2] = new int[] { Proba[0, 2], Proba[1, 2], Proba[2, 2], Proba[3, 2] };

CH[3] = new int[] { Proba[0, 3], Proba[1, 3], Proba[2, 3], Proba[3, 3] };

CH[4] = new int[] { Proba[0, 4], Proba[1, 4], Proba[2, 4], Proba[3, 4] };

CH[5] = new int[] { Proba[0, 5], Proba[1, 5], Proba[2, 5], Proba[3, 5] };

x=0;

{

Random n = new Random();

for (int j = 0; j < 6; j++)

{

for (int l = 0; l < 1000; l++)

{

Roll[j] = n.NextDouble();

Roll[j] = Math.Round(Roll[j], 3);

}

if (Roll[j] < 0.25)

{

x++;

}

} while (x < 4);

//Fungsi Obyek

FO0.Text = Convert.ToString(FO[0]);

FO1.Text = Convert.ToString(FO[1]);

FO2.Text = Convert.ToString(FO[2]);

FO3.Text = Convert.ToString(FO[3]);

FO4.Text = Convert.ToString(FO[4]);

FO5.Text = Convert.ToString(FO[5]);

rata_FO.Text = Convert.ToString(FungOb2);

//Fitnes

fit0.Text = Convert.ToString(1/FI[0]);

fit1.Text = Convert.ToString(1/FI[1]);

fit2.Text = Convert.ToString(1/FI[2]);

fit3.Text = Convert.ToString(1/FI[3]);

fit4.Text = Convert.ToString(1/FI[4]);

fit5.Text = Convert.ToString(1/FI[5]);

total_Fit.Text = Convert.ToString(FIT);

//Probalitas

pro0.Text = Convert.ToString(PB[0]);

pro1.Text = Convert.ToString(PB[1]);

pro2.Text = Convert.ToString(PB[2]);

pro3.Text = Convert.ToString(PB[3]);

pro4.Text = Convert.ToString(PB[4]);

pro5.Text = Convert.ToString(PB[5]);

//Komulatif

kom0.Text = Convert.ToString(KP[0]);

kom1.Text = Convert.ToString(KP[1]);

kom2.Text = Convert.ToString(KP[2]);

kom3.Text = Convert.ToString(KP[3]);

kom4.Text = Convert.ToString(KP[4]);

kom5.Text = Convert.ToString(KP[5]);

// Populasi Baru Chromosome

Cro200.Text = Convert.ToString(Proba[0, 0]);

Cro201.Text = Convert.ToString(Proba[0, 1]);

Cro202.Text = Convert.ToString(Proba[0, 2]);

Cro203.Text = Convert.ToString(Proba[0, 3]);

Cro204.Text = Convert.ToString(Proba[0, 4]);

Cro205.Text = Convert.ToString(Proba[0, 5]);

Cro210.Text = Convert.ToString(Proba[1, 0]);

Cro211.Text = Convert.ToString(Proba[1, 1]);

Cro212.Text = Convert.ToString(Proba[1, 2]);

Cro213.Text = Convert.ToString(Proba[1, 3]);

Cro214.Text = Convert.ToString(Proba[1, 4]);

Cro215.Text = Convert.ToString(Proba[1, 5]);

Cro220.Text = Convert.ToString(Proba[2, 0]);

Cro221.Text = Convert.ToString(Proba[2, 1]);

Cro222.Text = Convert.ToString(Proba[2, 2]);

Cro223.Text = Convert.ToString(Proba[2, 3]);

Cro224.Text = Convert.ToString(Proba[2, 4]);

Cro225.Text = Convert.ToString(Proba[2, 5]);

Cro230.Text = Convert.ToString(Proba[3, 0]);

Cro231.Text = Convert.ToString(Proba[3, 1]);

Cro232.Text = Convert.ToString(Proba[3, 2]);

Cro233.Text = Convert.ToString(Proba[3, 3]);

Cro234.Text = Convert.ToString(Proba[3, 4]);

Cro235.Text = Convert.ToString(Proba[3, 5]);

}

private void button1_Click(object sender, EventArgs e)

{

this.Close();

}

private void button2_Click(object sender, EventArgs e)

{

Random n = new Random();

for (int i = 1; i < 4; i++)

{

for (int j = 0; j < 6; j++)

{

for (int l = 0; l < 1000; l++)

{

Populasi[0, j] = n.Next(30);

Populasi[i, j] = n.Next(10);

Roll2[j] = n.NextDouble();

Roll2[j] = Math.Round(Roll2[j], 3);

} }}

//Roulate ke 2

rou20.Text = Convert.ToString(Roll2[0]);

rou21.Text = Convert.ToString(Roll2[1]);

rou22.Text = Convert.ToString(Roll2[2]);

rou23.Text = Convert.ToString(Roll2[3]);

rou24.Text = Convert.ToString(Roll2[4]);

rou25.Text = Convert.ToString(Roll2[5]);

}}}

#visual Basic #algoritma #Algoritmagenetika

NB: Jika menginginkan file asli, silahkan PM melalui CP

Implenentasi Program Kecerdasan buatan Back Propagasi X Y dengan Visual Basic

1:41 AM Back Propagasi, Jaringan Syaraf Tiruan, JST, Kecerdasan buatan, kendali iot, kendali pada laptop, pemograman, penetas telur, Syaraf, teknologi, telur, Tiruan, tutorial, uno 1 comment

Implenentasi Program Kecerdasan buatan Back Propagasi X Y

1. Tampilan Layout

2. Program Visual Basic

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

{

public partial class Form1 : Form

{

double W1, W2, W3, W4, B, X1V1;

double X1V2, X1V3, X1V4, X2V1, X2V2, X2V3, X2V4;

double bV1, bV2, bV3, bV4, a, Yin, q;

double Zin1, Zin2, Zin3, Zin4, Z1, Z2, Z3, Z4;

double YN, Delta, DW1, DW2, DW3, DW4, DB, Din1, Din2, Din3, Din4;

double D1, D2, D3, D4, Error1, error;

double dX1V1, dX1V2, dX1V3, dX1V4;

double dX2V1, dX2V2, dX2V3, dX2V4, dB1, dB2, dB3, dB4;

double[] X1 = { 0, 0, 0, 0 };

double[] X2 = { 0, 0, 0, 0 };

double[] T = { 0, 0, 0, 0 };

double[] Y = { 0, 0, 0, 0 };

double[] Yout = { 0, 0, 0, 0 };

public Form1()

{

InitializeComponent();

}

private void Random_Click(object sender, EventArgs e)

{

Random n = new Random();

for (int i=0;i<1000;i++)

{

W1 = n.Next(-10000, 10000);

W1 = W1 / 10000;

w1awal.Text = Convert.ToString(W1);

W2 = n.Next(-10000, 10000);

W2 = W2 / 10000;

w2awal.Text = Convert.ToString(W2);

W3 = n.Next(-10000, 10000);

W3 = W3 / 10000;

w3awal.Text = Convert.ToString(W3);

W4 = n.Next(-10000, 10000);

W4 = W4 / 10000;

w4awal.Text = Convert.ToString(W4);

B = n.Next(-10000, 10000);

B = B / 10000;

BB.Text = Convert.ToString(B);

X1V1 = n.Next(-10000, 10000);

X1V1 = X1V1 / 10000;

x1v1awal.Text = Convert.ToString(X1V1);

X1V2 = n.Next(-10000, 10000);

X1V2 = X1V2 / 10000;

x1v2awal.Text = Convert.ToString(X1V2);

X1V3 = n.Next(-10000, 10000);

X1V3 = X1V3 / 10000;

x1v3awal.Text = Convert.ToString(X1V3);

X1V4 = n.Next(-10000, 10000);

X1V2 = X1V2 / 10000;

x1v4awal.Text = Convert.ToString(X1V4);

X2V1 = n.Next(-10000, 10000);

X2V1 = X2V1 / 10000;

x2v1awal.Text = Convert.ToString(X2V1);

X2V2 = n.Next(-10000, 10000);

X2V2 = X2V2 / 10000;

x2v2awal.Text = Convert.ToString(X2V2);

X2V3 = n.Next(-10000, 10000);

X2V3 = X2V3 / 10000;

x2v3awal.Text = Convert.ToString(X2V3);

X2V4 = n.Next(-10000, 10000);

X2V4 = X2V4 / 10000;

x2v4awal.Text = Convert.ToString(X2V4);

bV1 = n.Next(-10000, 10000);

bV1 = bV1 / 10000;

bv1awal.Text = Convert.ToString(bV1);

bV2 = n.Next(-10000, 10000);

bV2 = bV2 / 10000;

bv2awal.Text = Convert.ToString(bV2);

bV3 = n.Next(-10000, 10000);

bV3 = bV3 / 10000;

bv3awal.Text = Convert.ToString(bV3);

bV4 = n.Next(-10000, 10000);

bV4 = bV4 / 10000;

bv4awal.Text = Convert.ToString(bV4);

}

private void Calculate_Click(object sender, EventArgs e)

{

q = 0;

X1[0] = double.Parse(in_x11.Text);

X1[1] = double.Parse(in_x12.Text);

X1[2] = double.Parse(in_x13.Text);

X1[3] = double.Parse(in_x14.Text);

X2[0] = double.Parse(in_x21.Text);

X2[1] = double.Parse(in_x22.Text);

X2[2] = double.Parse(in_x23.Text);

X2[3] = double.Parse(in_x24.Text);

T[0] = double.Parse(in_t1.Text);

T[1] = double.Parse(in_t2.Text);

T[2] = double.Parse(in_t3.Text);

T[3] = double.Parse(in_t4.Text);

{

q++;

for (int i = 0; i < 4; i++)

{

Zin1 = bV1 + X1[i] * X1V1 + X2[i] * X2V1;

Zin2 = bV2 + X1[i] * X1V2 + X2[i] * X2V2;

Zin3 = bV3 + X1[i] * X1V3 + X2[i] * X2V3;

Zin4 = bV4 + X1[i] * X1V4 + X2[i] * X2V4;

Z1 = 1 / (1 + (Math.Pow(2.7, -Zin1)));

Z2 = 1 / (1 + (Math.Pow(2.7, -Zin2)));

Z3 = 1 / (1 + (Math.Pow(2.7, -Zin3)));

Z4 = 1 / (1 + (Math.Pow(2.7, -Zin4)));

YN = B + Z1 * W1 + Z2 * W2 + Z3 * W3 + Z4 * W4;

Y[i] = 1 / (1 + (Math.Pow(2.7, -YN)));

Error1 = T[i] - Y[i];

error = Math.Pow(Er, 2);

Delta = Er * (1 / (1 + (Math.Pow(2.7, -YN)))) * (1 - (1 / (1 + (Math.Pow(2.7, -YN)))));

DW1 = a / 10 * Delta * Z1;

DW2 = a / 10 * Delta * Z2;

DW3 = a / 10 * Delta * Z3;

DW4 = a / 10 * Delta * Z4;

DB = a / 10 * Delta;

Din1 = Delta * W1;

Din2 = Delta * W2;

Din3 = Delta * W3;

Din4 = Delta * W4;

D1 = Din1 * Z1 * (1 - Z1);

D2 = Din2 * Z2 * (1 - Z2);

D3 = Din3 * Z3 * (1 - Z3);

D4 = Din4 * Z4 * (1 - Z4);

dX1V1 = a / 10 * D1 * X1[i];

dX1V2 = a / 10 * D2 * X1[i];

dX1V3 = a / 10 * D3 * X1[i];

dX1V4 = a / 10 * D4 * X1[i];

dX2V1 = a / 10 * D1 * X1[i];

dX2V2 = a / 10 * D2 * X1[i];

dX2V3 = a / 10 * D3 * X1[i];

dX2V4 = a / 10 * D4 * X1[i];

dB1 = a / 10 * D1;

dB2 = a / 10 * D2;

dB3 = a / 10 * D3;

dB4 = a / 10 * D4;

X1V1 = X1V1 + dX1V1;

X1V2 = X1V2 + dX1V2;

X1V3 = X1V3 + dX1V3;

X1V4 = X1V4 + dX1V4;

X2V1 = X2V1 + dX2V1;

X2V2 = X2V2 + dX2V2;

X2V3 = X2V3 + dX2V3;

X2V4 = X2V4 + dX2V4;

bV1 = bV1 + dB1;

bV2 = bV2 + dB2;

bV3 = bV3 + dB3;

bV4 = bV4 + dB4;

W1 = W1 + DW1;

W2 = W2 + DW2;

W3 = W3 + DW3;

W4 = W4 + DW4;

B = B + DB;

Yin = B + Z1 * W1 + Z2 * W2 + Z3 * W3 + Z4 * W4;

Y[i] = 1 / (1 + (Math.Pow(2.7, -Yin)));

}

x1v1akhir.Text = Convert.ToString(X1V1);

x1v2akhir.Text = Convert.ToString(X1V2);

x1v3akhir.Text = Convert.ToString(X1V3);

x1v4akhir.Text = Convert.ToString(X1V4);

x2v1akhir.Text = Convert.ToString(X2V1);

x2v2akhir.Text = Convert.ToString(X2V2);

x2v3akhir.Text = Convert.ToString(X2V3);

x2v4akhir.Text = Convert.ToString(X2V4);

b1akhir.Text = Convert.ToString(bV1);

b2akhir.Text = Convert.ToString(bV2);

b3akhir.Text = Convert.ToString(bV3);

b4akhir.Text = Convert.ToString(bV4);

w1akhir.Text = Convert.ToString(W1);

w2akhir.Text = Convert.ToString(W2);

w3akhir.Text = Convert.ToString(W3);

w4akhir.Text = Convert.ToString(W4);

BA.Text = Convert.ToString(B);

//Err.Text = Convert.ToString(Er);

Error.Text = Convert.ToString(sqEr);

} while ( sqEr > 0.01);

Epoch.Text = Convert.ToString(q);

}

private void Check_Click(object sender, EventArgs e)

{

for (int i = 0; i < 4; i++)

{

if (Y[i] >= 0.5)

{

Yout[i] = 1;

}

else Yout[i] = 0;

}

hasil_y1.Text = Convert.ToString(Y[0]);

hasil_y2.Text = Convert.ToString(Y[1]);

hasil_y3.Text = Convert.ToString(Y[2]);

hasil_y4.Text = Convert.ToString(Y[3]);

hasil_yo1.Text = Convert.ToString(Yout[0]);

hasil_yo2.Text = Convert.ToString(Yout[1]);

hasil_yo3.Text = Convert.ToString(Yout[2]);

hasil_yo4.Text = Convert.ToString(Yout[3]);

}

private void Reset_Click(object sender, EventArgs e)

{

foreach (Control tx in this.Controls)

{