## Sunday, November 30, 2008

### Selamat jadi CPNS di UNDANA Kupang, Penny...

The Journal:

1. Asrama Putri Bone (Uni, Pram, Arif, Finta, Verra, Hijrah)

2. 7 Sup Konro, 2 Iga Bakar, 2 Jus Avokad Kopi, 2 Jus Avokad, ¹Es Teh, ¹Es Jeruk, ¹Jus Wortel, ¹Jus Pisang, ¹Jus Mangga (Uni, Pram, Arif , Finta, Verra, Hijrah, Ellida, Immel, Wahyu)

3. Ramai Mall Malioboro (Uni, Pram, Verra, Hijrah, si kembar ketinggalan)

4. Post Mode Gejayan (Uni, Pram, Verra, Hijrah, si kembar ketinggalan)

5. Asrama Putri Bone (Uni, Pram, Verra, Hijrah, si kembar akhirnya bisa menyusul, plus Kak Aras plus Mardia)

6. Di kost, tidur, sendiri...

## Saturday, November 29, 2008

### Using Telkomsel Flash, W960i and OpenSuSE Linux

Attach your w960i to computer, make sure it is in "normal mode"

create file wvdial-flash.config in folder /etc (you must be login as root, or at least copy to /etc folder as root)

[Dialer Defaults]

Modem=/dev/ttyACM1

Baud=115200

Init1=ATZ

Init2=ATQ0 V¹E¹S0=0 &C¹&D2

Init3=

Phone=*99#

Username=internet

Ask Password=0

Dial Command=ATDT

Stupid Mode=1

Compuserve=0

Force Address

Idle Seconds=0

Dial Message1=

Dial Message2=

ISDN=0

Auto DNS=1

using wvdial (as root):

#wvdial --config /etc/wvdial-flash.config

if you got error, try to play 2nd line e.g Modem=/dev/ttyACM2 (it sometimes occur when i detach the phone and attach it again)

Enjoy.

### The Answer of My Introduction Mathemathical for Physicist (Jawaban ujian Fismatku)

I use fortran to generate x n y position:

below is the code

PROGRAM Grafik

IMPLICIT NONE

REAL :: gaya,ygaya,k,ky,a,ay,m,v,vy,t,x,y,z

REAL :: sbx,sby,sbz,g,fx,fy,fz

REAL :: r,dt,dx,dy,dz,dv,dvy,theta,phi

INTEGER :: i,j,n

r =100

g =10

n =50

k =10000

ky =1000

t=0

dt=0.001

OPEN (80, FILE = 'data.dat', STATUS = 'NEW', FORM = 'FORMATTED')

WRITE(80,*) ' i t x y'

CLOSE(80)

OPEN(80, ACCESS = 'APPEND', FILE = 'data.dat', FORM = 'FORMATTED')

DO i=-n,n

x=i

x=x/10

IF (x .NE. 1) THEN

!y=(2+x-x*x)/(x-1)/(x-1)

z=2-x-x*x

vy=(x-1)*(x-1)

y=z/vy

END IF

WRITE(80,81) x,y

8¹FORMAT(e14.7,' ',e14.7)

END DO

CLOSE(80)

END PROGRAM Grafik

compile using:

$gfortran grafik.f90

that syntax has output a.out

run using:

$./a.out

It'll create file named data.dat and generate number of f(x)=(2-x-x^2)/(x-1)^2

plot using kst :

$kst -x ¹-y 2 data.dat

It means kst will plot a graph using 1st column as x-axis and 2nd column as y-axis of data.dat

to simplify that procedure, I create text file named run.sh contain:

rm *.dat

gfortran grafik.f90

./a.out

kst -x ¹-y 2 data.dat

make run.sh executable

then run:

$./run.sh

.........dan mereka hidup bahagia berdua selamanya.

## Thursday, November 27, 2008

## Wednesday, November 26, 2008

### Internet by Phone as Modem

Tonight, I spend my time by surfing to internet

I don't care even my M3 was run out pulse

just fun

I don't care even my M3 was run out pulse

just fun

## Monday, November 24, 2008

## Sunday, November 23, 2008

### I Know You Here

You're in my head

I pray for your voice

everytime I slip away

Thought I don't understand

the reason I'm grounded here

in eternity

Help me to save my soul

surrender to your grace

Take me right where I stand

You know that I know you here

I pray for your voice

everytime I slip away

Thought I don't understand

the reason I'm grounded here

in eternity

Help me to save my soul

surrender to your grace

Take me right where I stand

You know that I know you here

## Saturday, November 22, 2008

### Weekend at Alagaesia

Yeah, this morning I met Eragon and I promised him to spend my weekend with him, Roran and Saphira.

so, here I am

so, here I am

### night november

Its rain tonight, and my heart is stabbed

Its cold tonight, and my head is frozen

it just like tears flew as we are cryin',

my blood refuse. to flow

and like river in the winter, it gonna hard

Its cold tonight, and my head is frozen

it just like tears flew as we are cryin',

my blood refuse. to flow

and like river in the winter, it gonna hard

## Thursday, November 20, 2008

### hhh...

Hanya karena dia tak mencintaimu dengan cara yang kau inginkan, bukan berarti dia tak mencintaimu dengan sejuta cara lainnya.

Hanya karena Tuhan tidak memberi apa yang kita inginkan, bukan berarti Dia tidak memberi apa yang kita butuhkan.

Ku masih hidup

Dia masih mencintaiku

Hanya karena Tuhan tidak memberi apa yang kita inginkan, bukan berarti Dia tidak memberi apa yang kita butuhkan.

Ku masih hidup

Dia masih mencintaiku

## Wednesday, November 19, 2008

### First on Fortran

My first program written in fortran is below

!================================================

PROGRAM Grafik

IMPLICIT NONE

!declare variable

REAL :: gaya,ygaya,k,ky,a,ay,m,v,vy,t,x,y,z

REAL :: sbx,sby,sbz,g,fx,fy,fz

REAL :: r,dt,dx,dy,dz,dv,dvy,theta,phi

INTEGER :: i,j,n

!initial value

r =100

g =10

n =10000

k =10000

ky =1000

t=0

dt=0.001

!dx=0.01

m=10

v=0

x=10

y=10

vy=0

!create new file named data.dat (you may change the extension. I used that as I think .dat is cool extension )

OPEN (80, FILE = 'data.dat', STATUS = 'NEW', FORM = 'FORMATTED')

WRITE(80,*) ' i t x y'

CLOSE(80)

OPEN(80, ACCESS = 'APPEND', FILE = 'data.dat', FORM = 'FORMATTED')

!the algorithm

DO i=1,n

gaya=-k*x

a=gaya/m

dv=a*dt

v=v+dv

dx=v*dt

x=x+dx

ygaya=-ky*y

ay=ygaya/m

dvy=ay*dt

vy=vy+dvy

dy=vy*dt

y=y+dy

t=t+dt

!write the result of calclation to data.dat

WRITE(80,81) i, t, x, y

81 FORMAT(i7,' 'e14.7,' ',e14.7,' ',e14.7)

END DO

CLOSE(80)

END PROGRAM Grafik

!===========================================

save to grafik.f90 then compile using this syntax

$gfortran grafik.f90

that'll produce file named a.out

run using

$./a.out

and data.dat will appear

to plot the graphic using value in data.dat I use kst

$kst -x 2 -y 3 data dat

mean kst will use 2nd column as x-axis n 3rd as y-axis

Yeah, I know that the steps look boring, so I used sh script below to generate it automatically.

using kwrite, create text file like below:

rm *.dat

gfortran grafik.f90

./a.out

kst -x 2 -y 3 data.dat

save as run.sh, make it executable then run:

$./run.sh

!I also used script below to generate x, y, z in text file and plot it using kst

!

!DO i=1 ,100

! dt=i

! dt=dt/100

! sbx=r*sin(dt)

! sby=r*cos(dt)

! sbz=dt

! WRITE(80,81) sbx, sby, sbz

! 81 FORMAT(F10.2,' ',e14.7,' ',e14.7)

!END DO

!DO i=1, n

!DO j=1, n

! theta=i

! phi=j

! sbx=r*sin(theta)*cos(phi)

! sby=r*sin(theta)*sin(phi)

! sbz=r*cos(theta)

! !sbz=2

! WRITE(80,81) i, j, sbx, sby, sbz

! 81 FORMAT(i7,' ',i7,' 'e14.7,' ',e14.7,' ',e14.7)

! PRINT*, 'theta: ',i,' -------------'

! PRINT*, 'phi: ',j,' -------------'

! PRINT*, 'sb-x :', sbx

! PRINT*, 'sb-y :', sby

! PRINT*, 'sb-z :', sbz

!END DO

!END DO

There is something strange in two script above. The result is x, y, z (THREE variable) but why the plot is just in TWO axis? Err..., that the weakness of kst.

At prior time :), I used gnuplot to generate "3D" picture--of course, it just projection of z-axis (or x-axis if you using left-handed coordinate)--but I have'nt yet found to automating it using .sh script.

If you like to using gnuplot:

$gnuplot

>plot "data.dat" using 2:3 (oops, that still 2D. Plotting data.dat using 2nd and 3rd column)

>splot "data.dat" using 2:3:4 (that is.)

I've skimmed "man gnuplot" but did'nt found how to do it automatically

anybody can help me automating it using gnuplot?

oh yeah, almost forget, I use Linux.

!================================================

PROGRAM Grafik

IMPLICIT NONE

!declare variable

REAL :: gaya,ygaya,k,ky,a,ay,m,v,vy,t,x,y,z

REAL :: sbx,sby,sbz,g,fx,fy,fz

REAL :: r,dt,dx,dy,dz,dv,dvy,theta,phi

INTEGER :: i,j,n

!initial value

r =100

g =10

n =10000

k =10000

ky =1000

t=0

dt=0.001

!dx=0.01

m=10

v=0

x=10

y=10

vy=0

!create new file named data.dat (you may change the extension. I used that as I think .dat is cool extension )

OPEN (80, FILE = 'data.dat', STATUS = 'NEW', FORM = 'FORMATTED')

WRITE(80,*) ' i t x y'

CLOSE(80)

OPEN(80, ACCESS = 'APPEND', FILE = 'data.dat', FORM = 'FORMATTED')

!the algorithm

DO i=1,n

gaya=-k*x

a=gaya/m

dv=a*dt

v=v+dv

dx=v*dt

x=x+dx

ygaya=-ky*y

ay=ygaya/m

dvy=ay*dt

vy=vy+dvy

dy=vy*dt

y=y+dy

t=t+dt

!write the result of calclation to data.dat

WRITE(80,81) i, t, x, y

81 FORMAT(i7,' 'e14.7,' ',e14.7,' ',e14.7)

END DO

CLOSE(80)

END PROGRAM Grafik

!===========================================

save to grafik.f90 then compile using this syntax

$gfortran grafik.f90

that'll produce file named a.out

run using

$./a.out

and data.dat will appear

to plot the graphic using value in data.dat I use kst

$kst -x 2 -y 3 data dat

mean kst will use 2nd column as x-axis n 3rd as y-axis

Yeah, I know that the steps look boring, so I used sh script below to generate it automatically.

using kwrite, create text file like below:

rm *.dat

gfortran grafik.f90

./a.out

kst -x 2 -y 3 data.dat

save as run.sh, make it executable then run:

$./run.sh

!I also used script below to generate x, y, z in text file and plot it using kst

!

!DO i=1 ,100

! dt=i

! dt=dt/100

! sbx=r*sin(dt)

! sby=r*cos(dt)

! sbz=dt

! WRITE(80,81) sbx, sby, sbz

! 81 FORMAT(F10.2,' ',e14.7,' ',e14.7)

!END DO

!DO i=1, n

!DO j=1, n

! theta=i

! phi=j

! sbx=r*sin(theta)*cos(phi)

! sby=r*sin(theta)*sin(phi)

! sbz=r*cos(theta)

! !sbz=2

! WRITE(80,81) i, j, sbx, sby, sbz

! 81 FORMAT(i7,' ',i7,' 'e14.7,' ',e14.7,' ',e14.7)

! PRINT*, 'theta: ',i,' -------------'

! PRINT*, 'phi: ',j,' -------------'

! PRINT*, 'sb-x :', sbx

! PRINT*, 'sb-y :', sby

! PRINT*, 'sb-z :', sbz

!END DO

!END DO

There is something strange in two script above. The result is x, y, z (THREE variable) but why the plot is just in TWO axis? Err..., that the weakness of kst.

At prior time :), I used gnuplot to generate "3D" picture--of course, it just projection of z-axis (or x-axis if you using left-handed coordinate)--but I have'nt yet found to automating it using .sh script.

If you like to using gnuplot:

$gnuplot

>plot "data.dat" using 2:3 (oops, that still 2D. Plotting data.dat using 2nd and 3rd column)

>splot "data.dat" using 2:3:4 (that is.)

I've skimmed "man gnuplot" but did'nt found how to do it automatically

anybody can help me automating it using gnuplot?

oh yeah, almost forget, I use Linux.

### night

I lay in the bed

hearing a crow of bats

it's night and no one here but me

I won't die tonight, maybe

but I did'nt felt live

Even my head is full of inspiration

my spirit is empty

someone

help me

blow my attitude

that's what I need at now

hearing a crow of bats

it's night and no one here but me

I won't die tonight, maybe

but I did'nt felt live

Even my head is full of inspiration

my spirit is empty

someone

help me

blow my attitude

that's what I need at now

### in the middle of the night

Well, it's time to start anything seriously. And prove that I'm physicist

Subscribe to:
Posts (Atom)

My sky is high, blue, bright and silent.

Nugroho's (almost like junk) blog

By: Nugroho Adi Pramono