dna ricombinante
programmi scritti
con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus)
attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo
videoclip che
registro e poi richiamo con youtube
fornisco listato
pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato
videoclip http://www.youtube.com/watch?v=Sn1pmlbdtQw
program dna; (* dna ricombinante *) uses crt,graph; var c2,c3,c4,c5,c6,c7,c15:integer; s:string; procedure grafica; var t,s:integer; stringa:string; begin t:=0; s:=0; stringa:=('c:\scheda\'); initgraph(s,t,stringa); end; procedure pausa1; begin setcolor(c4); outtextxy(430,10,'premi INVIO'); gotoxy(2,2);readln; setcolor(0); outtextxy(430,10,'premi INVIO'); setcolor(c15); end; procedure testo(x,y:integer;st:string); begin outtextxy(x,y,st); end; procedure inizio; begin circle(100,100,80); setcolor(c6);arc(100,100,0,90,80); setcolor(c2);arc(100,100,180,230,80); setcolor(c7); testo(200,80,'T'); testo(10,130,'A'); testo(30,200,'gene per resistenza alla tetraciclina T'); testo(30,210,'gene per resistenza alla ampicillina A'); testo(30,230,'plasmide batterico da usare come vettore di DNA estraneo'); pausa1; setcolor(c15);line(300,170,350,170); setcolor(c2);line(350,170,400,170); setcolor(c15);line(400,170,450,170); setcolor(c6);line(450,170,470,170); line(280,170,300,170); setcolor(c3);testo(300,150,'plasmide aperto'); setcolor(c2);testo(350,180,'A conservata resistenza'); setcolor(c6);testo(450,190,'T perduta resistenza'); pausa1; setcolor(c2);line(100,300,200,300); setcolor(c6);line(200,300,300,300); setcolor(c3);line(300,300,400,300); setcolor(c15); testo(30,330,'DNA da segmentare e trasferire a plasmidi'); testo(30,340,'semplificando:sono presenti tre geni'); pausa1;setcolor(c3); testo(30,360,'Enzima di Restrizione ** :apre DNA in corrispondenza di'); testo(30,370,'particolari combinazioni nucleotidiche'); testo(30,380,'frammentando il DNA originario o aprendo DNA plasmidiale'); setcolor(c15);testo(200,300,'**'); testo(300,300,'**'); testo(150,50,'**'); setcolor(c2);line(100,270,200,270); setcolor(c6);line(200,280,300,280); setcolor(c3);line(300,290,400,290); setcolor(c15); pausa1;cleardevice; end; procedure taglia; begin testo(30,60,'mescolare DNA da segmentare con Plasmidi batterici'); testo(30,80,'in presenza di Enzima di restrizione e altro enzima'); testo(30,100,'Ligasi,che dovr rifinire il lavoro di concatenamemto'); testo(30,120,'tra frammenti di DNA e plasmidi aperti'); setcolor(c3); testo(30,140,'si ottiene miscuglio di frammenti di DNA e plasmidi aperti'); pausa1; setcolor(c15);line(300,170,350,170); setcolor(c2);line(350,170,400,170); setcolor(c15);line(400,170,450,170); setcolor(c6);line(450,170,470,170); line(280,170,300,170); setcolor(c15);line(300,190,350,190); setcolor(c2);line(350,190,400,190); setcolor(c15);line(400,190,450,190); setcolor(c6);line(450,190,470,190); line(280,190,300,190); setcolor(c15);line(300,210,350,210); setcolor(c2);line(350,210,400,210); setcolor(c15);line(400,210,450,210); setcolor(c6);line(450,210,470,210); line(280,210,300,210); setcolor(c15);line(300,230,350,230); setcolor(c2);line(350,230,400,230); setcolor(c15);line(400,230,450,230); setcolor(c6);line(450,230,470,230); line(280,230,300,230); setcolor(c2);line(100,300,200,300); setcolor(c3);line(200,310,300,310); setcolor(c6);line(300,320,400,320); pausa1; testo(30,400,'saldatura tra segmenti DNA e anello plasmidiale'); setcolor(c2);line(200,170,280,170); setcolor(c3);line(200,190,280,190); setcolor(c6);line(200,210,280,210); setcolor(0);line(100,300,200,300); setcolor(0);line(200,310,300,310); setcolor(0);line(300,320,400,320); pausa1;cleardevice; testo(30,410,'formazione anelli puri ,senza DNA incorporato'); testo(30,420,'e anelli ricombinanti,con DNA incorporato'); setfillstyle(1,0); bar(20,160,500,340); setcolor(c4);arc(100,100,0,30,40); setcolor(c3);arc(100,100,30,90,40); setcolor(c4);arc(100,100,90,120,40); setcolor(c15);arc(100,100,120,180,40); setcolor(c4);arc(100,100,180,270,40); setcolor(c15);arc(100,100,270,360,40); testo(60,200,'ricombinante con DNA gene1'); testo(60,210,'conserva resistenza ad ampicillina');pausa1; setcolor(c4);arc(200,100,0,30,40); setcolor(c2);arc(200,100,30,90,40); setcolor(c4);arc(200,100,90,120,40); setcolor(c15);arc(200,100,120,180,40); setcolor(c4);arc(200,100,180,270,40); setcolor(c15);arc(200,100,270,360,40); testo(140,230,'ricombinante con DNA gene2'); testo(140,240,'conserva resistenza ad ampicillina');pausa1; setcolor(c4);arc(300,100,0,30,40); setcolor(c7);arc(300,100,30,90,40); setcolor(c4);arc(300,100,90,120,40); setcolor(c15);arc(300,100,120,180,40); setcolor(c4);arc(300,100,180,270,40); setcolor(c15);arc(300,100,270,360,40); testo(340,260,'ricombinante con DNA gene3'); testo(340,270,'conserva resistenza ad ampicillina');pausa1; setcolor(c4);arc(400,100,0,30,40); setcolor(c4);arc(400,100,30,90,40); setcolor(c4);arc(400,100,90,120,40); setcolor(c15);arc(400,100,120,180,40); setcolor(c4);arc(400,100,180,270,40); setcolor(c15);arc(400,100,270,360,40); testo(300,300,'plasmide non ricombinante:puro'); testo(300,310,'conserva resistenza ad ampicillina'); testo(300,320,'conserva resistenza a tetraciclina');pausa1; setcolor(c3); testo(30,350,'inserimento plasmidi in batteri'); rectangle(50,50,150,180); rectangle(155,50,250,180); rectangle(255,50,350,180); rectangle(355,50,450,180); rectangle(455,50,550,180); setcolor(c15);rectangle(20,40,560,200); pausa1; testo(30,360,'applicazione di Ampicillina alla coltura batterica'); testo(30,370,'vengono eliminati batteri privi di plasmidi'); setcolor(0);rectangle(455,50,550,180);pausa1; setcolor(c2); testo(30,380,'separazione di singoli batteri e proliferazione separata'); testo(30,390,'allo scopo di riconoscere batteri ricombinanti da puri'); pausa1; end; procedure batteri; begin rectangle(50,50,400,200); line(100,100,300,100); setcolor(c7); circle(200,160,30); testo(30,360,'batterio con cromosoma e plasmide'); pausa1; setcolor(c2);line(100,300,200,300); setcolor(c3);line(200,300,300,300); setcolor(c6);line(300,300,400,300); testo(30,370,'DNA da segmentare e clonare'); pausa1; testo(30,380,'apertura plasmide con enzima di restrizione'); testo(30,390,'segmentazione DNA con enzima di restrizione'); setcolor(0);circle(200,160,30); setcolor(0);line(100,300,200,300); setcolor(0);line(200,300,300,300); setcolor(0);line(300,300,400,300); setcolor(c7);line(100,160,150,160);line(200,160,300,160); setcolor(c15);line(150,160,200,160); testo(150,170,'gene resistenza adriamicina'); setcolor(c2);line(100,300,200,300); setcolor(c3);line(200,310,300,310); setcolor(c6);line(300,320,400,320); pausa1;end; procedure coltura; var a,x,y,r:integer; s:string; begin testo(30,360,'preparazione colture pure di singoli batteri'); testo(30,370,'e sdoppiamento di ogni coltura numerata'); x:=50;y:=100;r:=30; for a:=1 to 8 do begin circle(x,y,r); str(a,s); testo(x,y,s); x:=x+2*r+10; end; x:=50;y:=160;r:=30; for a:=1 to 8 do begin str(a+8,s); testo(x,y,s); circle(x,y,r); x:=x+2*r+10; end; line(10,200,540,200); testo(30,40,'colture da trattare con tetraciclina'); setcolor(c2); testo(30,350,'colture di controllo,non trattate con tetraciclina'); x:=50;y:=240;r:=30; for a:=1 to 8 do begin str(a,s); testo(x,y,s); circle(x,y,r); x:=x+2*r+10; end; x:=50;y:=310;r:=30; for a:=1 to 8 do begin str(a+8,s); testo(x,y,s); circle(x,y,r); x:=x+2*r+10; end; pausa1; setcolor(c3); testo(30,390,'i batteri non ricombinanti,contengono plasmidi'); testo(30,400,'con resistenza alla Ampicillina e alla Tetraciclina'); testo(30,410,'la coltura rimane vitale se trattata con Tetraciclina'); setcolor(c2); testo(30,420,'i batteri ricombinanti contengono plasmidi che hanno'); testo(30,430,'perduta la resistenza alla Tetraciclina:quindi le colture'); testo(30,440,'trattate con Tetraciclina saranno eliminate'); pausa1; x:=50;y:=100;r:=30; setfillstyle(4,c3); for a:=1 to 8 do begin if (a=1) or (a=3) or (a=4) or (a=7) then fillellipse(x,y,r,r); x:=x+2*r+10; end; x:=50;y:=160;r:=30; for a:=1 to 8 do begin if (a=1) or (a=4) or (a=5) or (a=8) then fillellipse(x,y,r,r); x:=x+2*r+10; end;pausa1; setfillstyle(1,0);bar(10,360,560,450); pausa1; x:=50;y:=240;r:=30; setfillstyle(4,c2); for a:=1 to 8 do begin if (a=1) or (a=3) or (a=4) or (a=7) then fillellipse(x,y,r,r); x:=x+2*r+10; end; x:=50;y:=310;r:=30; for a:=1 to 8 do begin if (a=1) or (a=4) or (a=5) or (a=8) then fillellipse(x,y,r,r); x:=x+2*r+10; end; testo(30,380,'isolamento colture di controllo corrispondenti'); testo(30,390,'alle colture con batteri ricombinanti'); setcolor(c3); testo(30,400,'ogni coltura pura contiene batteri che riproducono'); testo(30,410,'un gene del DNA estraneo inserito nel plasmide');pausa1; testo(30,420,'Problema:riconoscere il tipo di gene in ogni coltura'); testo(30,430,'per selezionare i batteri e indurli a sintetizzare'); testo(30,440,'le molecole codificate dal gene del DNA estraneo');pausa1; end; procedure testox(x,y:integer;s:string); begin settextstyle(3,0,3); outtextxy(x,y,s); end; procedure pro1; begin settextstyle(3,0,4); testox(20,50,'fasi per preparare DNA ricombinante'); setcolor(c3);settextstyle(3,0,3); testox(10,100,'1..localizzare cromosoma portatore del gene da clonare'); testox(10,130,'2..frammentare il cromosoma con ENZIMA di RESTRIZIONE'); pausa1; testox(10,160,'3..provvedere vettore per trasferimento del gene'); testox(40,190,'es.plasmide batterico o batteriofago'); testox(10,210,'4..aprire plasmide con ENZIMA di RESTRIZIONE'); pausa1;setcolor(c2); testox(10,240,'5..mescolare frammenti di DNA con plasmidi aperti'); testox(40,270,'possono presentarsi varie situazioni:'); testox(50,300,'formazione anello con plasmide e segmento DNA'); testox(50,330,'formazione anello con solo plasmide'); testox(50,360,'formazione anello con solo segmenti di DNA'); setcolor(c7); testox(40,390,'unica formazione RICOMBINANTE utile:plasmide+DNA'); pausa1;cleardevice; testox(10,50,'6..inserire anelli in batteri'); testox(10,80,'7..selezionare i batteri che contengono '); testox(10,110,'...plasmidi ricombinanti,usando antibiotico adatto'); testox(10,140,'8..i batteri con anelli di solo DNA vengono uccisi'); testox(10,170,'9..i batteri con anelli ricombinanti o puri vivono'); testox(10,200,'10.si devono selezionare i batteri che posseggono'); testox(10,230,'...il gene da clonare,e separarli da quelli puri'); testox(10,260,'11.si devono riconoscere i geni presenti nelle colture'); settextstyle(0,0,1); pausa1;cleardevice; end; procedure genoteca; var x,y,r,a,b,k:integer; s:string; begin x:=50;y:=60;r:=30;k:=1; for b:=1 to 4 do begin for a:=1 to 8 do begin str(k,s); testo(x,y,s); circle(x,y,r); x:=x+2*r+10;k:=k+1; end; y:=y+80; x:=50; end; setcolor(c3); testo(30,400,'GENOTECA:ogni coltura pura contiene una colonia batterica'); testo(30,410,'che possiede un gene estraneo,es.umano'); testo(30,420,'di natura nota e riproducibile in grande quantit '); testo(30,430,'oppure sfruttabile per produrre molecole codificate'); end; procedure scelta; var sce:integer; begin cleardevice; cleardevice;inizio;cleardevice;cleardevice; batteri; cleardevice; taglia;cleardevice;coltura;cleardevice;genoteca; setcolor(c15);settextstyle(0,0,1); pausa1; end; procedure spiega; begin textcolor(c3); writeln('problema:inserire gene umano in un batterio'); writeln('per indurlo a moltiplicare il gene stesso'); writeln('allo scopo di averne varie copie disponibili per lo studio'); writeln('oppure per sintetizzare la molecola codificata:es.insulina'); writeln('sfruttando la tecnica del DNA ricombinante'); writeln('premi INVIO');readln; textcolor(c2); writeln('elementi necessari per la operazione:'); writeln('1..DNA con gene della insulina'); writeln('2..Batteri nei quali inserire il gene da moltiplicare'); writeln('3..Vettore per trasferire Gene in Batterio:plasmide o fago'); writeln('4..Enzima di restrizione per segmentare DNA e aprire Plasmide'); writeln('5..Enzima DNA-ligasi per collegare DNA a plasmide'); writeln('6..Antibiotici per selezionare batteri ricombinanti da altri'); writeln('7..Tecniche per riconoscere gene integrato in ogni batterio'); writeln('8..Colture per moltiplicare batteri ricombinanti con gene insulina'); writeln('-----------------------------------------------------------------'); writeln('premi INVIO');readln;clrscr; writeln('Nota su Plasmide batterico:'); writeln('molecola breve di DNA chiusa ad anello,che si moltiplica'); writeln('autonomamemte e si trasmette ai batteri generati'); writeln('spesso codifica per resistenza a uno o pi antibiotici'); textcolor(c3); writeln('Nota su Enzimi di restrizione presenti nei batteri'); writeln('ogni enzima di restrizione riconosce una specifica sequenza'); writeln('di nucleotidi presenti in ogni tipo di DNA'); writeln('e separa in due parti il DNA nel punto relativo alla sequenza'); writeln('In questo modo pu frammentare un segmento lungo di DNA'); writeln('in segmenti pi brevi,o aprire anello di plasmide'); writeln('FASI necessarie per raggiungere il risultato'); writeln('premi INVIO');readln;clrscr; textcolor(c15); writeln('1..isolare cromosoma con gene da duplicare'); writeln('2..segmentare DNA usando enzima di restrizione E1'); writeln('3..isolare plasmidi da colonie batteriche :plasmidi che'); writeln(' ..presentano resistenza per AMPICILLINA e TETRACICLINA'); writeln('4..aprire anello plasmidiale con stesso enzima di restrizione E1'); writeln(' ..viene aperto in corrispondenza del gene per TETRACICLINA'); writeln('5..mescolare frammenti di DNA e plasmidi in presenza di Ligasi'); WRITELN('premi INVIO');readln;textcolor(c7); writeln('6..inserire i plasmidi in coltura batterica'); writeln('7..necessario selezionare dalla colonia batteri'); writeln(' ..senza plasmidi,con plasmidi puri,plasmidi ricombinanti'); writeln('8..si tratta la colonia con antibiotico AMPICILLINA'); writeln(' ..batteri senza plasmidi:muoiono'); writeln(' ..batteri con plasmidi rimangono vivi'); writeln('9..necessario separare batteri con plasmidi ricombinanti'); writeln(' ..da batteri con plasmidi puri'); writeln('premi INVIO');readln;clrscr; writeln('10.si separano singoli batteri e si coltivano separatamente'); writeln(' .in colture numerate,in doppia copia per ogni colonia'); writeln(' .copia1 per controllo e copia2 per riconoscimento'); writeln('11.si tratta ogni colonia copia2 con TATRACICLINA'); writeln('12.colonie con plasmidi puri sono resistenti alla TETRACICLINA'); writeln(' .colonie con plasmidi ricombinanti hanno perduto la resistenza'); writeln(' .perch il GENE si inserito interrompendo il sito tetraciclina'); writeln('13.si possono cosi riconoscere le colonie portatrici di plasmidi'); writeln(' .ricombinanti e usare le corrispondenti colonie copia1'); writeln('14.Problema:con varie tecniche si procede al riconoscimento'); writeln(' .del gene o dei geni integrati nei diversi plasmidi delle'); writeln(' .colonie batteriche ricombinanti'); writeln('------------------------------------------------------------'); textcolor(c3); writeln('15.operando con il genoma completo di una specie'); writeln(' .si ottiene un insieme di colture batteriche portatrici'); writeln(' .di singoli geni o gruppi di geni:GENOTECA'); writeln('premi INVIO');readln; end; begin clrscr; c2:=2;c3:=3;c4:=6;c5:=5;c6:=6;c7:=7;c15:=15; textcolor(c3); writeln('esempio di DNA ricombinante '); writeln('cio DNA formato da elementi o geni'); writeln('provenienti da individui anche appartenenti a specie diverse'); writeln('es.geni umani inseriti in DNA batterico'); writeln('premi INVIO');readln; writeln('Si deve trovare il modo di inserire geni umani in DNA batterico'); writeln('per ottenere una popolazione di batteri (CLONE) tutti dotati'); writeln('del gene umano che si desidera rendere funzionale sfruttando'); writeln('il metabolismo batterico:'); writeln('es.far produrre ai batteri proteine,ormoni,anticorpi umani'); writeln('premi INVIO');readln;clrscr;spiega;clrscr; grafica; scelta;closegraph; end.