// check that we have access
defined( '_VALID_MOS' ) or die( 'Restricted access' );
// register our event. It would be great of joomla had more events
$_MAMBOTS->registerFunction( 'onPrepareContent', 'JoomSEO' );
function JoomSEO($published, &$row, &$params, $page=0) {
global $database, $mainframe, $mosConfig_MetaKeys, $mosConfig_MetaDesc, $mosConfig_sitename;
// perform a published check
if (!$published) {
return;
}
// get our bot parameters
$query = "SELECT id FROM #__mambots WHERE element = 'JoomSEO' AND folder = 'content'";
$database->setQuery($query);
$id = $database->loadResult();
// get our mambot object
$mambot = new mosMambot($database);
$mambot->load($id);
$botParams = new mosParameters($mambot->params);
// load all our vars
//Title
$titleLength = $botParams->get('titleLength', false);
$titleOrder = $botParams->get('titleOrder', 1);
$prependTitle = $botParams->get('prependTitle', false);
$appendTitle = $botParams->get('appendTitle', false);
// site name
$showTitleSiteName = $botParams->get('showTitleSiteName', true);
$overrideSiteName = $botParams->get('overrideSiteName', false);
// content / heading title
$showContentHeading = $botParams->get('showContentHeading', true);
// paragraph
$showFirstParagraph = $botParams->get('showFirstParagraph', false);
$paragraphMinLength = $botParams->get('paragraphMinLength', 20);
$paragraphLength = $botParams->get('paragraphLength', 50);
// keywords
$showTitleKeywords = $botParams->get('showTitleKeywords', true);
$overrideTitleKeywords = $botParams->get('overrideTitleKeywords', false);
$keywordMinCharacters = $botParams->get('keywordMinCharacters', 3);
$titleKeywordQuantity = $botParams->get('titleKeywordQuantity', 5);
// meta
$metaKeywordsCount = $botParams->get('metaKeywordsCount', 50);
$metaDescriptionMinLength = $botParams->get('metaDescriptionMinLength', 80);
$metaDescriptionLength = $botParams->get('metaDescriptionLength', 150);
// filter
// when bot was first installed these were not being added unless bot was *saved*
$defStickWords = "";
$stickyWords = $botParams->get('stickyWords', $defStickWords);
$defBadWords = "0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z about an are as at be by com de en for from how in is it its la of on or that the this to was what when where who will with und the www and all has been your us up youll can if youve do know we not many you our but there they then more";
$badWords = $botParams->get('badWords', $defBadWords);
$defBadCharacters = "0 1 2 3 4 5 6 7 8 9 > < & - , . ; : ) ( ? ! { } [ ] / ' " %";
$badCharacters = $botParams->get('badCharacters', $defBadCharacters);
// bot activation
$disableFrontpage = $botParams->get('disableFrontpage', false);
// activation specific
$disableFrontpageTitle = $botParams->get('disableFrontpageTitle', false);
$disableFrontpageKeywords = $botParams->get('disableFrontpageKeywords', false);
$disableFrontpageDescription = $botParams->get('disableFrontpageDescription', false);
// front page overrides. Front page or corresponding item must be enabled though
$overrideFrontPageTitle = $botParams->get('overrideFrontPageTitle', false);
$overrideFrontPageKeywords = $botParams->get('overrideFrontPageKeywords', false);
$overrideFrontPageDescription = $botParams->get('overrideFrontPageDescription', false);
// SEO / Accessability
// defaulted to false to as not to break existing templates
$addHeadingTags = $botParams->get('addHeadingTags', false);
// current settings
$currentTitle = gettitle();
$currentContentHeading = $row->title;
$currentMetaKeys = $mosConfig_MetaKeys;
$currentMetaDesc = $mosConfig_MetaDesc;
// added to limit sql queries
$isFrontPage = IsFrontPage();
// firstly add our generator tag.
// please leave this here as it will not affect seo
// and gives my countless hours of programming an idea of use.
global $beenHere;
if (!$beenHere) {
// add JoomSEO bot to Generator meta
ReplaceMeta('Generator', ' JoomSEO by Phill Brown (http://www.joomseo.com).');
}
// encompass our headings with hX tags
// added first as we want this active even if the front page is disabled
if ($addHeadingTags) {
$row->title = AddHeadingTags($row->title, $addHeadingTags);
}
// check if we are enabled on the front page
if (($isFrontPage) && ($disableFrontpage)) {
// removed after added front page overrides and specific disabled attributes
// were added after release 0.9
//if ($disabledFrontPageTitle) {
// apply replacement text instead of joomla default
// replacetitle($disabledFrontPageTitle);
//}
// exit from this bot
return;
}
// clean and organise our text
$text = PrepareText($row->text);
// all CleanChars() no longer used as it was stopping other languages from operating proplerly
//$text = CleanChars($text);
$stickyWords = PrepareText($stickyWords);
//$stickyWords = CleanChars($stickyWords);
$badWords = PrepareText($badWords);
//$badWords = CleanChars($badWords);
$badCharacters = PrepareText($badCharacters);
//$badCharacters = CleanChars($badCharacters);
// clear existing meta keywords and descriptions
$mosConfig_MetaKeys = "";
$mosConfig_MetaDesc = "";
// was thinking of adding later a check to use only first article or all articles
// this get the total content from all articles from a com_frontpage
global $botSefText;
$botSefText .= $text;
// get our site name
// added to get the site title once
global $newSiteName;
//$newSiteName = null;
if (!$newSiteName) {
if ($showTitleSiteName) {
$newSiteName = $mosConfig_sitename;
if ($overrideSiteName) {
$newSiteName = $overrideSiteName;
}
}
}
// get our content heading
// added this to get first heading
global $newContentHeading;
//$newContentHeading = null;
if (!$newContentHeading) {
if ($showContentHeading) {
$newContentHeading = $currentContentHeading;
}
}
// get our first paragraph
// added to get the paragraph once only
global $newFirstParagraph;
//$newFirstParagraph = null;
if (!$newFirstParagraph) {
if ($showFirstParagraph) {
$newFirstParagraph = trim(GetDescription($botSefText, $paragraphMinLength, $paragraphLength));
}
}
// get our title keywords
// no global as we need this to parse all keywords
$newTitleKeywords = null;
if ($showTitleKeywords) {
$newTitleKeywords = GlueItems(GetKeywords($botSefText,$keywordMinCharacters,$titleKeywordQuantity,$stickyWords,$badWords,$badCharacters));
if ($overrideTitleKeywords) {
$newTitleKeywords = GlueItems(GetKeywords($overrideTitleKeywords));
}
}
// sort our title
$titleArray = array();
Push($titleArray, $prependTitle);
switch ($titleOrder) {
case 1://
Push($titleArray, $newSiteName);
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
Push($titleArray, $newTitleKeywords);
break;
case 2://
Push($titleArray, $newSiteName);
Push($titleArray, $newTitleKeywords);
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
break;
case 3://
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
Push($titleArray, $newSiteName);
Push($titleArray, $newTitleKeywords);
break;
case 4://
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
Push($titleArray, $newTitleKeywords);
Push($titleArray, $newSiteName);
break;
case 5://
Push($titleArray, $newTitleKeywords);
Push($titleArray, $newSiteName);
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
break;
case 6://
Push($titleArray, $newTitleKeywords);
if ($newContentHeading != null) {
Push($titleArray, ($newFirstParagraph) ? $newContentHeading ." - ". $newFirstParagraph : $newContentHeading);
} else {
Push($titleArray, $newFirstParagraph);
}
Push($titleArray, $newSiteName);
break;
}
Push($titleArray, $appendTitle);
if ($titleLength) {
$newTitle = substr(implode(' | ', $titleArray),0,$titleLength);
} else {
$newTitle = implode(' | ', $titleArray);
}
// its the front page so do front page specific handling
if ($isFrontPage) {
// get our frontpage title
if ($disableFrontpageTitle) {
// use the joomla generated title
$newTitle = $currentTitle;
} else {
$newTitle = ($overrideFrontPageTitle) ? $overrideFrontPageTitle : $newTitle;
}
// get our frontpage keywords
if ($disableFrontpageKeywords) {
// use the joomla default
$metaKeywords = $currentMetaKeys;
} else {
$metaKeywords = ($overrideFrontPageKeywords) ? $overrideFrontPageKeywords : GlueItems(GetKeywords($botSefText,$keywordMinCharacters,$metaKeywordsCount,$stickyWords,$badWords,$badCharacters));
}
// get our frontpage description
if ($disableFrontpageDescription) {
// use the joomla default
$metaDescription = $currentMetaDesc;
} else {
$metaDescription = ($overrideFrontPageDescription) ? $overrideFrontPageDescription : GetDescription($botSefText, $metaDescriptionMinLength, $metaDescriptionLength);
}
} else {
// we are on any other page so perform normal operations
$metaKeywords = GlueItems(GetKeywords($botSefText,$keywordMinCharacters,$metaKeywordsCount,$stickyWords,$badWords,$badCharacters));
$metaDescription = GetDescription($botSefText, $metaDescriptionMinLength, $metaDescriptionLength);
}
replacetitle($newTitle);
ReplaceMeta('keywords', $metaKeywords);
ReplaceMeta('description', $metaDescription);
// set our been here status
$beenHere = true;
}
/**
* Add an item to our array
*
* @param array $stack
* @param text $var
*/
function Push(&$stack, $var) {
if ($var) {
array_push($stack, $var);
}
}
/**
* Add H1, H2, H3... tags to text
*
* @param string $title
* @param int $num
* @return string
*/
function AddHeadingTags($title, $num) {
return "$title";
}
/**
* Checks if current page is Joomla front page
*
* @return unknown
*/
function IsFrontPage() {
global $database;
global $Itemid;
// if we have no option then we should have arrived at the front page of the site.
// sef url mapping bypasses this but is caught below
if (mosGetParam($_GET,'option','') == '') {
return true;
}
// get the first menu item in mainmenu as this is the front page in joomla
$query = "SELECT * from #__menu WHERE menutype = 'mainmenu' AND published = '1' ORDER BY ordering LIMIT 1";
$database->setQuery($query);
$row = null;
$database->loadObject($row);
if ($Itemid == $row->id) {
return true;
}
return false;
}
/**
* Replaces current Joomla meta tag
* code based from joomla.php
*
* @param string $name
* @param string $content
*/
function ReplaceMeta($name, $content) {
global $mainframe;
$name = trim(htmlspecialchars($name));
$n = count($mainframe->_head['meta']);
for ($i = 0; $i < $n; $i++) {
if ($mainframe->_head['meta'][$i][0] == $name) {
$content = trim(htmlspecialchars($content));
if ($content) {
$mainframe->_head['meta'][$i][1] = $content;
}
return;
}
}
$mainframe->addMetaTag($name, $content);
}
/**
* Get current meta content
* code based from joomla.php
*
* @param string $name
* @return string
*/
function GetMeta($name) {
global $mainframe;
$name = trim(htmlspecialchars($name));
$n = count($mainframe->_head['meta']);
for ($i = 0; $i < $n; $i++) {
if ($mainframe->_head['meta'][$i][0] == $name) {
return $mainframe->_head['meta'][$i][1];
}
}
}
/**
* Get a string of formatted keywords
*
* @param array key=>value $items
* @return string
*/
function GlueItems($items) {
// as format is in a $key=>$value pair extract the keys
$keys = array_keys($items);
// glue our array into a single string
$ret = implode(', ', $keys);
return $ret;
}
/**
* Replace current title
*
* @param string $content
*/
function replacetitle($content) {
global $mainframe;
$mainframe->_head['title'] = $content;
}
/**
* Append to current title
*
* @param string $content
*/
function appendtitle($content) {
global $mainframe;
$mainframe->_head['title'] .= $content;
}
/**
* Get the current title
*
* @return string
*/
function gettitle() {
global $mainframe;
return $mainframe->_head['title'];
}
/**
* Gets the description for the meta description tag
* uses the sentence inside $minLength and $maxLength
* or sentence... if sentence is bigger than $maxLength
*
* @param string $text
* @param int $minLength
* @param int $maxLength
* @return string
*/
function GetDescription($text, $minLength = 100, $maxLength = 250) {
if ($minLength > $maxLength) return;
if (!$text) return;
// previously sentences including 'Joomla 1.0' was stopping at "Joomla 1." therefor the philosophy has changed here.
// we want a minumim of $minLength chars and a max of $maxLength chars, stopping at a sentence inbetween.
// get pos of '.'
$stop = strpos($text,'.');
if (($stop >= $minLength) && ($stop <= $maxLength)) {
// display the full sentence as it is
$desc = trim(substr($text,0,$stop + 1));
} else {
// display the sentence cut short
$desc = trim(substr($text, 0, $maxLength -3))."...";
}
return ucfirst($desc);
}
/**
* Returns an array of keywords
*
* @param string $text
* @param int $keywordMinCharacters
* @param int $top
* @param string $stickyWords
* @param string $badWords
* @param string $badCharacters
* @param bool $capitalise
* @param char $delim
* @return array key=>value
*/
function GetKeywords($text, $keywordMinCharacters = 1, $top = 0, $stickyWords = null, $badWords = null, $badCharacters = null, $capitalise = true, $delim=" ") {
$text = strtolower($text);
// remove any email addresses
$regex = '/(([_A-Za-z0-9-]+)(\\.[_A-Za-z0-9-]+)*@([A-Za-z0-9-]+)(\\.[A-Za-z0-9-]+)*)/iex';
$replacement = ' ';
$text = preg_replace($regex, $replacement, $text);
// remove and unwanted characters
$badCharacters = explode($delim, $badCharacters);
foreach ($badCharacters as $badChar) {
$text = str_replace ($badChar, null, $text);
}
// remove any unwanted words
$badWords = explode($delim,$badWords);
$firstWord = substr($text, 0, (strpos($text, " ")) +1);
$lastWord = substr($text , strrpos($text, " "));
foreach ($badWords as $badWord) {
// remove all instances at the beginning
if (strcasecmp("$badWord ",$firstWord) == 0) {
$text = substr($text, strlen($firstWord));
}
// remove all instances in the middle
$text = Replace(" $badWord ", " ", $text);
// remove all instances at the end
if (strcasecmp(" $badWord", $lastWord) == 0) {
$text = substr($text, 0, strlen($text) - strlen($lastWord));
}
}
// capitalise our text
if ($capitalise == true) {
$text = ucwords($text);
$stickyWords = ucwords($stickyWords);
}
$wordCount = array();
// add our stickywords
$stickyWords = explode($delim,$stickyWords);
foreach ($stickyWords as $stickyWord) {
$wordCount[$stickyWord]=1;
}
// loop through all our words and count instances
$words = explode($delim,$text);
foreach ($words as $word) {
$word = trim($word);
// after all checking was still getting null chars from somewhere
if (($word != null) && (strlen($word) >= $keywordMinCharacters)) {
// check that word already has been added
if (array_key_exists($word,$wordCount)) {
// it does so add to our count
$wordCount[$word] += 1;
} else {
// it doesnt so put it in once
$wordCount[$word] = 1;
}
}
}
// sort the new word array
@arsort($wordCount);
$ret = array();
// return all elements
if ($top == 0) {
return $wordCount;
}
// return the top X number of elements
if ($top < count($wordCount)) {
$ret = array_slice($wordCount, 0, $top);
} else {
$ret = $wordCount;
}
//foreach ($wordCount as $key=>$val) {
// echo "Key: $key Value: $val ";
//}
return $ret;
}
/**
* Clean and prepare text, remove any unwanted tags etc
*
* @param string $text
* @return string
*/
function PrepareText($text) {
// removed as redundant from strip_tags
// and was causing parsing problems due to incorrect regex.
// regex is fixed for the sake of being fixed.
// convert html br to space
/*$regex = '/()/i';*/
//$text = preg_replace($regex, " ", $text);
// remove links
/*$regex = '/()(.*?)(<\/a>)/i';*/
//$text = preg_replace($regex, " $2 ", $text);
// convert html entities to chars
$text = html_entity_decode($text, ENT_QUOTES);
// strip any remaining html tags
$text = strip_tags($text);
// remove any mambot codes
$regex = '(\{.*?\})';
$text = preg_replace($regex, " ", $text);
// convert tabs to spaces
// added below
//$text = str_replace("\t", " ",$text);
// convert newlines and tabs to spaces
$text = str_replace(array("\r\n", "\r", "\n", "\t"), " ", $text);
// remove any extra spaces
while (strchr($text," ")) {
$text = str_replace(" ", " ",$text);
}
// general sentence tidyup
for ($cnt = 1; $cnt < strlen($text); $cnt++) {
// add a space after any full stops or comma's for readability
// added as strip_tags was often leaving no spaces
if (($text{$cnt} == '.') || ($text{$cnt} == ',')) {
if (isset($text{$cnt+1})) {
if ($text{$cnt+1} != ' ') {
$text = substr_replace($text, ' ', $cnt + 1, 0);
}
}
}
}
return trim($text);
}
/**
* Removes any non readable characters
*
* @param string $text
* @return string
*/
function CleanChars($text) {
for ($cnt=0; $cnt < strlen($text); $cnt++) {
$chr = $text{$cnt};
$ord = ord($chr);
if ($ord < 32 or $ord > 126) {
$chr = " ";
$text{$cnt} = $chr;
}
}
return $text;
}
/**
* Case insensitive replace
*
* @param string $search
* @param string $replace
* @param string $subject
* @return string
*/
function Replace($search, $replace, $subject, $word = false) {
if ($word) {
$regex = "/\b$search\b/i";
} else {
$regex = "/$search/i";
}
return preg_replace($regex, $replace, $subject);
}
?>
Психология Секса
Автор Administrator
13.12.2008 г.
Сексуальные реакции обоих полов частично определяются встроенными,
биологическими факторами, а частично "мысленным совокуплением" -
психологическими факторами. Если механизм оргазма запущен, встроенные
биологические цепочки берут верх и ум остается в стороне; но до этого
момента голоса в постели и голоса в голове сильно влияют на то, что
происходит, и как это происходит, когда и с кем. Но еще более, чем
голоса, важны скрытые в уме картины, первичные образы партнеров,
определяющие их потенцию и интенсивность желания.
Психологические факторы, работающие в мужчине (аналогичные факторы существуют и для женщины) таковы:
со страхом или с энтузиазмом относится он к сексу.
Наиболее важным
фактором здесь является голос матери, которая говорит либо "берегись",
либо "давай";
честен ли он в сексе. Это обычно решает голос или пример отца, который
говорит или "хватай!", "пусть покричит!", или "радуйте друг друга";
что делает партнерша - реагирует, нейтральна или отвергает. Об этом
говорит ее голос - теплый и мягкий, безразличный или холодный и даже
угрожающий. То же рассказывают ее мышцы - любящие, мертвые или сжатые;
а ее железы делают это мягким и влажным или жестким и сухим;
внешняя ситуация, в особенности возможность, что другие прервут или,
наоборот, стимулируют, - включая детей, комаров и прочее в таком роде;
Если мужчине удается раскопать свой первичный образ, это может
оказаться совсем не тем, что он ожидал. Так один врач-акушер (Взрослый
в нем хорошо знал, как выглядят эти органы при самых разных
обстоятельствах) обнаружил с большим удивлением, что Ребенок в нем
по-прежнему представляет себе влагалище как огромную, темную бездонную
пещеру, в которой может потеряться его пенис и даже все его тело. В
другом случае мужчина представлял себе узкий проход, полный колючек,
которых должен был сторониться каждый, кто туда попадал. Возможность
таких образов влиять на эрекцию, фрикцию и извержение может отчасти
зависеть от действительного физического состояния влагалища и от того,
как это ощущается фаллосом. Если фаллос чувствует себя болтающимся, то
"мужчина пещеры" может испугаться, а второй почувствует облегчение;
если фаллос чувствует упругость, первый мужчина почувствует себя
безопаснее, второй же будет настороже и захочет поскорее оттуда
выбраться.
Сколь это ни кажется невероятным, но иногда пенисом или даже пальцами
можно видеть, а не только чувствовать. Это называется сирэстезией.
Каждый взрослый знает, что влагалище на самом деле - красное, и
остается красным, по для фаллоса его цвет может меняться в зависимости
от степени увлажнения. Когда оно сухое, оно может выглядеть пурпурным;
слегка увлажненное - может казаться коричневым; когда же оно совсем
скользкое, оно может представляться ярко-голубым. Это наиболее обычные
синэстезические восприятия, но каждый пенис может иметь собственную
цветовую гамму.
Первичный образ фаллоса у женщины таким же образом влияет на ее
реакции. Для Ребенка в ней это может выглядеть как выпирпощая масса
чего-то твердого, что собирается проникнуть слишком далеко, или как
острый нож, который хочет ее разрезать, или как маленький шарик,
который слишком мал, чтобы она могла ухватить и задержать его прежде
чем он ускользнет. Некоторые женщины также способны к цветовым
восприятиям, зависящим от скользкости пениса, которая в
действительности определяется их любрикацией.
Существуют и более благоприятные первичные образы. Для мужчины
влагалище может выглядеть как уютное место отдыха или как ласковая
рука; клитор может представляться соблазнительным сосочком; женщина
может представлять себе пенис как леденец на палочке, шарик для малышей
или как грибок. Эти образы не являются, как обычно предполагают,
"бессознательными". Их легко может увидеть каждый, кто достаточно
внимателен, чтобы установить их, когда они проплывают в нем. Это важно
знать, потому что первичные образы могут оказывать решающее влияние на
мужскую и женскую сексуальность, и не требуется много времени, чтобы их
обнаружить. Они таятся в глубине, совершенно обнаженные.
Многие утверждения относительно психологии секса основываются скорее на
личных предпочтениях, чем на тщательном исследовании. Некоторые
психологи секса создают нечто вроде собственной строгой морали.
Например: "Мужчина возбуждается тем, что он делает с женщиной, а не
тем, что она делает с ним; женщина же возбуждается тем, что мужчина
делает с ней, а не тем, что она делает с ним". Подобно пуританствующим
школьным учителям, они недооценивают энергичных женщин и мужчин,
любящих понежиться в роскоши, и пытаются утвердить какие-то стандарты,
меж тем как люди обладают разными типами сексуальности. Это работает
лучше, чем законодательное внедрение стандартов секса для самых
различных типов людей.
Поскольку подростковая и юношеская сексуальность доставляет родителям и
учителям много забот, раннее (по каким нормам - обычно не уточняется)
начало половой жизни ассоциируется в обыденном сознании с различными
отрицательными явлениями - плохой успеваемостью, преступностью,
алкоголизмом, нервно-психическими расстройствами и т. д. Такая связь
действительно существует. Например, по данным А. Венера и К. Стюарта,
общий уровень сексуальной активности у американских подростков
статистически значимо коррелирует с такими действиями, как кражи, угон
автомашин, вандализм и насилие, а в меньшей степени - также с
употреблением слабых наркотиков, курением, употреблением алкоголя и
сильных наркотиков (девиантные действия называются в порядке тесноты их
связи с сексуальной активностью). Связь между коитальным опытом
подростков и их участием в делинквентных действиях обнаружили также П.
Миллер и У. Саймон. Ранняя половая жизнь и добрачное сожительство
значимо коррелируют у американской молодежи с употреблением наркотиков,
в частности марихуаны. Однако универсальны ли такие зависимости и
какова их причинно-следственная связь?
Высокая сексуальная активность сама по себе не является причиной
антисоциального поведения. За указанными выше корреляциями
прослеживаются прежде всего контуры определенной молодежной
субкультуры, где ранняя или экстенсивная половая жизнь, курение,
выпивка и наркотики служат своего рода знаками самостоятельности и
взрослости и противопоставляются родительским влияниям. Недаром, по
данным П. Миллер и У. Саймона, сексуальный опыт юношей (у девушек
картина неопределенная) положительно коррелирует с вовлеченностью в
групповую активность сверстников и с отчуждением от родителей.
Там, где юношеская сексуальность как таковая особо не табуируется, ее
связь с девиантным поведением ослабевает и даже вовсе исчезает. Начало
половой жизни везде означает рост автономии молодых людей от старших,
особенно от родителей, иначе и не может быть, так как это - один из
универсальных признаков взрослости. Однако начало половой жизни не
обязательно имеет отрицательные социальные последствия. Например, в ГДР
сексуальная активность юношей и девушек положительно коррелирует с
трудовой и общественной активностью, спортивными достижениями,
культурными и эстетическими интересами.
Хотя прямой зависимости между разными сферами общественного и личного
бытия нет, тем более нет и обратной их зависимости. Особенно
поучительно приведенное немецкими учеными сравнение сроков начала
половой жизни со школьной успеваемостью подростков. Здесь выявились
следующие тенденции.
1. Юноши, начинающие половую жизнь между 17-м и 18-м годом, имеют в
среднем лучшую успеваемость, чем те, кто делает это раньше или позже.
2. Девушки, начинающие половую жизнь до 16 лет, учатся хуже тех, кто делает это между 17-м и 19-м годом.
3. Студенты, окончившие школу на "отлично" и "очень хорошо", начинают
половую жизнь в среднем в 17,6 года, окончившие на "хорошо" - в 17,3
года и на "удовлетворительно" - в 16,9 года. У студенток такой
статистической связи не обнаружено.
4. Юноши и девушки, часто меняющие сексуальных партнеров, учатся в
среднем несколько хуже тех, чьи сексуальные отношения стабильны.
Это значит, что социально неблагоприятным (с точки зрения учебной
успеваемости) фактором для юношей является слишком раннее или слишком
позднее (по сравнению со статистической нормой для данного поколения и
субкультуры), для девушек - слишком раннее начало половой жизни и для
обоих полов - экстенсивные и поверхностные сексуальные контакты. Что же
касается более старших юношей и молодых взрослых, то для них половая
жизнь, если она принимает социально и культурно приемлемые формы, имеет
положительное значение; считать ее несовместимой с общественнотрудовой,
культурной и прочей социальной активностью нет никаких оснований. О
взаимосвязи сексуального поведения и типа личности речь пойдет позже.
Однако уже у подростков эта связь неоднозначна.
Распространенная трудность подросткового и юношеского возраста, сильно
влияющая на сексуальное поведение, - застенчивость, тесно связанная с
интроверсией, а у мужчин нередко также и с невротизмом. Знакомство и
сближение с лицами противоположного пола даются застенчивым людям
гораздо труднее. Сравнение 100 застенчивых и 100 незастенчивых
студентов американских колледжей показало, что первые обладают
значительно меньшим сексуальным опытом, причем чем больше сексуальная
интимность, тем рельефнее разница между группами. Первый половой акт
(его пережили 37% застенчивых и 62% незастенчивых) у застенчивых людей
чаще вызывает отрицательные эмоции, чувство стыда или вины. Это имеет
двойственные психологические последствия. С одной стороны, застенчивые
чаще стремятся к более интимным, нежным, индивидуализированным любовным
отношениям. С другой стороны, некоторые мужчины этого типа ищут выхода
из психологических трудностей в обезличенных, анонимных связях, которые
не требуют от них подлинного самораскрытия, но и не дают
психологического удовлетворения.
Либерализация половой морали ставит таких людей, особенно юношей, в
трудное положение. Застенчивый интроверт (Вертер) никогда не считался
маскулинным характером. Однако культура, ориентированная на
романтический идеал любви, давала ему определенную компенсацию. Теперь
положение изменилось. Юноша (отчасти это верно и для девушек), который
по свойствам своего характера не может или не хочет воспользоваться
либерализацией норм сексуального поведения, подчас чувствует себя белой
вороной среди сверстников.
Это особенно заметно в молодежной субкультуре США, где девиантным
состоянием стали считать не добрачные связи, а сохранение
девственности. Как показало углубленное психологическое исследование
группы американских студентов-старшекурсников, либерализация половой
морали вовсе не избавляет молодых людей от трудностей. Многих юношей
(32%) смущает потенциальное интеллектуальное соперничество с девушкой.
По признанию одного из них, он никогда не ухаживает за однокурсницей,
которая учится лучше, чем он сам. Страх вызывает и возможная большая
сексуальная опытность женщины. ("Заниматься любовью с кемто более
опытным, чем я, для меня - ужас... Я хочу жениться на девственнице не
потому, что она чиста, а потому, что она имеет меньше опыта").
Особенно сложно положение девственников (таковых оказалось 26%
выборки). Почти все они чувствуют себя весьма неуютно, а их образ Я
значительно менее благоприятен, чем у сексуально искушенных мужчин. Они
гораздо более тревожны, склонны к самокритике, менее уверены в себе,
считают себя слабыми и неудачливыми. Желание скрыть свою девственность
вносит настороженность и в их отношения с друзьями собственного пола.
Подростки и младшие юноши свободнее и полнее раскрываются перед
друзьями своего пола, чем перед женщинами, которых они еще стесняются.
У молодых мужчин (около 20 лет) главным "конфидентом" (доверенным
лицом) уже становится женщина, чему благоприятствует и сексуальная
близость. Поскольку у девственников этого канала коммуникации нет, у
них самый низкий уровень самораскрытия.
Психологи, социологи и психиатры невольно следуют стилю мышления и
ценностным ориентациям своей эпохи. В начале XIX века много писали об
опасностях и отрицательных последствиях раннего начала и экстенсивных
форм половой жизни и мало кто обращал внимание на явно невротические
черты так называемой романтической личности с ее экзальтацией,
мистицизмом и неспособностью к простым человеческим отношениям, включая
сексуальные. Во второй половине XX века, наоборот, подчеркиваются
патогенные аспекты некоммуникабельности, сексуальной заторможенности и
т. д. На самом деле плохи любые крайности. В то же время нельзя - это и
жестоко, и бессмысленно - подгонять всех людей под один ранжир.
"Величайшая возможная ошибка в этой области... - представление, что все
остальные люди в точности такие же, как мы, а если нет, то они должны
стать такими... Никакие сексуальные правила, законы или идеалы не
охватывают в равной степени интраверта и экстраверта, невротика и
устойчивого индивида; пища одного человека может быть ядом для другого.
С понимания этого начинается психическое здоровье" (Вильсон Дж.
"Психология секса").
Warning: include_once(/home/mshouse/domains/sdvigov.net/public_html/includes/foot2er.php) [function.include-once]: failed to open stream: No such file or directory in /home/mshouse/domains/sdvigov.net/public_html/templates/sdvigov/index.php on line 194
Warning: include_once() [function.include]: Failed opening '/home/mshouse/domains/sdvigov.net/public_html/includes/foot2er.php' for inclusion (include_path='.:/usr/local/php5/lib/php') in /home/mshouse/domains/sdvigov.net/public_html/templates/sdvigov/index.php on line 194
Сексуальные реакции обоих полов частично определяются встроенными,
биологическими факторами, а частично "мысленным совокуплением" -
психологическими факторами. Если механизм оргазма запущен, встроенные
биологические цепочки берут верх и ум остается в стороне; но до этого
момента голоса в постели и голоса в голове сильно влияют на то, что
происходит, и как это происходит, когда и с кем. Но еще более, чем
голоса, важны скрытые в уме картины, первичные образы партнеров,
определяющие их потенцию и интенсивность желания.