Kartezsky soucin dvou mnozin realych cisel – Pascal – Fórum – Programujte.com

a

#1 fak.gesho
Ahoj,

potreboval bych vytvorit 2 mnoziny realnych cisel (z intervalu -1,1), prvni interval jako <-1; -1+(2/37); -1+2*(2/37);...;1> a druhy stejny jen rozdeleny cislem (2/73) a pote bych potreboval jejich kartezsky soucin jako vstup pro funkci dvou promennych. Lamu si stim hlavu uz dlouho a absolutne nevim jake datove typy zvolit.

Dik

record a v nem dva realy?

pripadne ty pary muzes delat za behu a mit jen funkci cekajici souradnice typu real a vracejici vysledek

diky moc za radu, ale ja s pascalem uplne zacinam, takze by se mi hodila mala demonstrace, kus kodu nebo tak neco, pokud byste mel cas, moc bych to ocenil

no zalezi o co presne ti jde

presne o tohle ): nevim jak jinak to efektivne vymyslet, nemam s algoritmy temer zadnou zkusenost a uz vubec ne se syntaxi pascalu

tady bych to videl klidne na dva cykly ... vypocitat x,y dosadit do funkce... a vypsat +/- ...

muzes dokonce pouzit i for.. od 0 do 72 a z toho vypocitat hodnoty a na radky od 0 do 32 .. (radky budou mit ten sloupcovy cyklus uvnitr.. nic tezkeho)

No, ty hlavně ten interval podle mě musíš diskretizovat, tzn tu X-osu, Y-osu musíš rozdělít na 37 resp 73 ekvidistatních bodů

x = {-1, -0,98.., - 0,97.., x, x, x, ....atd... } -- y = {to uz víš}

a z téhle množiny budeš volit souřadnce pro dosazování.. => Kartézský součin nad těmy množinami bude generovat tu síť (souřadnicovou)

Tenhle algo je to co popsal KIIV .. měl jsem to už napsaný, když jsem si všimnul že to napsal :D

For i:=0 to 37 do 
	begin  
	For j:=0 to 73 do 
		begin
                x:=-1+i*(1/37);
                y:=-1+j*(1/73)
  		if((67039*power(x,12)-1939938*power(x,10)
			-184756*power(y,10)...atd...)>0) then		
			begin
			write("+");
			end;
		else write("-") 	
		end;
	writeln;
	end;
end; 

Omlouvám se za můj pascal, dělal jsem v něm naposledy na střední, což je už nějakej tejden, ale myslím že by tohle mohlo běžet .. s tím že power je v knihovně Math (asi)

super diky moc vsem, opravdu to timhle zpusobem beha a vraci presne to, co je pozadovano!

tak jestli to funguje je to ok.. ale mam tuseni ze mozna jedes jen v intervalech od <-1;0>, protoze -1+ j*(1/73) kde j je od 0 do 73 (coz je 74 hodnot - 74 sloupcu)  mas minumum -1 a maximum je -1+1 = 0 tj. do jednicky ti jeste neco malo chybi

+ v tom kodu je spousta dalsich chybicek.. treba 0 se ma brat tez jako kladne

ano, jsou tam drobne chybicky, ale po prepsani to opravdu vraci presne stejnou tabulku. deklaroval jsem si promenne x a y jako realna cisla (a tam to omezeni neni, takze jedou podle poctu kroku do 36 or 72) a prepsal jsem delku intervalu (abych mel ve vysledku 37 hodnot a ne 38, stejne tak 73 nq 72 ) a prohodil promenne.