Switch to full style
This forum can be a scary place, 'cause we got lax rules: let's see your war face. Take a breath, and roll the dice, you might find out we're really nice.
Post a reply

Re: Post Pictures That Describe Yourself (No Random Images)

Thu Apr 18, 2013 4:19 am

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Thu Apr 18, 2013 8:21 am

I truly hate trying to program.

Image

I tried a class once and did not last a week, it wasn't the grades that got me it was.... the insanity that stemmed from it. You know the one. The kind that makes you think you can't win no matter what. One problem is fixed and several others replace it.And that these problems can happen for no discernible reason.

Another way machine rebels against man.

Re: Post Pictures That Describe Yourself (No Random Images)

Thu Apr 18, 2013 1:31 pm

True Order wrote:I truly hate trying to program.


Code:
#include <vcl.h>
#pragma hdrstop

#include "Start.h"
#include "Okno.h"
#include <math.h>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TOkno Okno;
vector<WK2> P;
vector<double> A,B;
double T=1;
int N=0;

double TransF(double t)
        {
        double result=0;
        int N=A.size();
        if(N>0)
                result=A[0]/2;
        for(int j=1;j<N;j++)
                {
                result+=A[j]*cos(j*2*M_PI/T*t)+B[j]*sin(j*2*M_PI/T*t);
                }
        return result;
        }

// --------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Okno.Inicjuj(PaintBox);
  Okno.Skala(-1,8,-1.5,1.5);
  P.resize(10);  //for(int i=0; i<(int)P.size(); i++)P[i]=WK2(0.5*i,sin(0.5*i));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if(Shift.Contains(ssCtrl))        Okno.SkalaMouseDown( Shift, X, Y);
  else if(Shift.Contains(ssAlt))    Okno.ZmienPunkt ( X,Y,0, P);
  else if(Shift.Contains(ssShift))  Okno.UsunWstawPunkt(X,Y ,P);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  if(Shift.Contains(ssCtrl))      Okno.SkalaMouseMove( Shift, X, Y);
  else if(Shift.Contains(ssAlt))  Okno.ZmienPunkt ( X,Y,1, P);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Okno.ZmienPunkt ( X,Y,2, P);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxPaint(TObject *Sender)
{
  Okno.Czysc();
  Okno.Siatka();
  Okno.Osie();
  Okno.Punkty( P, clGreen);
  Okno.Funkcja(TransF,clBlue);
  Okno.Rysuj();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[i]=0;
        B[i]=1;
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[0]=T;
        A[i]=0;
        B[i]=-T/M_PI/i;
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[0]=0;
        A[i]=0;
        if(i%2==0)
                B[i]=0;
        else if(i%2!=0)
                B[i]=T/i/M_PI;
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[0]=T;
        A[i]=0;
        B[i]=T/M_PI/i;
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[0]=0;
        A[i]=0;
        if(i%2==0)
                B[i]=0;
        else if(i%2!=0)
                B[i]=(8/M_PI/M_PI/i/i)*pow(-1,(i-1)/2);
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton6Click(TObject *Sender)
{
for(int i=1;i<N;i++)
        {
        A[0]=0.5*M_PI*T;
        A[i]=(-T*T)/(M_PI*M_PI*i*i);//(pow(-1,i)*T*M_PI)/i;
        B[i]=0;
        }
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar3Change(TObject *Sender)
{
N=ScrollBar3->Position;
Label3->Caption=String("N = ") + ScrollBar3->Position;
A.resize(N);
B.resize(N);
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------


You know NOTHING about pain!

Re: Post Pictures That Describe Yourself (No Random Images)

Thu Apr 18, 2013 2:29 pm

Q.U. wrote:...greek...

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Thu Apr 18, 2013 3:48 pm

True Order wrote:I truly hate trying to program.

Image

I tried a class once and did not last a week, it wasn't the grades that got me it was.... the insanity that stemmed from it. You know the one. The kind that makes you think you can't win no matter what. One problem is fixed and several others replace it.And that these problems can happen for no discernible reason.

Another way machine rebels against man.

Opening a few windows to make your desktop look cluttered is not programming!

Also, I like programming. It's like a giant, very complex puzzle with pieces that can fit just about anywhere.

Re: Post Pictures That Describe Yourself (No Random Images)

Sat Apr 20, 2013 1:42 am

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Sat Apr 20, 2013 11:42 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Sun Apr 21, 2013 4:02 am

I have that issue tooooooooooooooooooooooooooooo. Or at least used to when I had a functioning laptop.

Now you just leave out the head and then you got what I forget sometimes.

Like yesterday.

But then I forgot to charge it anyways, so it didn't matter. Plus the line were down.

So... no connection anyways if I charged it. Wind is a bitch.

Re: Post Pictures That Describe Yourself (No Random Images)

Sun Apr 21, 2013 11:34 am

I don't have any working earbuds right now so when I go for my run and bike ride everyday I have to wear by big ass gaming headphones around my neck. Get some interesting looks.

Re: Post Pictures That Describe Yourself (No Random Images)

Sun Apr 21, 2013 12:22 pm

I've made it my personal creed to take a pair of either phones or buds wherever I go so if some dumbshit (in class mostly) is too loud, I can put em on and just trip.

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Sun Apr 21, 2013 9:53 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Sun Apr 21, 2013 10:04 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 2:35 am

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 2:23 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 5:20 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 5:42 pm

Ctrl + Shift + T that thing, man.

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 5:56 pm

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Mon Apr 22, 2013 6:56 pm

I envy the Adventure Time animators getting to just have fun with this sort of stuff...

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 1:20 am

Me after work
Image

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 3:03 am

Evidence required.

Image

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 4:15 am

Image

Something that's not too uncommon at work... yet still bothers me to see.

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 9:22 am

Huh, Gum manfufacturers released a new gum flavor.

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 6:00 pm

Image

Pretty much all the jobs I've been to went like this or 18-or-nothing.

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 6:08 pm

Ya, blows so hard.

IT'S AN ENTRY LEVEL JOB, THESE ARE THE JOBS PEOPLE DO TO GET EXPEIRENCE, YOU DICKS.

It's like I saw an ad for an experienced dishwasher. Really? REALLY!?

Re: Post Pictures That Describe Yourself (No Random Images)

Tue Apr 23, 2013 6:29 pm

Oddly enough I just got a call for a job interview today.
Post a reply